asp简单生成静态的方法(模板标签替换)
导读：收集整理的这篇文章主要介绍了asp简单生成静态的方法(模板标签替换 ，觉得挺不错的，现在分享给大家，也给大家做个参考。 CreateHtML所有文章生成，好用资源大 第一种方法：复制代码...
收集整理的这篇文章主要介绍了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
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： asp简单生成静态的方法(模板标签替换)
本文地址： https://pptw.com/jishu/604127.html