超长文章分页并生成静态页实例

发布时间:2020-01-12 发布网站:大佬教程
大佬教程收集整理的这篇文章主要介绍了超长文章分页并生成静态页实例大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。

sqln="select top 1 * from vArticle where apage='"&abname&"'"
rsn.open sqln,conn,1,1
if not rsn.eof then
'do while not rsn.eof
'page_n=len(rsn("aContent"))-len(replace(rsn("aContent"),"[NextPage]",""))
page_n=split(rsn("aContent"),"[NextPage]")
for i=1 to Ubound(page_n)+1

sql="select * from hy_moban where mname='资讯内页'"
rs.open sql,1
okfile=rs("mcontent")
rs.close
set rs=nothing
'if i=1 then 
'ppage=1 
'else 
'ppage=i-1 
'end if 
'if i=1 and page_n+1>i then 
'npage=i+1 
'else 
'npage=page_n+1 
'end if
aFrom=split(rsn("aFrom")&"|","|")
if aFrom(0)="" then
naFrom="未知"
else
naFrom=aFrom(0)
end if
k=i-1
Ntitle=rsn("aTitle")&"|"&rsn("akeyword")
okfile=replace(okfile,"$Ntitle$",Ntitle)
okfile=replace(okfile,"$C_Title$",rsn("C_Title"))
okfile=replace(okfile,"$aTitle$",rsn("aTitle"))
okfile=replace(okfile,"$acount$",rsn("acount"))
okfile=replace(okfile,"$aIntime$",rsn("aIntime"))
okfile=replace(okfile,"$aFrom$",naFrom)
okfile=replace(okfile,"$aContent$",page_n(k))
okfile=replace(okfile,"$aInUser$",rsn("aInUser"))
apage=replace(rsn("apage"),".shtml","")
asetpage=""
for j=1 to Ubound(page_n)+1
if j=i then
asetpage=asetpage&"["&i&"]"
elseif j=1 then
asetpage=asetpage&"[]"
else
asetpage=asetpage&"[
"&j&"]"
end if
next
'asetpage="
"
okfile=replace(okfile,"$aSetpage$",asetpage)
myear=year(rsn("aInTime"))&"-"&month(rsn("aInTime"))
if i=1 then
mypage=rsn("apage")
else
mypage=apage&"-haowai-"&i&".shtml"
end if
Set fso1 = Server.CreateObject("Scripting.FileSystemObject")
  Set fout1 = fso1.Createtextfile(Server.MapPath("/"&"article/"&myear&"/"&mypage),true)
 fout1.writeline okfile
fout1.close
'rsn.movenext
'loop
next
end if
rsn.close
set rsn=nothing

大佬总结

以上是大佬教程为你收集整理的超长文章分页并生成静态页实例全部内容,希望文章能够帮你解决超长文章分页并生成静态页实例所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ群:277859234,请注明来意。