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

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

' 编写者：吴军

' 版权所有：www.sm05.com

' 版本：Ver 1.0

' 技术支持：邮件：[email protected] 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