新微赢技术网

标题: 网站上———ASP如何输出静态网页 [打印本页]

作者: ※随风飘荡※ 时间: 2010-1-9 04:56
标题: 网站上———ASP如何输出静态网页
当时的问题是有能够直接输出的动态页面index.asp，但是它十分耗费资源，能不能把这个ASP文件动态输出的内容自动保存为一个静态页面呢。我从网上查了关于ASP生成HTM的文章，发现无非是使用模版页面、数据库帮助。这些方法虽然方便，但代码编写量太大，不能有效利用当前已有的文件。在百度知道上查找资料时看到一个网友说，生成静态页面，用浏览器保存，然后上传不就行了。看似说笑，却启发了我。为什么不让asp.dll将index.asp的内容输出出来，然后用FSO写文件保存呢。这是个好办法。但又遇到了问题，怎样将输出给流量器的html代码收集起来呢，于是我想到了表单中的文本域。对了，就用它。具体方法如下：

1、复制index.asp的内容到一个新文件，例如fso.asp。
2、将文件中输出标签<html></html>的全部部分剪切，包括这两个代码之间的asp代码。
3、在剪切文件的部分插入一个表单，包含一个文本域，一个提交按钮。
4、将剪切的内容粘贴到标签<textarea></textarea>之间
5、将表单属性定义为Post，提交到fso.asp?action=edit，文本域命名为HomePageInfo。
6、在文件数据连接之后，第一段代码之前，加入写文件部分代码。

<%
if request.QueryString("action") = "edit" then '得到action=edit命令后执行以下代码
HomepageInfo = Request.Form("HomepageInfo") '得到文本域内容，赋值给变量HomepageInfo
Set FSO = Server.CreateObject("Scripting.FileSystemObject") '建立FSO
File = Server.MapPath("Index.htm") '定义文件名、路径。
If FSO.FileExists(File) = True Then '判断该文件是否存在
fso.DeleteFile (File) '文件存在则删除文件
End If
Set CTF = FSO.CreateTextFile(File,true, False) '新建文件
CTF.Writeline HomepageInfo '将变量HomepageInfo的内容写入文件
Set ctf = Nothing '关闭FSO
Set FSO = Nothing
response.Write "<Script Language=JavaScript>alert('生成首页成功,点击确定返回管理!');location.href='admin/admin_right.asp';</Script>" '提示成功信息
end if
%>

这样便生成了静态文件。

这种方法适用于任何一种生成静态的情况，即使存在大量ASP代码，文件之间互相调用也可以。特别适用于用循环输出网页，调用DLL输出文件的ASP页面生成HTML，对动态数据库网页同样好用。代码经过修改还能用来生成大量文件。有兴趣可以加上自动提交表单的部分，自动批量生成的部分，自动输出文件名的部分

这样是可以用的，但是存在一个问题。要是index.asp程序文件太多的，太长的话，那只能转一部分，请你们在帮我看看，谢谢

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)