我想在输入第几页后，点击《转到》能够直接到达那页，可是执行后却是？在线等待

[yanxiaoli]

http://www.cosa.com.cn/admin/admin.asp?currentpage=
上面就是显示的网页，currentpage=后面加不上去，刚才输入的数字
下面是那段的代码，请帮我看看
<form method=post action="admin.asp?currentpage=<%=request("page")%>">
<br> 转到 <input type="text" name="page" size=4 maxlength=10 value=<%=currentpage%>>
<input type="submit" value="Goto" name="cndok"> </form>

[huagou]

<%
Set rs=server.CreateObject("adodb.recordset")
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)

rs.open SQL,conn,1,1

if not rs.eof then

'每页显示的记录数
rs.pagesize = 20

totalrec=rs.recordcount
totalpage=rs.pagecount
if page>totalpage then page=totalpage
rs.absolutepage=page
%>
<% do while not rs.eof and (i<rs.pagesize) %>
<!--此处显示需要循环显示的字段-->
<%
rs.movenext
loop
%>

<table>
<tr colSpan=5 height="30" width="555">
<div align="left"> <font color="red" face="Verdana" style="font-size: 9pt"><%=page%></font><font face="Verdana" style="font-size: 9pt">/<%=totalpage%> 页</font></b>
<font color=666666>
<span style="font-size: 9pt">
<%if page>1 then%>
<a href="?page=<%=page-1%>">
<span style="text-decoration: none" title="上一页">上页</span></a></span></font><span style="font-size: 9pt">
<%else%> 上页<%end if%>
<%if page+1<=totalpage then%>
<font color=666666>
<a href="?page=<%=page+1%>" title="下一页">
<span style="text-decoration: none">下页</span></a></font>
<%else%> 下页
<%end if%> </span></tr>

<tr><span style="font-size: 9pt">转到：第</span>
<select name="page" onchange="javascript:window.location.href=this.options[this.selectedIndex].value" style="font-size: 9pt">
<%for i = 1 to totalpage%>
<option value='?page=<%=i%>' <%if cint(Page)=cint(i) then%> selected <%end if%>><%=i%></option>
<%next%>
</select>页

[孟子E章]

<%@ Language=VBScript %>
<!--#include file="cn.asp"-->
<%



'Response.Write "<h3>分页例子（通用分页方法）</h3>"


'************************************************************************************
'
' 分页函数的例子
'
'************************************************************************************

' 定义当前页
Dim CurrentPage
' 文件名
Dim FileName
'每页显示的记录个数
Dim PageItems
PageItems = 5


FileName = "_page.asp"



'定义变量
Dim cn,rs,Sql

Sql = "select CustomerID from Orders"

'记录总数
'记录总数
Dim TotalNumbe
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=NorthWind;Data Source=.;Password=;"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, cn, 3, 1
TotalNumber = rs.RecordCount
If TotalNumber = 0 Then
Response.Write "没有记录输出。"
Else
Dim jj,nLeft,cCol
jj = 0
nCol = 18
nLeft = nCol- (TotalNumber Mod nCol)
If nLeft = nCol Then nLeft = 0
Response.Write "<table border><tr>" & vbCrLf
While not rs.EOF
Response.Write "<td>" & rs("CustomerID") & "</td>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj <> TotalNumber - 1 Then Response.Write "</tr><tr>" & vbCrLf
'If (jj Mod nCol) = (nCol - 1) And jj = TotalNumber-1 Then Response.Write "</tr>" & vbCrLf

If (jj Mod nCol) = (nCol - 1) Then
If jj <> TotalNumber - 1 Then
Response.Write "</tr><tr>" & vbCrLf
Else
Response.Write "</tr>" & vbCrLf
End If
End If
jj = jj + 1
rs.MoveNext
Wend
If nLeft <> 0 And nLeft <> nCol Then
If nCol < TotalNumber Then
For i = 1 to nLeft
Response.Write "<td> </td>" & vbCrLf
Next
End If
Response.Write "</tr>" & vbCrLf
End If
Response.Write "</table>"
End If
'rs.Close
'Set rs = Nothing
'cn.Close
'Set cn = Nothing
'Response.End

'


rs.MoveFirst

CurrentPage = Request.QueryString("page")
If CurrentPage = "" Then CurrentPage = Request.Form("page")
CurrentPage = Trim(CurrentPage)
If IsNumeric(CurrentPage) = False Then CurrentPage = 1
CurrentPage = CLng(CurrentPage)
Dim n
If TotalNumber Mod PageItems = 0 Then
n = TotalNumber \ PageItems
Else
n = TotalNumber \ PageItems + 1
End If
If CurrentPage < 1 Or CurrentPage > 1000 Then CurrentPage = 1
If CurrentPage > n Then CurrentPage = n

Dim j,i
j = 1
Response.Write "<table border style='font-size:9pt'><tr><td> </td>"
For i = 0 To rs.Fields.Count - 1
Response.Write "<td>" & rs.Fields(i).Name & "</td>"
Next
Response.Write "</tr>"
If CurrentPage > 0 Then rs.Move (CurrentPage - 1) * PageItems
While (j <= PageItems) And Not rs.EOF
Response.Write "<tr>"
For i = 0 To rs.Fields.Count - 1
Response.Write "<td>" & ((CurrentPage - 1) * PageItems + j) & "</td><td>" & rs(i).Value & "</td>"
Next
j = j + 1
rs.MoveNext
Response.Write "</tr>"
Wend
rs.Clone
Set rs = Nothing
Response.Write "</table>"

ShowPages TotalNumber, PageItems, FileName, n



'定义分页的函数，以TotalNumber，PageItems，FileName，n作为函数的入口。
Function ShowPages(TotalNumber, PageItems, FileName,n)
Response.Write "<table width='100%' style='font-size:9pt'>" & vbCrLf
Response.Write "<form method=Post action=" & filename & ">" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td align=center>" & vbCrLf
Response.Write "共" & TotalNumber & "条 每页" & PageItems & "条 当前是第" & n & "页 "
If CurrentPage < 2 Then
Response.Write "<font color='#999966'>首页 上一页</font> "
Else
Response.Write "<a href=" & FileName & "?page=1>首页</a> "
Response.Write "<a href=" & FileName &"?page=" & CurrentPage-1 & ">上一页</a> "
End If
If n - CurrentPage < 1 Then
Response.Write "<font color=999966>下一页 尾页</font>"
Else
Response.Write "<a href=" & FileName & "?page=" & (CurrentPage + 1)
Response.Write ">下一页</a> <a href=" & FileName & "?page=" & n & ">尾页</a>"
End If
Response.Write " 页次：<b><font color=red>" & CurrentPage & "</font>/" & n &"</b>页 "
Response.Write " 转到：<input name='page' size=4 maxlength=10>"
Response.Write "<input class=buttonface type=submit value='转到'>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</form>"
Response.Write "</tr>"
Response.Write "</table>" & vbCrLf
End Function
%>

[yanxiaoli]

如果手动在上面currentpage=加个数字,也会跳转过去,就是不会自动添加上去?

[yanxiaoli]

能不用ASP解释一下啊

[huagou]

转到：第
<select name="page" onchange="javascript:window.location.href=this.options[this.selectedIndex].value" style="font-size: 9pt">
<%for i = 1 to totalpage%>
<option value='?page=<%=i%>' <%if cint(Page)=cint(i) then%> selected <%end if%>><%=i%></option>
<%next%>
</select>
页

[huagou]

这个还是我大花狗的精简,我用了好长时间了。
好用。

[yanxiaoli]

大花狗啊，不行喂，那个下拉列表，不显示任何数字的