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="/UploadFiles/2021-04-02/">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="/UploadFiles/2021-04-02/">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
所有文章生成,好用资源大
第一种方法:
复制代码 代码如下:
'开始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="/UploadFiles/2021-04-02/">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="/UploadFiles/2021-04-02/">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
华山资源网 Design By www.eoogi.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
华山资源网 Design By www.eoogi.com
暂无评论...
更新日志
2024年12月25日
2024年12月25日
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果(九)》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]