UC知道asp分页程序出错 请大家帮忙 急急急
来源：百度知道 编辑：UC知道 时间：2024/04/30 09:07:33
由于代码过多没法全贴上来,我只把网页中间部分考上来了,请大家帮帮我这初学者啊!!!!!!
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
page=clng(request("page"))
Set rsnew=Server.CreateObject("ADODB.RecordSet")
sql="select * from news where ClassName='"&BigClass&"' order by id desc"
rsnew.Open sql,conn,1,1
if(rsnew.EOF) then
Response.Write("暂时没有任何信息！")
Response.end
end if
%>
<%
rsnew.PageSize=20
if page=0 then page=1
pages=rsnew.pagecount
if page > pages then page=pages
rsnew.AbsolutePage=page
for j=1 to rsnew.PageSize
%>
<tr>
<td width="6%" height="24" align="center" >·</td>
<td height="24">
<a href="/inc/newsReader.asp?
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
page=clng(request("page"))
Set rsnew=Server.CreateObject("ADODB.RecordSet")
sql="select * from news where ClassName='"&BigClass&"' order by id desc"
rsnew.Open sql,conn,1,1
if(rsnew.EOF) then
Response.Write("暂时没有任何信息！")
Response.end
end if
%>
<%
rsnew.PageSize=20
if page=0 then page=1
pages=rsnew.pagecount
if page > pages then page=pages
rsnew.AbsolutePage=page
for j=1 to rsnew.PageSize
%>
<tr>
<td width="6%" height="24" align="center" >·</td>
<td height="24">
<a href="/inc/newsReader.asp?
上网找一个分页类，方便好用
你的代码我没看 我直接给你个
<%
'读取留言信息
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from message where shenghe=1 order by id desc"
rs2.open sql2,conn,1,3
if rs2.pagecount=0 then
%>
<td>暂时内容</td>
<%else
if not rs2.eof then
rs2.pagesize=6
page = CLng(request.QueryString("page"))
If page < 1 Then page = 1
If page > rs2.PageCount Then page = rs2.PageCount
end if
if page="" then page=1 end if
rs2.absolutepage=page
pagenum=rs2.pagecount
for i=1 to rs2.pagesize
if rs2.eof then
exit for
end if%>
<td>内容</td>
<%rs2.movenext
next
end if%>
<a href="index.asp">首页</a><img src="kong" width="10" height="5">
<%i