bot项目融资方案:asp网页如何分页问题. 关于增加 输入直接到达页面

请问如何才能直接输入分页号. 直达页面呢?

在文档框<input name="temp" type="text"> 输入 .然后点按纽或者回车 则分页直接到达.
以下是我目前用的分页代码. 请高人帮添加上直接到达输入页这项功能

<table width="100%" border="0" cellspacing="0" cellpadding="0" height="60" align="center">
<%dim MaxPerPage:MaxPerPage=100
dim text,checkpage,row_num
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
row_num=0
do while not rs.eof%>

此处是分页内容

<%row_num=row_num+1
if row_num >= MaxPerpage then exit do
rs.MoveNext
Loop%>
</table>
<table width="100%" border="0" cellspacing="2" cellpadding="2" align="center" height="30">
<tr>
<td align="right">第<%=CurrentPage%>页   共<%=Rs.PageCount%>页
<a href="?<%=temp%>page=1">首页</a> |
<a href="?<%=temp%>page=<%=currentpage-1%>">上一页</a> |
<a href="?<%=temp%>page=<%=currentPage+1%>">下一页</a> |
<a href="?<%=temp%>page=<%=Rs.PageCount%>">尾页</a>
共<%=rs.recordcount%>件商品</td>
</tr>
</table>