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