有关ASP新闻系统生成静态网页的问题
我在本地服务器测试新闻系统可以生成静态网页，在config.asp中修改IP地址就可以生成静态网页，但是我上传的服务器空间里，在config.asp中修改为服务器IP地址...
我在本地服务器测试新闻系统可以生成静态网页，在config.asp中修改IP地址就可以生成静态网页，但是我上传的服务器空间里，在config.asp中修改为服务器IP地址，但总是不能生成静态网页，请高手详细解答，说说这种新闻系统的使用和出了什么问题？谢谢！
展开
3个回答
展开全部
这个方法是本人想的，大家可以参考一下，很好用的。
当时的问题是有能够直接输出的动态页面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，对动态数据库网页同样好用。代码经过修改还能用来生成大量文件。有兴趣可以加上自动提交表单的部分，自动批量生成的部分，自动输出文件名的部分。本人精力有限，不一一列举。希望此文能抛砖引玉，为大家提供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，对动态数据库网页同样好用。代码经过修改还能用来生成大量文件。有兴趣可以加上自动提交表单的部分，自动批量生成的部分，自动输出文件名的部分。本人精力有限，不一一列举。希望此文能抛砖引玉，为大家提供asp生成静态页面的一个新思路。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
