更新时间：2010-7-22
访问量：87次
关键词：
文章等级：
编辑：janjoy
来源：本站原创
制做一个简单的生成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 源码
<%
================================================
源码：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 源码
<%
================================================
源码：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>
