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

时间:2022-01-11 00:00:33

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