UC知道ASP分页显示，帮我检查一下
来源：百度知道 编辑：UC知道 时间：2024/05/08 18:05:24
<%
rs2.close
set rsp=server.CreateObject("adodb.recordset")
strsqlp="select * from [comments] where newsid="&id
rsp.open strsqlp,conn,3,3
if rsp.eof and rsp.bof then
response.Write"暂无评论!!!"
else
%>
<table width="100%">
<%
dim page
page=request.QueryString("page")
rsp.pagesize=3
if page="" or page<1 then page=1
if page>rsp.pagecount then page=rsp.pagecount
rsp.absolutepage=page
for xpage=1 to rsp.pagesize
recordno=(page-1)*rsp.pagesize+xpage
%>
<tr bgcolor="#999999">
<td align="left" valign="top">第<%=recordno%>楼</td><td align="center" valign="top">发表者:<%=rsp("user")%></td><td align="right" valign="top">发表时间:<%=rsp("time")%></td></tr>
<tr&g
rs2.close
set rsp=server.CreateObject("adodb.recordset")
strsqlp="select * from [comments] where newsid="&id
rsp.open strsqlp,conn,3,3
if rsp.eof and rsp.bof then
response.Write"暂无评论!!!"
else
%>
<table width="100%">
<%
dim page
page=request.QueryString("page")
rsp.pagesize=3
if page="" or page<1 then page=1
if page>rsp.pagecount then page=rsp.pagecount
rsp.absolutepage=page
for xpage=1 to rsp.pagesize
recordno=(page-1)*rsp.pagesize+xpage
%>
<tr bgcolor="#999999">
<td align="left" valign="top">第<%=recordno%>楼</td><td align="center" valign="top">发表者:<%=rsp("user")%></td><td align="right" valign="top">发表时间:<%=rsp("time")%></td></tr>
<tr&g
首先第一部分代码如下:
<%
set db=server.createobject("adodb.connection")
db.open "dbq=" & server.mappath("你的数据库") & ";driver={microsoft access driver (*.mdb)}"
set rs=server.createobject("adodb.recordset")
sql查询语句
rs.open sql,db,1
dim page_size,page_no,page_total
page_size=一页显示多少条记录
if request.querystring("page_no")="" then
page_no=1
else
page_no=cint(request.querystring("page_no"))
end if
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_no
dim i
i=page_size
do while not rs.eof and i>0
i=i-1
%>
第2部分为显示的数据记录集
第3部分代码如下
<%
rs.movenext
loop
%>
response.write "请选择页数:"
for i=1 to page_total
if i=page_no then
response.write i &" "
else
response.write "<a href=当前文件名?page_no="& i &"