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

<%
If Len(Trim(Request("p")))=0 Then '返回目标页码的判断
page=1
Else
page=CInt(Trim(Request("p")))
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 "<br><center><b>该分类暂没添加网站！</b></center>"
end If
If not (rs.bof and rs.eof) then
rs.AbsolutePage=p

搂主很粗心.呵呵.你提取的是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 "<br><center><b>该分类暂没添加网站！</b></center>"
end If