ASP转成html..自动生存......100分求

来源：百度知道 编辑：UC知道 时间：2024/06/06 15:28:12
ASP转成html..自动生存......100分求
可以是后台转...或是自动生存
包括产品发布和新闻发布等..如:itis.asp?ID=6像itis_id_6.html
最好能说详细点...一步一步的操作..
如果教会了.另加100分.....
我已有个网站.前后加后台..我要怎么做才做全部生成静态
http://www.sz5918.cn

后台发布的时候自动生成,如果表为Artice：
<%
Dim Rs
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$
'……
MyHtml=Fso.CreateTextFile(Server.mapPath(""&Replace(date(),"-","")&Minute(now)&Second(now) &".html"), True) '生成类似200705061126.html的文件
MyHtml.writeLine(ModelContent)
Conn.execute("insert into [Article](HtmlUrl,titl