FSO使用教程9 -- 终结FSO应用实例篇

80酷酷网    80kuku.com

  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日

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: