关于ASP循环输出静态页面问题!!!急!!!

来源：百度知道 编辑：UC知道 时间：2024/05/08 15:41:09
<%
if trim(request("relhtmlaction"))="OK" then
set Newsmoders=conn.execute("select * from N_News,N_class")
if Newsmoders.eof and Newsmoders.bof then
response.write "<script language='javascript'>"
response.write "alert('还没有新闻，请添加新闻！');"
response.write "location.href='N_admin_News.asp';"
response.write "</script>"
response.end
end if
set moders=conn.execute("select * from html_mode where id=1")
mode_code=moders("mode_code")
do while not Newsmoders.eof
response.Write("a ")
Newsclassname=Newsmoders("N_classname")
Newsadddate=Newsmoders("N_adddate")
NewsTitle=Newsmoders("N_title")
NewsCon=Newsmoders("N_con")
Newsftp=Newsmoders("ftp")
mo

当时的问题是有能够直接输出的动态页面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(Fi