Question

ASP转换为HTML的问题

我的主页是ASP页面````内容是用JS代码调用

但是这样的话网站打开速度非常的慢`因为要查询数据库`似乎是每一条JS代码就要查一次`

我想把ASP页面转换为HTML`并且把JS代码里调用的新闻内容的连接地址也读出来

请问有什么办法可以实现```
ASP静态化````
krispan 如果那样做`我无法调用JS`

Answer 1

给你推荐个方法，不知道是不是你想要的效果

首先在浏览器运行你的主页文件（就是那个ASP文件）
然后点击菜单上的“查看－>查看源文件”，把里面的内容全部拷贝出来，新建一个html文件，用刚才拷贝的代码取代html文件中的内容就可以了，这样就把asp文件转换成html文件了

Answer 2

<%
Dim Rs ,JSSrc
JSSrc="11203.js" 'JS的调用地址。
Set Rs=Server.CreateObject("adodb.recordset")
Rs.open("Select * from [Article]"),Conn,1,1
Dim ModeContent,FSO,MyFso,MyHtml
Set Fso=Server.Createobject("Scripting.FileSystemObject")
MyFso=Fso.openTextFile(Server.Mappath("模板.htm"),1)
ModelContent=MyFso.readAll '读取模板内容

Do while Not(Rs.eof or Rs.bof)
ModelContent=Replace(ModelContent,"$title$","&Request.form("Title")&") '用发布的文章标题替换模板中的$title$
ModelContent=Replace(ModelContent,"$Content$","&Request.form("Content")&") '用发布的文章内容替换模板$Content$
ModelContent=Replace(ModelContent,"$JSsrc$","&JSSrc&") '用发布的文章内容替换模板$JSsrc$ 也就是JS连接地址
'……
MyHtml=Fso.CreateTextFile(Server.mapPath(""&Replace(date(),"-","")&Minute(now)&Second(now) &".html"), True) '生成类似200705061126.html的文件
MyHtml.writeLine(ModelContent)
Conn.execute("insert into [Article](HtmlUrl,title,content)Values('"&Replace(date(),"-","")&Minute(now)&Second(now) &".html','"&Title&"','"&Content&"'")
'这样就把生成的路径写道数据库里面了
'以后在list.asp里面直接可以调用静态页面的地址了

Rs.movenext
Loop
Set fso=nothing

Set Rs=nothing
%>