asp分页代码怎么用？

来源：百度知道 编辑：UC知道 时间：2024/05/27 08:47:49
下面有一个显示数据库字段的代码，但是我只是用<!--#include file="1.txt"-->调用小说内容，请问怎么分页？我不会改<%dim articleStr,CurrentPage,Maxlen,totalLen,i,j,narticleStr = rs("content") '从数据库中读取的内容Maxlen = 1000

<%
Dim currentpage,page_count,Pcount
dim totalrec,endpage
currentPage=request("page")
if currentpage="" then
currentpage=1
else
currentpage=clng(currentpage)
if err then
currentpage=1
err.clear
end if
end if
%>
以下是连接数据库
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from "你的表名"where "条件""
rs.open sql,conn,1,1
if not rs.eof then '1.判断是否有记录
rs.PageSize = 18 '每页18条记录
rs.AbsolutePage=currentpage
page_count=0
while (not rs.eof) and (not page_count =18)
for a=1 to rs.PageSize
page_count = page_count + 1
rs.movenext
if rs.eof then exit for
next
wend
Pcount=rs.PageCount
end if
%>
分页开始
<%
if currentpage > 4 then
response.write "<a href=""?page=1">[1]<