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

CreateHtml
所有文章生成，好用资源大
第一种方法：
代码如下:

<BR />'开始HTML生成方式 <BR />Set Rs=Server.Createobject("Adodb.Recordset") <BR />Sql="Select KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record From KQIQI_CY Order By KQIQI_ID Desc" <BR />Rs.Open Sql,Conn,1,3 <BR />Datanum=Rs.Recordcount <BR />For i= 1 To Datanum <BR />Title=Replace(Replace(Rs(1),Chr(13),""),Chr(10),"") <BR />'开始生成成语文件 <BR />Set Fso=Createobject("Scripting.FilesyStemobject") <BR />Set KQIQI_MB=Fso.Opentextfile(server.mappath("KQIQI_CY_MB.html")) <BR />KQIQI_Ce=KQIQI_MB.readall <BR />KQIQI_MB.close <BR />KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Title}",""&Title&"") <BR />KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:SystemTitle}",""&SystemTitle&"") <BR />KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Pinyin}",""&Rs(2)&"") <BR />KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Explain}",""&Rs(3)&"") <BR />KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Content}",""&Rs(4)&"") <BR />KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Record}",""&Rs(5)&"") <BR />Set KQIQI_We=Fso.Createtextfile(Server.Mappath("Html/KQIQICY_"&Rs(0)&".html"),true) <BR />KQIQI_We.writeline KQIQI_Ce <BR />KQIQI_We.Close <BR />Set Fso=Nothing <BR />'生成完成 <BR />Rs.Movenext <BR />Next <BR />KQIQICY = KQIQICY & "<TABLE cellSpacing=""0"" cellPadding=""0"" width=""480"" align=""center"" border=""0"" class=""td table"">" & vbCrLf <BR />KQIQICY = KQIQICY & "<TR><TD align=""center""><IMG src=""images/logo.gif"" border=""0"" width=""220"" height=""90""></TD></TR>" & vbCrLf <BR />KQIQICY = KQIQICY & "<TR><TD align=""center"" class=""tdbar"">生成完毕</TD></TR>" & vbCrLf <BR />KQIQICY = KQIQICY & "<TR><TD align=""center"">客齐齐成语词典全部生成完毕！<input type=""button"" name=""button1""value=""返回"" onclick=""javascript:history.back(-1);""></TD></TR>"& vbCrLf <BR />KQIQICY = KQIQICY & "<TR><TD align=""center"" class=""tdbar"">退出</TD></TR>" & vbCrLf <BR />KQIQICY = KQIQICY & "<TR><TD align=""center""><a href=""KQIQI_Admin.asp?Action=Quit"">退出</a>"& vbCrLf <BR />KQIQICY = KQIQICY & "</TD></TR></FORM></TABLE>" & vbCrLf <BR /> <BR />第二种，从别的系统看到的<BR /><span><U></U></span> 代码如下:<BR /><% <BR />' Copyright 2007 <BR />' 编写者：吴军 <BR />' 版权所有：www.51frw.cn <BR />' 版本：Ver 1.0 <BR />' 技术支持：邮件：service@sm05.com QQ: 21275120 <BR />%> <BR /><!--#include file="cyconn.asp"--> <BR /><% <BR />dim fso <BR />dim fr <BR />dim wstr <BR />dim fw <BR />'开始HTML生成方式 <BR />set rs=server.createobject("adodb.recordset") <BR />sql="select * from pic order by id desc" <BR />rs.open sql,conn,1,3 <BR />datanum=rs.recordcount <BR />for i= 1 to datanum <BR />'开始生成成语文件 <BR />set fso=createobject("scripting.filesystemobject") <BR />set fr=fso.opentextfile(server.mappath("chengyu_m.htm")) <BR />wstr=fr.readall <BR />fr.close <BR />dim rstr <BR />wstr=replace(wstr,"<{{biaoti}}>",""&replace(rs("biaoti"),vbnewline,"")&"") <BR />wstr=replace(wstr,"<{{pinyin}}>",""&rs("sg")&"") <BR />wstr=replace(wstr,"<{{jieshi}}>",""&rs("js")&"") <BR />wstr=replace(wstr,"<{{from}}>",""&rs("content")&"") <BR />wstr=replace(wstr,"<{{example}}>",""&rs("jilu")&"") <BR />set fw=fso.createtextfile(server.mappath("view/chengyu"&rs("id")&".htm"),true) <BR />fw.writeline wstr <BR />fw.close <BR />set fso=nothing <BR />'生成完成 <BR />rs.movenext <BR />next <BR />response.write "来一来论坛 成语栏目 全部生成完毕！" <BR />%><BR /><BR />MakeHtml 从指定的id开始生成 <BR /><span><U></U></span> 代码如下:
<BR />'开始HTML生成方式 <BR />Set Rs=Server.Createobject("Adodb.Recordset") <BR />Sql="Select KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record From KQIQI_CY Order By KQIQI_ID Desc" <BR />Rs.Open Sql,Conn,1,3 <BR />For i=id1 To id2 <BR />Title=Replace(Replace(Rs(1),Chr(13),""),Chr(10),"") <BR />'开始生成成语文件 <BR />Set Fso=Createobject("Scripting.FilesyStemobject") <BR />Set KQIQI_MB=Fso.Opentextfile(server.mappath("KQIQI_CY_MB.html")) <BR />KQIQI_Ce=KQIQI_MB.readall <BR />KQIQI_MB.close <BR />KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Title}",""&Title&"") <BR />KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:SystemTitle}",""&SystemTitle&"") <BR />KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Pinyin}",""&Rs(2)&"") <BR />KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Explain}",""&Rs(3)&"") <BR />KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Content}",""&Rs(4)&"") <BR />KQIQI_Ce=Replace(KQIQI_Ce,"{$KQIQI:Record}",""&Rs(5)&"") <BR />Set KQIQI_We=Fso.Createtextfile(Server.Mappath("Html/KQIQICY_"&Rs(0)&".html"),true) <BR />KQIQI_We.writeline KQIQI_Ce <BR />KQIQI_We.Close <BR />Set Fso=Nothing <BR />'生成完成 <BR />Rs.Movenext <BR />Next <BR />KQIQICY = KQIQICY & "<TABLE cellSpacing=""0"" cellPadding=""0"" width=""480"" align=""center"" border=""0"" class=""td table"">" & vbCrLf <BR />KQIQICY = KQIQICY & "<TR><TD align=""center""><IMG src=""images/logo.gif"" border=""0"" width=""220"" height=""90""></TD></TR>" & vbCrLf <BR />KQIQICY = KQIQICY & "<TR><TD align=""center"" class=""tdbar"">生成完毕</TD></TR>" & vbCrLf <BR />KQIQICY = KQIQICY & "<TR><TD align=""center"">客齐齐成语词典生成完毕！<input type=""button"" name=""button1""value=""返回"" onclick=""javascript:history.back(-1);""></TD></TR>"& vbCrLf <BR />KQIQICY = KQIQICY & "<TR><TD align=""center"" class=""tdbar"">退出</TD></TR>" & vbCrLf <BR />KQIQICY = KQIQICY & "<TR><TD align=""center""><a href=""KQIQI_Admin.asp?Action=Quit"">退出</a>"& vbCrLf <BR />KQIQICY = KQIQICY & "</TD></TR></FORM></TABLE>" & vbCrLf <BR />
            
            


           
                
                                                

【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:254677821)！