以下是分页代码的一个过程，可是我想加一些功能，现在只有第一页，最有一页上一页下一页，我想增加只能跳到第几页的功能，该怎么加呢？最好也能列出每页页码，谢谢 在线等：

SUB ListPage ()
if trim(Request.form("PageNo")) = "" Then
PageNo = 1
else
PageNo = cint(Request.form("PageNo"))
end if
ScrollAction = Request.form("ScrollAction")
if ScrollAction = "上一页" Then
PageNo=PageNo-1
elseif ScrollAction = "下一页" Then
PageNo=PageNo+1
elseif ScrollAction = "第一页" Then
PageNo=1
elseif ScrollAction = "最后一页" Then
PageNo=rs.pagecount
end if
if PageNo < 1 Then PageNo = 1
response.write left(session ("ListPage"),len(session("ListPage"))-7)
response.Write "当前页：第 <font color=red>"& PageNo &"</font> 页&nbsp;&nbsp;&nbsp;&nbsp;"
if PageNo > 1 Then
response.write" <input type=""submit"" name=""ScrollAction"" value=""第一页"">&nbsp;"
response.write" <input type=""submit"" name=""ScrollAction"" value=""上一页"">&nbsp;"
end if
if rs.pagecount > 1 and PageNo <>rs.pagecount then
response.write" <input type=""submit"" name=""ScrollAction"" value=""下一页"">&nbsp;"
response.write" <input type=""submit"" name=""ScrollAction"" value=""最后一页"">&nbsp;"
end if
response.write"</form>"
rs.close
set rs = nothing
END SUB

[QUOTE]Response.Write("转到<select name=""gotopage"" onChange=""if (this.options[this.selectedIndex].value!=''){window.location=this.options[this.selectedIndex].value;}"" style=""font-size:12px; height:16px; border=0;"" valign=""middle"">")
For I = 1 To rs.pagecount
If Page - I = 0 Then
Selected = " selected"
Else
Selected = ""
End If
Response.Write("<option value='"& TurnPageName &"?Page="& I &"' "& Selected &">第"& I &"页</Option>")
Next
Response.Write("</select>")[/QUOTE]

把这段加到相应的位置

好人啊  我试试看 谢谢

不行的好像，

功能不能实现还是

这个是全部代码

里面的一个SUB ListPage () 函数

是点击相应的页面后不能跳转吗？

下面是我做的视频 帮忙看看啊