主题:  帮忙看看这个分页代码里那里有错

無㊣畏╃

职务:普通成员
等级:2
金币:1.0
发贴:371
#12005/2/28 12:02:40
<%


function PageLink

PageShowSize = 10
Scriptname=Request.Servervariables("script_name")
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((GuestTotal-1)/MyPageSize)+1

if Maxpages > 1 then
'if PageNextSize >1 then
' PagePrev=PageShowSize*(PageNextSize-1)
' Response.write "<a href='" & Scriptname &"'><<</a>-"
'end if
if Mypage-1 > 0 then
Prev_Page = MyPage - 1
Response.write "<a href='" & Scriptname & "?page=" & Prev_Page &"'><<</a> "
end if
if maxpages>=PageNextSize*PageShowSize then
PageSizeShow = PageShowSize
else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
end if
for PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*1)-1
if PageLink <> cint(Mypage) then
     Response.write "<a href='" & Scriptname & "?page=" & PageLink & "'><u>" & PageLink & "</u></a> "
else
Response.Write "<SPAN class=digital>" & PageLink & "</SPAN> "
end if
next
if Mypage+1 <=Pagetpage then
Next_Page = MyPage + 1
Response.write "<a href='" & Scriptname & "?page=" & Next_Page &"'>>></a>"
end if
'if maxpages > PageShowSize*PageNextSize then
'PageNext = PageShowSize * PageNextSize + 1
'Response.write "-<a href='" & Scriptname & "?page=" & PageNext&"'>>></a>"
'end if
else
Response.write ""
end if
END function

set rs=nothing
set rs1=nothing
conn.Close
set conn = nothing
%>

没有提示错误,可是在点链接时有点不正常。比如说每页显示十条,而我点到十条信息以后,就不出现11之后的,只显示出来 << 2.3.4 >>这样。
麻烦那位朋友帮忙看一下
图片如下:



無㊣畏╃

职务:普通成员
等级:2
金币:1.0
发贴:371
#22005/2/28 15:28:06
高手们帮忙看一下了,我十在是看不出来了