Question

ASP 搜索后，分页不正常

附上代码！十万火急，多谢多谢！！！

Answer 1

fox=trim(request("fox"))
keyword=trim(request("keyword"))
session("foxx")=trim(request("keyword"))
bd=session("foxx")

这里好像没意思直接
fox=trim(request("fox"))
keyword=trim(request("keyword"))
bd=keyword
在传到下一页时
"<a href=?fox="&fox&"&page="&ThisPage-1&"&keyword="&bd&">上一页</a>"

"<a href=?fox="&fox&"&page="&(ThisPage+1)&"&keyword="&bd&">下一页</a>"

使用这种分页代码好用一点
<%sub listpages(mycondition)
if pages<1 then
exit sub
end if
response.write " 页码:"
if p>0 then
response.write "<a href="&request.ServerVariables("script_name")&"?currentpage=10&p="&p-1&mycondition&">[上十页]</a> "
end if

'-------------------下面写出当前十个页码

for i=1 to 10
if (p*10+i)>pages then exit for
if currentpage=i then
response.write "[<a style='font-weight:bold;color:blue;' "
else
response.write "[<a "
end if
response.write "href="&request.ServerVariables("script_name")&"?currentpage="&i&"&p="&p&mycondition&">"&(p*10+i)&"</a>] "
next

'--------------------察看下十页的连接
if (p*10+10)<pages then
response.write "<a href="&request.ServerVariables("script_name")&"?currentpage=1&p="&p+1&mycondition&">[下十页]</a>"
end if
'-----------------------------------------------上下页导航
response.write "   "
if p>0 and currentpage=1 then
response.write "<a href="&request.ServerVariables("script_name")&"?currentpage=10&p="&p-1&mycondition&">[上页]</a> "
elseif currentpage>1 then
response.write "<a href="&request.ServerVariables("script_name")&"?currentpage="¤tpage-1&"&p="&p&mycondition&">[上页]</a> "
end if
' '===上页
if (p*10+currentpage)<pages and currentpage=10 then
response.write "<a href="&request.ServerVariables("script_name")&"?currentpage=1&p="&p+1&mycondition&">[下页]</a> "
elseif (p*10+currentpage)<pages then
response.write "<a href="&request.ServerVariables("script_name")&"?currentpage="¤tpage+1&"&p="&p&mycondition&">[下页]</a> "
end if
' '===下页
if (p*10+currentpage)>1 then
response.write "<a href="&request.ServerVariables("script_name")&"?currentpage=1&&p=0"&mycondition&">[首页]</a> "
end if
' '===首页
if (p*10+currentpage)<pages then
response.write "<a href="&request.ServerVariables("script_name")&"?currentpage="&((pages-1) mod 10)+1&"&p="&((pages-1)\10)&mycondition&">[尾页]</a> "
end if
'===尾页
response.write "<samp style='color:#ffffff;'>第<b>"&(p*10+currentpage)&"/"&Pages&"</b>页 共<b>"&Records&"</b>条记录</samp>"
end sub
sub myPages(myRS,mysize) '------mysize为内部变量（主页面没有定义），myRS为主页面传递过来的RS对象（地址传递）
if myRS.eof and myRS.bof then str="没有纪录"
if str="" then
if mysize="" or NOT IsNumeric(mysize) then
mysize=15
end if
myRS.PageSize=mysize
pages=myRS.pagecount
records=myRS.recordcount
On Error Resume Next '取得数字
currentPage=request("currentPage")
if currentPage="" then
currentPage=1
end if
currentPage=CInt(currentPage)
if Err.Number <> 0 Then
currentPage=1
Err.Clear
end if
if currentPage<1 then
currentPage=1
elseIf currentPage>10 then
currentPage=10
end if
'----------------处理p
p=request("p")
if p="" then
p=0
end if
p=CLng(p)
if Err.Number <> 0 Then
p=0
Err.Clear
end if
if p<0 then
p=0
end if
'--判断是否出了页数范围
nowPage=p*10+currentPage
if nowPage>pages then
p=(pages-1)\10
currentPage=((pages-1) mod 10)+1
end if
myRS.absolutepage=p*10+currentPage
else
currentPage=1
records=0
pages=1
end if
end sub
dim pages,records,currentPage,p '--------定义变量，这些变量在主页面中，进行地址传递%>
调用时
myPagesize=10
set rs=server.CreateObject("adodb.recordset")
sql="select * from tsjy "
rs.open sql,conn,1,1
myPages rs,myPagesize
'mycondition="&keyword="&keyword '-----如还有关键字这个附加条件，注意开始有个&。
if not rs.eof then
line=myPagesize
do while not rs.eof and line>0
line=line-1
.....
rs.movenext
loop
end if
<%call listpages(mycondition)%>
求采纳为满意回答。