（ASP）求修改此函数

来源：百度知道 编辑：UC知道 时间：2024/05/28 23:25:58
这是昨天写的一段显示页码的函数。
pagenum是总页数，pagenow是当前所在的页码，pagewide是显示当前页码左右多少页码的个数的。
<%
Function ConvertPage(pagenum,pagenow,pagewide)
pageleft=pagenow-pagewide
pageright=pagenow+pagewide
if pageright<pagenum then zPage=" ..."
if pageleft>pagewide then xPage="... "
pagenow_style="<font color=red>"&pagenow&"</font>"

for pagec=pagenow-1 to pageleft step -1
if pagec<=0 then
exit for
end if
leftP=pagec&" "&leftP
next

for paget=pagenow+1 to pageright
if paget>pagenum then
exit for
end if
rightP=rightP&" "&paget
next
ConvertPage=xPage&leftP&" "&pagenow_style&" "&rightP&zPage
End Function

'演示
pagenum=101
pagenow=95
pagewide=5
Response.Write ConvertPage(pagenum,pagenow,pagewide)
%>
<

这样就可以：
<%
Function ConvertPage(pagenum,pagenow,pagewide)
if pagenow>pagewide then
pageleft=pagenow-pagewide
pageright=pagenow+pagewide
else
pageleft=1
pageright=pagewide*2+1
end if
if pageright>pagenum then
pageright=pagenum
pageleft=pagenum-pagewide*2
if pageleft<1 then pageleft=1
end if
if pagenow>=pageleft+pagewide and pageleft<>1 then xPage="... "
if pagenow<pagenum-pagewide then zPage=" ..."
for i=pageleft to pageright
if pagenow=i then
pagestr=pagestr&" <font color=red>"&i&"</font>"
else
pagestr=pagestr&" "&i
end if
next
ConvertPage=xPage&pagestr&zPage
End Function

pagenum=101
pagenow=95
pagewide=5
Response.Write ConvertPage(pagenum,pagenow,pagewide)
%>