asp简单创建静态(模板标注替换)的方法
发布时间：2023-06-17 14:46:17 所属栏目：Asp教程 来源：
导读：asp简单生成静态的方法，今天看了词典工具里面的代码，比较简单，需要的朋友可以参考下。
CreateHtml
所有文章生成，好用资源大
第一种方法：
复制代码代码如下:
'开始HTML生成方式
Set
CreateHtml
所有文章生成，好用资源大
第一种方法：
复制代码代码如下:
'开始HTML生成方式
Set
|
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 Next 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 第二种，从别的系统看到的 复制代码代码如下: <% ' Copyright 2007 ' 编写者：吴军 ' 版权所有：www.sm05.com ' 版本：Ver 1.0 ' 技术支持：邮件：service@sm05.com QQ: 21275120 %> <!--#include file="cyconn.asp"--> <% 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 next 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 Next 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 （编辑：聊城站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
推荐文章
站长推荐
