asp分页转到那个分页数代码

Question

<P align="center" class="STYLE4">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=xx_luoyan.asp?page=1>首页</a> "
response.write "<a href=xx_luoyan.asp?page=" & Page-1 & ">上一页</a> "
end if
if rl.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=xx_luoyan.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=xx_luoyan.asp?page="&rl.pagecount&">尾页</a>"
end if

response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rl.pagecount&"</strong> 页 "
response.write " 共<b><font color='#FF0000'>"&rl.recordcount&"</font></b>条记录 <b>"&rl.pagecount&"</b>条记录/页"

%>
</P>

以上是这样的分页

首页 上一页 下一页 尾页 页次：1/4 页 共28条记录 4条记录/页

我需要在这里插入一个转到第几页的文本框。。有谁能帮帮我呢，

Answer 1

我写的函数,你把参数写上去调用就行了.
'**************************
'函数名：showPage
' 功能：页码分页。
' 参数：totalPage--总页数。
' page--当前页码
' url--地址，带后缀(不用带page，里面已经定义了),如果还有其他url参数也要带上。
' 返回值：无
' 注意："<font color='#999999'>下一页 末页</font>"中的color属性的值要完整，否则起不到作用。
sub showPage(totalPage,page,url)
if instr(url,"?")>0 then
url=url&"&"
else
url=url&"?"
end if
response.Write("总共 "&totalPage&" 页  ")
if page<2 then
response.Write("<font color='#999999'>首页  上一页</font>  ")
else
response.Write("<a href='"&url&"page=1'>首页</a>  <a href='"&url&"page="&page-1&"'>上一页</a>  ")
end if
if totalPage-page<1 then
response.Write("<font color='#999999'>下一页  末页</font>")
else
response.Write("<a href='"&url&"page="&page+1&"'>下一页</a>  <a href='"&url&"page="&totalPage&"'>末页</a>")
end if
response.Write("  页次 "&page&"/"&totalPage&" 记录 "&totalRs)
dim selection
selection="<select name='selectPage' onchange=""javascript:window.location.href='"&url&"page="&"'+selectPage.options[this.selectedIndex].value;"&""">"
dim i
for i=1 to totalPage
if i=page then
selection=selection+"<option value='"&i&"' selected='selected'>第"&i&"页</option>"
else
selection=selection+"<option value='"&i&"'>第"&i&"页</option>"
end if
next
selection=selection&"</select>"
response.Write(selection)
end sub

Answer 2

<form name=form1 method=post action="">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=xx_luoyan.asp?page=1>首页</a> "
response.write "<a href=xx_luoyan.asp?page=" & Page-1 & ">上一页</a> "
end if
if rl.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=xx_luoyan.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=xx_luoyan.asp?page="&rl.pagecount&">尾页</a>"
end if

response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rl.pagecount&"</strong> 页 "
response.write " 共<b><font color='#FF0000'>"&rl.recordcount&"</font></b>条记录 <b>"&rl.pagecount&"</b>条记录/页 转到第<input name=page type=text size=2 value="&page&">页"

%>
</form>

Answer 3

给你个例子吧，我做给朋友看的
演示地址www.sdpmv.com
下载地址www.sdpmv.com/code.rar