CreateHtml
所有文章生成，好用資源大
第一種方法：
復(fù)制代碼 代碼如下:
'開始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
第二種，從別的系統(tǒng)看到的
復(fù)制代碼 代碼如下:
%
' Copyright 2007
' 編寫者：吳軍
' 版權(quán)所有：www.sm05.com
' 版本：Ver 1.0
' 技術(shù)支持：郵件：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開始生成
復(fù)制代碼 代碼如下:
'開始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
