asp生成html静态页面时,分页代码怎么处理?
发布网友
发布时间：2022-04-06 11:57
共1个回答
热心网友
时间：2022-04-06 13:27
/html/news_新闻ID.html吧
<%
'处理接收分页得参数,显示页数 也就默认第一页
'page这个参数就是让变量pagenum去显示第一也得值:0
if Request("page")="" then
pageNum=0
'下面就是page接参数
else
pageNum=Request("page")
end if %>
<%
'这里就是关键了 把你得内容字段赋给 MMText
MMText=Replace((rsn("Content")),"|||"," ||| ")
%>
<%
'使用函数splist取出分段存入MMfText中
MMfText=split(MMText,"|||")
'下面就是url取得得页面变量
for i = pageNum to pageNum
%>
<%=MMfText(i)%>
<% Next %>
本文章共分:第
<%
for p = 0 to ubound(MMfText)
%>
[<a href="flnews.asp?kz_class=<%=rsn("type")%>&kz_id=<%=rsn("id")%>&page=<%=p%>"class="text"><%=p+1%></a>]
<% next %>
页
这是生成静态页面的文件
<!--#include file="cona.asp"-->
<LINK href="style.css" type=text/css rel=stylesheet>
<%
Server.ScriptTimeout = 9999 '生成时间长时开启此项
fso_1="html" '保存目录,请先自行创建该文件夹根目录下
fso_2="new" '生成文件名前辍
litcn_mb="mb_show.asp" '模板文件
infoid=request("infoid")
n=request("n")
on error resume next
%>
<%
set rs_1=server.createobject("adodb.recordset")
if infoid<>"" then
sql="select * from kznews where id="&infoid
elseif n<>"" then
sql="select top "&n&" * from kznews order by id desc"
else
sql="select * from kznews where id="&infoid
end if
i=1
rs_1.open sql,connad,1,2
do while not rs_1.eof
response.write"<p>开始导入数据：编号为"&rs_1("id")&"、"&rs_1("title")&"<br>"
Response.Flush
//定义变量
fsoid=rs_1("id")
title=rs_1("title") '标题
types=rs_1("type") '类别
editor=rs_1("editor") '作者
dates=rs_1("date") '更新时间
hits=rs_1("hits") '点击次数
content=rs_1("content") '内容
<%//生成部分
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set type_d = fso.opentextfile(server.mappath(litcn_mb),1,True)
pencat= type_d.ReadAll
pencat=replace(pencat,"{infoid}",fsoid)
pencat=replace(pencat,"{title}",title)
pencat=replace(pencat,"{type}",types)
pencat=replace(pencat,"{editor}",editor)
pencat=replace(pencat,"{date}",dates)
pencat=replace(pencat,"{hits}",hits)
pencat=replace(pencat,"{content}",content)
pencat=replace(pencat,"{creattime}",now())
Set type_x = fso.CreateTextFile(server.mappath("/" & fso_1 & "/" & fso_2 & "_" & i & ".html"),true)
type_x.WriteLine pencat
set fso = nothing
type_d.close
type_x.close
response.write "成功完成生成页面：编号[" & fsoid & "]存放路径<a href=/" & fso_1 & "/" & fso_2 & "_" & i & ".html target=_blank>" & fso_2 & "_" & i & ".html</a></p>"
Response.Flush
%>
<%
'提取下一条信息
i=i+1
rs_1.movenext
loop
response.write"<font color=red><b>全部完成！共生成"&i&"个页面。</b></font>"
rs_1.close
set rs_1=nothing
%>
