<p>FSO使用教程9 -- 终结FSO应用实例篇</p>
<p>终结FSO应用实例篇-FSO使用教程8<br />
通过前面8个相关FSO详细教程，下面我们结合学过的东西，制做一个简单的生成HTML文文章系统，包含有文件标题和内容，并带有修改文章功能。<br />
包含文件：<br />
AddArticle.html '文章内容录入表单文件<br />
ModiArticle.asp '修改文件内容文件<br />
SaveArticle.asp '保存新增内容文件<br />
为了方便教程演示，我们在源码中统一生成的HTML文件名为"FsoToHtml.Html"<br />
'AddArticle.html 源代码<br />
<html><br />
<head><br />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><br />
<title>添加新文章</title><br />
</head><br />
<body><br />
<form method="post" name="thefrm" action="SaveArticle.asp"><br />
文章标题：<input name="Title" type="text" value="" size="30"><br />
<hr /><br />
文章内容：<br /><br />
<textarea name="content" cols="60" rows="20"></textarea><br />
<br /><br />
<input type="submit" name="Submit" value="FSO生成写入HTML" /><br />
</form><br />
</body><br />
</html><br />
<br />
'SaveArticle.asp 源码<br />
<%<br />
'================================================<br />
'作者：阿里西西<br />
'网址：<a href="http://www.alixixi.com/">http://www.alixixi.com/</a><br />
'源码：FSO生成HTML文件示例<br />
'时间：2005年12月17日<br />
'================================================<br />
Set fs = Server.CreateObject("Scripting.FileSystemObject")<br />
File = Server.MapPath("FsoToHtml.Html")<br />
Set txt = fs.OpenTextFile(File,2,True)<br />
HtmlFile = "文章标题："&Request.Form("Title") & "<hr />" & Request.Form("Content")&"" '获取表单提交的内容<br />
txt.Write HtmlFile<br />
Set fs = nothing<br />
Response.write "<a href=""FsoToHtml.Html"">成功生成文件"&File&"</a><p>"<br />
Response.write "<a href=""ModiArticle.asp"">修改HTML文件内容</a>"<br />
%><br />
ModiArticle.asp '源码<br />
<%<br />
'================================================<br />
'作者：阿里西西<br />
'网址：<a href="http://www.alixixi.com/">http://www.alixixi.com/</a><br />
'源码：FSO修改已生成的HTML文件示例<br />
'时间：2005年12月17日<br />
'================================================<br />
Set fs = Server.CreateObject("Scripting.FileSystemObject")<br />
File = Server.MapPath("FsoToHtml.Html")<br />
Set txt = fs.OpenTextFile(File,1,True)<br />
If Not txt.atEndOfStream Then<br />
Content = txt.ReadAll<br />
End If<br />
Set fs = nothing<br />
Title = split(Content,"<hr />")(0) '通过<hr />分隔获取文章标题<br />
Text = split(Content,"<hr />")(1) '通过<hr />分隔获取文章内容<br />
%><br />
<html><br />
<head><br />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><br />
<title>添加新文章</title><br />
</head><br />
<body><br />
<form action="SaveArticle.asp" method="post" name="thefrm"><br />
文章标题：<br />
<input name="Title" type="text" value="<%=Title%>" size="30"><br />
<hr /><br />
文章内容：<br /><br />
<textarea name="content" cols="60" rows="20"><%=Text%></textarea><br />
<br /><br />
<input type="submit" name="Submit" value="FSO生成写入HTML" /><br />
</form><br />
</body><br />
</html><br />
通过以上三个文件，我们就实现了生成HTML文件，并带修改功能的小文章系统了。赶快动手来实战吧<br />
到此，FSO教程篇已终结，通过这9篇的基础文章，举一反三，你可以写出更强大的FSO应用程序或通用类出来。如果你对本教程有什么建议或意见欢迎在本站留言或论坛发表评论。</p>