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=button1value=返回 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
编写者：吴军
版权所有：
版本：Ver 1.0
技术支持：邮件：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=button1value=返回 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