ASP+FSO应用实例篇

最新推荐文章于 2021-06-08 16:52:07 发布

m1maomao

最新推荐文章于 2021-06-08 16:52:07 发布

阅读量160

点赞数

分类专栏： Asp 文章标签： ASP HTML

本文链接：https://blog.csdn.net/m1maomao/article/details/83428099

版权

Asp 专栏收录该内容

24 篇文章 0 订阅

订阅专栏

我们结合学过的东西，制做一个简单的生成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>

通过以上三个文件，我们就实现了生成HTML文件，并带修改功能的小文章系统了。赶快动手来实战吧