UC知道ASP 如何控制页面的页码的数量 (页码很多)
来源：百度知道 编辑：UC知道 时间：2024/05/09 06:30:53
如题。比如说，ASP 搜索的出来的资源有100多页，页码就有100多个，占很大的地方，如何控制页码的显示数量？
大家帮帮我，可以选择以下两个方案：
（1）多于10页的显示10页，然后单击[下10页]，打开后续的页码。
（2）像百度一样，当前页码的页码，永远在这10个页码的最中间。
大家随便选一个方案，帮我解决一下，多谢！
如何满意，再加分50！
附：假设我的页码链接为：
<a href="search.asp?page=1&search=美女">1</a>
<a href="search.asp?page=2&search=美女">2</a>
大家帮帮我，可以选择以下两个方案：
（1）多于10页的显示10页，然后单击[下10页]，打开后续的页码。
（2）像百度一样，当前页码的页码，永远在这10个页码的最中间。
大家随便选一个方案，帮我解决一下，多谢！
如何满意，再加分50！
附：假设我的页码链接为：
<a href="search.asp?page=1&search=美女">1</a>
<a href="search.asp?page=2&search=美女">2</a>
好了,测试下
lCur '当前页面号
lPgCT=rs.PageCount '页面总数
lDispNum =10 '页面显示中每页显示的页码连接的数量
strUrl=""
lPre=(lCur \ lDispNum-1) * lDispNum
lNext=(lCur \ lDispNum+1) * lDsipNum
if lPre>0 then
strUrl="<a href=""search.asp?Page=" & CStr(lPre) & "&search=美女"">前" & CStr(lDispNum) & "页</a>" & vbCrLf
end if
for lLpV=1 to lDispNum
if lPre+lDispNum+lLpV<> lCur then
strUrl=strUrl & "<a href=""search.asp?Page=" & CStr(lPre+lDispNum+lLpV) & "&search=美女"">" & CStr(lPre+lDispNum+lLpV) & "</a>" & vbCrLf
else
strUrl=strUrl & CStr(lPre+lDispNum+lLpV) & vbCrLf
end if
Next
if lNext<lPgCT then
strUrl=strUrl & "<a href=""search.asp?Page=" & CStr(lNext) & "&search=美女"">后" & CStr(lDispNum) & "页</a>"