帮我看下asp分页代码,哪里错误

给你一个分页代码

<%
set rs=server.createobject("adodb.recordset")
sql="select * from shop_snsn order by shopid desc"
rs.open sql,conn,1,1
if rs.eof then
response.write ("没有资料")
else
%>
<%
page=clng(request("page"))
rs.pagesize=50
if page="" or page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
if rs.pagecount>0 then
rs.absolutepage=page
end if
for i=1 to rs.pagesize
%>



<%rs.movenext%>
<%
if rs.eof then
exit for
end if
%>
<%next%>

[首页]

[上一页]

[下一页]

[末页]

[第<%=page%>页]

[共<%=rs.pagecount%>页]

[共<%=rs.recordcount%>商品]

<%end if%>

N行N列加分页代码

<%
set rs3=server.createobject("adodb.recordset")
sql3="select * from shop_jiangpin order by shopid desc"
rs3.open sql3,conn,1,1
if request("page")="" then
page=1
elseif request("page")<1 then
page=1
else
page=request("page")
end if
rs3.pageSize=3 '每页显示几个记录
rs3.absolutePage=page
if rs3.recordcount=0 then
response.write "没有记录"
else
if rs3.eof then
response.write "没有相关记录"
else
response.write ""
for i=1 to rs3.pagesize
response.write ""
j=j+1
m=3
If j>m-1 Then
Response.Write ""
j=0
End If
rs3.movenext
if rs3.eof then exit for
next
Response.Write "

" '查询数据开始 response.write "" response.write "" '查询数据结束 response.write "

"
end if
end if
%>
<%
Response.Write "共"&rs3.recordcount&"件礼品"
Response.Write "共"&rs3.pagecount&"页"
Response.Write "第"&page&"页"
Response.Write "首页"
if page<>1 then
Response.Write "上一页"
else
Response.Write "上一页"
end if
if page+1>rs3.pagecount then
Response.Write "下一页"
else
Response.Write "下一页"
end if
Response.Write "尾页"
rs3.close
set rs3=nothing
%>

搂主很粗心.呵呵.你提取的是p但是你传的却是page

<%
If Len(Trim(Request("page")))=0 Then '返回目标页码的判断
page=1
Else
page=CInt(Trim(Request("page")))
End if
set rs=Server.CreateObject("ADODB.RecordSet")
If Request("o")="3" then
sql="select * from info where ClassID_id='"&request("d")&"' and check=1 order by pr asc"
ElseIf Request("o")="4" then
sql="select * from info where ClassID_id='"&request("d")&"' and check=1 order by alexa desc"
Else
sql="select * from info where ClassID_id='"&request("d")&"' and check=1 order by infoid asc"
end if
rs.open sql,conn,1,1
rs.PageSize=10
If rs.bof and rs.eof then
response.write "