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

dly · 发表于 2011-9-8 20:21:56

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=""返回""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

复制代码

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

'开始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=""返回""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

复制代码