求教各位大神，这段代码的转到第几页为什么无效？ - asp吧

level 1

枫叶HJF 楼主

<%
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
const MaxPerPage = 10 '定义每一页的记录条数
'获取当前页面
if not isempty(request("page")) then
currentPage = cint(request("page"))
else
currentPage = 1
end if
'获取记录总数和总页数
Set Rs = Conn.execute("select count(*) from unionuser ")
totalPut = cint(rs(0))
if totalPut mod maxperpage = 0 then '假如有20条记录，TotalPages = 2 页，假如有25条记录，TotalPages = 2 + 1
TotalPages = totalPut \ maxperpage
else
TotalPages = totalPut \ maxperpage + 1
end if
Set rs= Server.CreateObject ("ADODB.RecordSet")
rs.open "select * from unionuser order by id desc LIMIT "&(currentPage-1)*MaxPerPage&","&MaxPerPage,conn,1,3
'--------------------------------------------------------------------------------------调用内容和分页函数
call showcontent
call showpage
'--------------------------------------------------------------------------------------内容
sub showcontent
response.write "<table width=""100%"" border=""1"" align=""center"">"
response.write " <tr>"
response.write " <td>id</td>"
response.write " <td>userid</td>"
response.write " <td>userpassword</td>"
response.write " <td>nickname</td>"
response.write " <td>gender</td>"
response.write " </tr>"
dim i
i=0
do while not rs.eof
'-----------------------------------------------------------------------------
'显示内容
'-----------------------------------------------------------------------------
id = rs("id")
userid = rs("userid")
userpassword = rs("userpassword")
nickname = rs("nickname")
gender = rs("gender")
%>
<tr>
<td><%=id%></td>
<td><%=userid%></td>
<td><%=userpassword%></td>
<td><%=nickname%></td>
<td><%=gender%></td>
</tr><%
i=i+1
if i >= MaxPerPage then exit do
rs.movenext
loop
%></td>
</tr>
</table><%
end sub
'------------------------------------------------------------------------------------------分页
sub showpage
response.Write("<table><TR><TD>")
response.write "<form name=myform method=get action="""">"
if CurrentPage<2 then
' 显示页数链接的条件
response.write "<font color='#999999'>首页上一页</font> "
else
response.write "<a href=?page=1>首页</a> "
response.write "<a href=?page="&CurrentPage-1&">上一页</a> "
end if
if TotalPages-currentpage<1 then
response.write "<font color='#999999'>下一页尾页</font> "
else
response.write "<a href=?page="&(CurrentPage+1)
response.write ">下一页</a> <a href=?page="&TotalPages&">尾页</a> "
end if
response.write "<font color='#000000'>页次</font> <font color=red>"&CurrentPage&"</font><font color='#000000'>/"&TotalPages&"页</font> "
response.write "<font color='#000000'>共<b>"&totalPut&"</b>个 <b>"&maxperpage&"</b>个/页</font>"
response.write " <font color='#000000'>转到：</span>"
response.Write("<select name='page' onchange='{this.document.myform.submit();return true;}'>")
for i=1 to TotalPages
if i=currentPage then
response.Write("<option selected value="&i&">")
else
response.Write("<option value="&i&">")
end if
response.Write("第"&i&"页</option>")
next
response.Write("</td></tr></table>")
response.Write("</ select></form>")
end sub
%>求教各位大神，这段代码的转到第几页为什么无效？

2014年05月10日 12点05分 1