asp简单生成静态的方法(模板标签替换)

　　CreateHtml

　　所有文章生成，好用资源大

　　第一种方法：

　　'开始HTML生成方式

　　Set Rs=Server.Createobject("Adodb.Recordset")

　　Sql="Select KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record From KQIQI_CY Order By KQIQI_ID Desc"

　　Rs.Open Sql,Conn,1,3

　　Datanum=Rs.Recordcount

　　For i= 1 To Datanum

　　Title=Replace(Replace(Rs(1),Chr(13),""),Chr(10),"")

　　'开始生成成语文件

　　Set Fso=Createobject("Scripting.FilesyStemobject")

　　Set KQIQI_MB=Fso.Opentextfile(server.mappath("KQIQI_CY_MB.html"))

　　KQIQI_Ce=KQIQI_MB.readall

　　KQIQI_MB.close

　　KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Title}",""&Title&"")

　　KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:SystemTitle}",""&SystemTitle&"")

　　KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Pinyin}",""&Rs(2)&"")

　　KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Explain}",""&Rs(3)&"")

　　KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Content}",""&Rs(4)&"")

　　KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Record}",""&Rs(5)&"")

　　Set KQIQI_We=Fso.Createtextfile(Server.Mappath("Html/KQIQICY_"&Rs(0)&".html"),true)

　　KQIQI_We.writeline KQIQI_Ce

　　KQIQI_We.Close

　　Set Fso=Nothing

　　'生成完成

　　Rs.Movenext

　　KQIQICY = KQIQICY & "<TABLE cellSpacing=""0"" cellPadding=""0"" width=""480"" align=""center"" border=""0"" class=""td table"">" & vbCrLf

　　KQIQICY = KQIQICY & "<TR><TD align=""center""><IMG src=""images/logo.gif"" border=""0"" width=""220"" height=""90""></TD></TR>" & vbCrLf

　　KQIQICY = KQIQICY & "<TR><TD align=""center"" class=""tdbar"">生成完毕</TD></TR>" & vbCrLf

　　KQIQICY = KQIQICY & "<TR><TD align=""center"">客齐齐成语词典全部生成完毕！<input type=""button"" name=""button1""value=""返回"" onclick=""javascript:history.back(-1);""></TD></TR>"& vbCrLf

　　KQIQICY = KQIQICY & "<TR><TD align=""center"" class=""tdbar"">退出</TD></TR>" & vbCrLf

　　KQIQICY = KQIQICY & "<TR><TD align=""center""><a href=""KQIQI_Admin.asp?Action=Quit"">退出</a>"& vbCrLf

　　KQIQICY = KQIQICY & "</TD></TR></FORM></TABLE>" & vbCrLf

　　第二种，从别的系统看到的

复制代码代码如下:

　　' 编写者：吴军

　　' 版本：Ver 1.0

　　' 技术支持：邮件：[email protected] QQ: 21275120

　　dim fso

　　dim fr

　　dim wstr

　　dim fw

　　'开始HTML生成方式

　　set rs=server.createobject("adodb.recordset")

　　sql="select * from pic order by id desc"

　　rs.open sql,conn,1,3

　　datanum=rs.recordcount

　　for i= 1 to datanum

　　'开始生成成语文件

　　set fso=createobject("scripting.filesystemobject")

　　set fr=fso.opentextfile(server.mappath("chengyu_m.htm"))

　　wstr=fr.readall

　　fr.close

　　dim rstr

　　wstr=replace(wstr,"<{{biaoti}}>",""&replace(rs("biaoti"),vbnewline,"")&"")

　　wstr=replace(wstr,"<{{pinyin}}>",""&rs("sg")&"")

　　wstr=replace(wstr,"<{{jieshi}}>",""&rs("js")&"")

　　wstr=replace(wstr,"<{{from}}>",""&rs("content")&"")

　　wstr=replace(wstr,"<{{example}}>",""&rs("jilu")&"")

　　set fw=fso.createtextfile(server.mappath("view/chengyu"&rs("id")&".htm"),true)

　　fw.writeline wstr

　　fw.close

　　set fso=nothing

　　'生成完成

　　rs.movenext

　　response.write "来一来论坛成语栏目全部生成完毕！"

　　MakeHtml 从指定的id开始生成

复制代码代码如下:

　　'开始HTML生成方式

　　Set Rs=Server.Createobject("Adodb.Recordset")

　　Sql="Select KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record From KQIQI_CY Order By KQIQI_ID Desc"

　　Rs.Open Sql,Conn,1,3

　　For i=id1 To id2

　　Title=Replace(Replace(Rs(1),Chr(13),""),Chr(10),"")

　　'开始生成成语文件

　　Set Fso=Createobject("Scripting.FilesyStemobject")

　　Set KQIQI_MB=Fso.Opentextfile(server.mappath("KQIQI_CY_MB.html"))

　　KQIQI_Ce=KQIQI_MB.readall

　　KQIQI_MB.close

　　KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Title}",""&Title&"")

　　KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:SystemTitle}",""&SystemTitle&"")

　　KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Pinyin}",""&Rs(2)&"")

　　KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Explain}",""&Rs(3)&"")

　　KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Content}",""&Rs(4)&"")

　　KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Record}",""&Rs(5)&"")

　　Set KQIQI_We=Fso.Createtextfile(Server.Mappath("Html/KQIQICY_"&Rs(0)&".html"),true)

　　KQIQI_We.writeline KQIQI_Ce

　　KQIQI_We.Close

　　Set Fso=Nothing

　　'生成完成

　　Rs.Movenext

　　KQIQICY = KQIQICY & "<TABLE cellSpacing=""0"" cellPadding=""0"" width=""480"" align=""center"" border=""0"" class=""td table"">" & vbCrLf

　　KQIQICY = KQIQICY & "<TR><TD align=""center""><IMG src=""images/logo.gif"" border=""0"" width=""220"" height=""90""></TD></TR>" & vbCrLf

　　KQIQICY = KQIQICY & "<TR><TD align=""center"" class=""tdbar"">生成完毕</TD></TR>" & vbCrLf

　　KQIQICY = KQIQICY & "<TR><TD align=""center"">客齐齐成语词典生成完毕！<input type=""button"" name=""button1""value=""返回"" onclick=""javascript:history.back(-1);""></TD></TR>"& vbCrLf

　　KQIQICY = KQIQICY & "<TR><TD align=""center"" class=""tdbar"">退出</TD></TR>" & vbCrLf

　　KQIQICY = KQIQICY & "<TR><TD align=""center""><a href=""KQIQI_Admin.asp?Action=Quit"">退出</a>"& vbCrLf

　　KQIQICY = KQIQICY & "</TD></TR></FORM></TABLE>" & vbCrLf

教程首页更多教程