提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  移动开发

当前栏目

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

ASP静态方法模板 简单 生成 标签 替换
2023-06-13 09:14:27 时间
CreateHtml
所有文章生成，好用资源大
第一种方法：
复制代码代码如下:

"开始HTML生成方式
SetRs=Server.Createobject("Adodb.Recordset")
Sql="SelectKQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_RecordFromKQIQI_CYOrderByKQIQI_IDDesc"
Rs.OpenSql,Conn,1,3
Datanum=Rs.Recordcount
Fori=1ToDatanum
Title=Replace(Replace(Rs(1),Chr(13),""),Chr(10),"")
"开始生成成语文件
SetFso=Createobject("Scripting.FilesyStemobject")
SetKQIQI_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)&"")
SetKQIQI_We=Fso.Createtextfile(Server.Mappath("Html/KQIQICY_"&Rs(0)&".html"),true)
KQIQI_We.writelineKQIQI_Ce
KQIQI_We.Close
SetFso=Nothing
"生成完成
Rs.Movenext
Next
KQIQICY=KQIQICY&"<TABLEcellSpacing=""0""cellPadding=""0""width=""480""align=""center""border=""0""class=""tdtable"">"&vbCrLf
KQIQICY=KQIQICY&"<TR><TDalign=""center""><IMGsrc=""images/logo.gif""border=""0""width=""220""height=""90""></TD></TR>"&vbCrLf
KQIQICY=KQIQICY&"<TR><TDalign=""center""class=""tdbar"">生成完毕</TD></TR>"&vbCrLf
KQIQICY=KQIQICY&"<TR><TDalign=""center"">客齐齐成语词典全部生成完毕！<inputtype=""button""name=""button1""value=""返回""onclick=""javascript:history.back(-1);""></TD></TR>"&vbCrLf
KQIQICY=KQIQICY&"<TR><TDalign=""center""class=""tdbar"">退出</TD></TR>"&vbCrLf
KQIQICY=KQIQICY&"<TR><TDalign=""center""><ahref=""KQIQI_Admin.asp?Action=Quit"">退出</a>"&vbCrLf
KQIQICY=KQIQICY&"</TD></TR></FORM></TABLE>"&vbCrLf

第二种，从别的系统看到的
复制代码代码如下:

<%
"Copyright2007
"编写者：吴军
"版权所有：www.sm05.com
"版本：Ver1.0
"技术支持：邮件：service@sm05.comQQ:21275120
%>
<!--#includefile="cyconn.asp"-->
<%
dimfso
dimfr
dimwstr
dimfw
"开始HTML生成方式
setrs=server.createobject("adodb.recordset")
sql="select*frompicorderbyiddesc"
rs.opensql,conn,1,3
datanum=rs.recordcount
fori=1todatanum
"开始生成成语文件
setfso=createobject("scripting.filesystemobject")
setfr=fso.opentextfile(server.mappath("chengyu_m.htm"))
wstr=fr.readall
fr.close
dimrstr
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")&"")
setfw=fso.createtextfile(server.mappath("view/chengyu"&rs("id")&".htm"),true)
fw.writelinewstr
fw.close
setfso=nothing
"生成完成
rs.movenext
next
response.write"来一来论坛成语栏目全部生成完毕！"
%>

MakeHtml从指定的id开始生成
复制代码代码如下:
"开始HTML生成方式
SetRs=Server.Createobject("Adodb.Recordset")
Sql="SelectKQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_RecordFromKQIQI_CYOrderByKQIQI_IDDesc"
Rs.OpenSql,Conn,1,3
Fori=id1Toid2
Title=Replace(Replace(Rs(1),Chr(13),""),Chr(10),"")
"开始生成成语文件
SetFso=Createobject("Scripting.FilesyStemobject")
SetKQIQI_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)&"")
SetKQIQI_We=Fso.Createtextfile(Server.Mappath("Html/KQIQICY_"&Rs(0)&".html"),true)
KQIQI_We.writelineKQIQI_Ce
KQIQI_We.Close
SetFso=Nothing
"生成完成
Rs.Movenext
Next
KQIQICY=KQIQICY&"<TABLEcellSpacing=""0""cellPadding=""0""width=""480""align=""center""border=""0""class=""tdtable"">"&vbCrLf
KQIQICY=KQIQICY&"<TR><TDalign=""center""><IMGsrc=""images/logo.gif""border=""0""width=""220""height=""90""></TD></TR>"&vbCrLf
KQIQICY=KQIQICY&"<TR><TDalign=""center""class=""tdbar"">生成完毕</TD></TR>"&vbCrLf
KQIQICY=KQIQICY&"<TR><TDalign=""center"">客齐齐成语词典生成完毕！<inputtype=""button""name=""button1""value=""返回""onclick=""javascript:history.back(-1);""></TD></TR>"&vbCrLf
KQIQICY=KQIQICY&"<TR><TDalign=""center""class=""tdbar"">退出</TD></TR>"&vbCrLf
KQIQICY=KQIQICY&"<TR><TDalign=""center""><ahref=""KQIQI_Admin.asp?Action=Quit"">退出</a>"&vbCrLf
KQIQICY=KQIQICY&"</TD></TR></FORM></TABLE>"&vbCrLf

相关文章