Question

asp 分页问题，增加跳转到第几页代码。

<%
dim c1,c2 '定义两个变量，分别表示前后两部分的开始页码
dim cc1,cc2 '分别定义前后两部分的结束页码
'下面限制导航条显示15个页码链接，page是当前页数，已经过正确性处理
c1 = page - 7
c2 = page + 7
cc1 = page - 1
cc2 = page + 1
if c1 < 1 then c1 = 1 '此处很关键，它符合页数不小于1的要求
if page>1 then response.write("<a href="""&filename&"page="&page-1&""">上一页</a>")
for i = cc1 to c1 step -1
pp = cc1 + c1 - i
pp2=pp
if len(pp2)=1 then pp2="0"&pp2
Response.write " <a href="&filename&"Page="&pp&">"&pp2&"</a>"
next
if len(page)=1 then
Response.write " <b class='avt'>"&"0"&page&"</b>"
else
Response.write " <b class='avt'>"&page&"</b>"
end if
for j = cc2 to c2
if j > allpage then exit for
j2=j
if len(j2)=1 then j2="0"&j2
Response.write " <a href="&filename&"Page="&j&">"&j2&"</a>"
next
if page<allpage then response.write(" <a href="""&filename&"page="&page+1&""">下一页</a>")
Response.write " <input name=""Page"" type=""text"" id=""Page"" size=""8""/>"
Response.write " <input type=""submit"" name =""button"" id=""button"" value=""转到"" />"
%>

Answer 1

if page<allpage then response.write(" <a href="""&filename&"page="&page+1&""">下一页</a>")
这句下边的改为以下代码
Response.write "转到：<select name=page class=pageselect onChange='javascript:location.href=this.options[selectedIndex].value' size='1'>"
for n=1 to rs.pagecount
Response.write "<option value="&filename&"?page="&n
if n=page then
Response.write "selected"
end if
Response.write ">"&n&"</option>"
next
Response.write "</select>页"
%>
如果出错，那就是上边已经关闭数据库。
可以在计算页码那里加一句pagecount=rs.pagecount
把for n=1 to rs.pagecount一句改成for n=1 to pagecount