高分求数字分页详细代码！在线！
数字分页效果[<<][<][1][2][3][4][5][6][7][8][9][10][>][>>]下拉页数菜单[<<]作用为，翻到首页，[>>]作用为翻到最后页[<]...
数字分页效果
[<<][<][1] [2] [3] [4] [5] [6] [7] [8] [9] [10][>][>>]下拉页数菜单
[<<]作用为，翻到首页，[>>]作用为翻到最后页
[<]作用为向上翻10页,没有时没有连接；[>]作用为向下翻10页，没有时无连接。
最右边下拉菜单，则为所有页数，选择第几页就跳转到第几页。
200分求这段的详细代码包括注释，要包括我上面提到的各种功能，高手费心了！拜谢！！！
e 要ASP的 忘了交代下 展开
[<<][<][1] [2] [3] [4] [5] [6] [7] [8] [9] [10][>][>>]下拉页数菜单
[<<]作用为，翻到首页，[>>]作用为翻到最后页
[<]作用为向上翻10页,没有时没有连接；[>]作用为向下翻10页，没有时无连接。
最右边下拉菜单，则为所有页数，选择第几页就跳转到第几页。
200分求这段的详细代码包括注释，要包括我上面提到的各种功能，高手费心了！拜谢！！！
e 要ASP的 忘了交代下 展开
展开全部
<%
set con=server.CreateObject("ADODB.Connection")
strConnection="Data Source=xxxxxxx;"
con.Open strConnection
set rs = Server.CreateObject("ADODB.Recordset")
chartSQL="select ID,name,category_one from goods "
rs.Open chartSQL,con,1,3
if rs.EOF or rs.BOF then '如果为空
response.end
end if
pagesize=10 '每页显示10条记录
pagecuont=rs.PageCount '总页数
recordcount=rs.RecordCount
dim pagenum '当前页码
dim currentRecord '当前页的记录数,对于末页其值不等于pagesize
if Request.QueryString ("pageNum")="" then
pageNum=1
else
pageNum=Request.QueryString ("pageNum")
rs.AbsolutePage =trim(Request.QueryString ("pageNum"))
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
<SCRIPT LANGUAGE=javascript>
<!--
function openwindow(url){
window.open(url,'','resizable=no,width=240,height=160,fullscreen=yes')
}
//-->
</SCRIPT>
<link rel="stylesheet" href="file:///F|/mysourceof17560/CSS.CSS" type="text/css">
</head>
<body bgcolor=#999999>
<p align="center">商品修改页面</p>
<table border="1" width="100%" cellpadding="0" cellspacing="0" bordercolordark="#999999" bordercolorlight="#000000">
<tr>
<td width="10%">
<div align="center">编号 </div>
</td>
<td width="63%">
<div align="center">商品名 </div>
</td>
<td width="14%">
<div align="center">主分类</div>
</td>
<td width="13%">
<div align="center">操作 </div>
</td>
</tr>
<%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then '本条件判断是否到了尽头
exit for
end if
%>
<tr>
<td width="10%" align=center><%=rs("ID")%></td>
<td width="63%" align=center><%=rs("name")%> </td>
<td width="14%" align=center><%=rs("category_one")%> </td>
<td width="13%">
<div align="center">
<INPUT type="button" value="Button" id=button1 name=button1
onclick="javascript:window.open('tomodify.asp?id=<%=rs("ID")%>&zfenlei=<%=rs("category_one")%>','','resizable=no,width=240,height=160')">
</div>
</td>
</tr>
<%
currentRecord=currentRecord+1 '取的当前页的记录数
rs.MoveNext
next
rs.Close
%>
</table>
<div align="center" class="bfont">合计<%=recordCount%> 条记录 | 第
<%
pageNum_record=(pageNum-1)*pageSize+1 '初始记录位置
pageNum_record_=pageNum_record+currentRecord-1 '末记录位置
Response.Write pageNum_record
%>
-<%=pageNum_record_%>条 | 第<%=pageNum%>页 |共<%=pagecuont%>页
<%
if pagecuont >0 then '防止当前返回的为空记录，即数据库中该数据集为空
if pageNum > 1 then %>
<a href="modifychart.asp?pageNum=1"> <font color="#FFFFFF">首页</font></a>
<%
else Response.Write "首页"
end if
if pageNum > 10 then
'如有需要，请在这里添上如果不足10页时该实现前n页的代码，
'请参考下面的如果后面不足10页时该怎么样处理的代码和思路
%>
<a href="modifychart.asp?pageNum=<%=(pageNum-10)%>"> <font color="#FFFFFF">前10页</font></a>
<%
end if
if (pageNum+10) < pagecuont then
'这里也相同参考下面的思路
%>
<a href="modifychart.asp?pageNum=<%=(pageNum+10)%>"> <font color="#FFFFFF">下10页</font></a>
<%
end if
if (pageNum+10) < pagecuont then
'这里判断后面是否还有10页
endpage=pageNum+9
else
endpage=pageCount
end if
for i=pageNum to endPage
%>
<a href="modifychart.asp?pageNum=<%=i%>">第<%=i%>页</a>
<%
next
if pageNum <> pageCount then
%>
<a href="modifychart.asp?pageNum=<%=pagecuont%>"> <font color="#FFFFFF">末页</font></a>
<%
end if
end if 'end of --->if pageCount >0 then
%>
</div>
</body>
</html>
set con=server.CreateObject("ADODB.Connection")
strConnection="Data Source=xxxxxxx;"
con.Open strConnection
set rs = Server.CreateObject("ADODB.Recordset")
chartSQL="select ID,name,category_one from goods "
rs.Open chartSQL,con,1,3
if rs.EOF or rs.BOF then '如果为空
response.end
end if
pagesize=10 '每页显示10条记录
pagecuont=rs.PageCount '总页数
recordcount=rs.RecordCount
dim pagenum '当前页码
dim currentRecord '当前页的记录数,对于末页其值不等于pagesize
if Request.QueryString ("pageNum")="" then
pageNum=1
else
pageNum=Request.QueryString ("pageNum")
rs.AbsolutePage =trim(Request.QueryString ("pageNum"))
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
<SCRIPT LANGUAGE=javascript>
<!--
function openwindow(url){
window.open(url,'','resizable=no,width=240,height=160,fullscreen=yes')
}
//-->
</SCRIPT>
<link rel="stylesheet" href="file:///F|/mysourceof17560/CSS.CSS" type="text/css">
</head>
<body bgcolor=#999999>
<p align="center">商品修改页面</p>
<table border="1" width="100%" cellpadding="0" cellspacing="0" bordercolordark="#999999" bordercolorlight="#000000">
<tr>
<td width="10%">
<div align="center">编号 </div>
</td>
<td width="63%">
<div align="center">商品名 </div>
</td>
<td width="14%">
<div align="center">主分类</div>
</td>
<td width="13%">
<div align="center">操作 </div>
</td>
</tr>
<%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then '本条件判断是否到了尽头
exit for
end if
%>
<tr>
<td width="10%" align=center><%=rs("ID")%></td>
<td width="63%" align=center><%=rs("name")%> </td>
<td width="14%" align=center><%=rs("category_one")%> </td>
<td width="13%">
<div align="center">
<INPUT type="button" value="Button" id=button1 name=button1
onclick="javascript:window.open('tomodify.asp?id=<%=rs("ID")%>&zfenlei=<%=rs("category_one")%>','','resizable=no,width=240,height=160')">
</div>
</td>
</tr>
<%
currentRecord=currentRecord+1 '取的当前页的记录数
rs.MoveNext
next
rs.Close
%>
</table>
<div align="center" class="bfont">合计<%=recordCount%> 条记录 | 第
<%
pageNum_record=(pageNum-1)*pageSize+1 '初始记录位置
pageNum_record_=pageNum_record+currentRecord-1 '末记录位置
Response.Write pageNum_record
%>
-<%=pageNum_record_%>条 | 第<%=pageNum%>页 |共<%=pagecuont%>页
<%
if pagecuont >0 then '防止当前返回的为空记录，即数据库中该数据集为空
if pageNum > 1 then %>
<a href="modifychart.asp?pageNum=1"> <font color="#FFFFFF">首页</font></a>
<%
else Response.Write "首页"
end if
if pageNum > 10 then
'如有需要，请在这里添上如果不足10页时该实现前n页的代码，
'请参考下面的如果后面不足10页时该怎么样处理的代码和思路
%>
<a href="modifychart.asp?pageNum=<%=(pageNum-10)%>"> <font color="#FFFFFF">前10页</font></a>
<%
end if
if (pageNum+10) < pagecuont then
'这里也相同参考下面的思路
%>
<a href="modifychart.asp?pageNum=<%=(pageNum+10)%>"> <font color="#FFFFFF">下10页</font></a>
<%
end if
if (pageNum+10) < pagecuont then
'这里判断后面是否还有10页
endpage=pageNum+9
else
endpage=pageCount
end if
for i=pageNum to endPage
%>
<a href="modifychart.asp?pageNum=<%=i%>">第<%=i%>页</a>
<%
next
if pageNum <> pageCount then
%>
<a href="modifychart.asp?pageNum=<%=pagecuont%>"> <font color="#FFFFFF">末页</font></a>
<%
end if
end if 'end of --->if pageCount >0 then
%>
</div>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
作为北京饼干科技有限公司的工作人员，关于AIPPT免费生成PPT的功能，我可以简要介绍如下：AIPPT是一款基于人工智能技术的PPT制作工具，它为用户提供了免费生成PPT的便捷服务。用户只需简单输入PPT的主题或内容大纲，AIPPT便能智能...
点击进入详情页
本回答由AiPPT提供
展开全部
<!--#include file="conn.asp"--> '数据库路径，应用本分页程序所在文件已有的不用加
<%'---------------------------------------------------------
'本程序适合access数据库asp程序分页，其它类型数据库可参考。
'本例程序适合给 xxx.asp 或 xxx.asp?page=1 类型的网址进行分页。
'效果：javascript:if(this.width>740)this.width=740" border=undefined>
'有明确注释，直接套用，需修改的部位不多。
'------------------------------------------------------------
%>
<%'=============分页定义开始，可放在数据库打开前或后
dim action
action=request.QueryString("action")
Const MaxPerPage=10 '定义每页显示记录数，可根据实际自定义
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
'=============分页定义结束%>
<% '=============打开数据库数据表，要以这种方式打开
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news where link=1 and shgg<>1 order by fincount desc",conn,1,1
%>
<%'=============分页类代码开始，需放在数据库数据表打开后
if err.number<>0 then
response.write "<p align='center'>数据库中暂时无数据</p>"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center'>对不起，没有符合条件记录！</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,""&request.ServerVariables("script_name")&""
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,""&request.ServerVariables("script_name")&""
else
currentPage=1
showContent
showpage totalput,MaxPerPage,""&request.ServerVariables("script_name")&""
end if
end if
end if
'=============分页类代码结束%>
<%'=============循环体开始
sub showContent
dim i
i=0
do while not rs.eof%>
<!---此处为内容循环输出，放置你需要输出的数据库字段搜索结果---->
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close '释放资源
set rs=nothing
End Sub
'=============循环体结束%>
<%'=============放置分页显示开始
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If %>
<form method=Post action=<%=filename%>>
<p align="center">
<%If CurrentPage<2 Then %>
首 页 上一页
<% Else %>
<a href=<% = filename %>?page=1>首 页</a>
<a href=<% = filename %>?page=<% = CurrentPage-1 %>>上一页</a>
<% End If
If n-currentpage<1 Then %>
下一页 尾 页
<% Else %>
<a href=<% = filename %>?page=<% = (CurrentPage+1) %>>下一页</a>
<a href=<% = filename %>?page=<% = n %>>尾 页</a>
<% End If %>
页次：<b><font color=red><% = CurrentPage %></font></b>/<b><% = n %></b>页 <b><%=maxperpage%></b>个记录/页 共<b><%=totalnumber %></b>个记录
转到：<select name="cndok" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to n
if i = CurrentPage then%>
<option value="<% = filename %>?page=<%=i%>" selected>第<%=i%>页</option>
<%else%>
<option value="<% = filename %>?page=<%=i%>">第<%=i%>页</option>
<%
end if
next
%>
</select></font>
</form>
<%End Function
'=============放置分页显示结束%>
<%'---------------------------------------------------------
'本程序适合access数据库asp程序分页，其它类型数据库可参考。
'本例程序适合给 xxx.asp 或 xxx.asp?page=1 类型的网址进行分页。
'效果：javascript:if(this.width>740)this.width=740" border=undefined>
'有明确注释，直接套用，需修改的部位不多。
'------------------------------------------------------------
%>
<%'=============分页定义开始，可放在数据库打开前或后
dim action
action=request.QueryString("action")
Const MaxPerPage=10 '定义每页显示记录数，可根据实际自定义
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
'=============分页定义结束%>
<% '=============打开数据库数据表，要以这种方式打开
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news where link=1 and shgg<>1 order by fincount desc",conn,1,1
%>
<%'=============分页类代码开始，需放在数据库数据表打开后
if err.number<>0 then
response.write "<p align='center'>数据库中暂时无数据</p>"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center'>对不起，没有符合条件记录！</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,""&request.ServerVariables("script_name")&""
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,""&request.ServerVariables("script_name")&""
else
currentPage=1
showContent
showpage totalput,MaxPerPage,""&request.ServerVariables("script_name")&""
end if
end if
end if
'=============分页类代码结束%>
<%'=============循环体开始
sub showContent
dim i
i=0
do while not rs.eof%>
<!---此处为内容循环输出，放置你需要输出的数据库字段搜索结果---->
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close '释放资源
set rs=nothing
End Sub
'=============循环体结束%>
<%'=============放置分页显示开始
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If %>
<form method=Post action=<%=filename%>>
<p align="center">
<%If CurrentPage<2 Then %>
首 页 上一页
<% Else %>
<a href=<% = filename %>?page=1>首 页</a>
<a href=<% = filename %>?page=<% = CurrentPage-1 %>>上一页</a>
<% End If
If n-currentpage<1 Then %>
下一页 尾 页
<% Else %>
<a href=<% = filename %>?page=<% = (CurrentPage+1) %>>下一页</a>
<a href=<% = filename %>?page=<% = n %>>尾 页</a>
<% End If %>
页次：<b><font color=red><% = CurrentPage %></font></b>/<b><% = n %></b>页 <b><%=maxperpage%></b>个记录/页 共<b><%=totalnumber %></b>个记录
转到：<select name="cndok" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to n
if i = CurrentPage then%>
<option value="<% = filename %>?page=<%=i%>" selected>第<%=i%>页</option>
<%else%>
<option value="<% = filename %>?page=<%=i%>">第<%=i%>页</option>
<%
end if
next
%>
</select></font>
</form>
<%End Function
'=============放置分页显示结束%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
这是我的一个分页，你拿去自己看下
<%
dim pagecount,rsrecordcount,pagecounts,s,ii,page_b,page_e,page_num,yu
sql="select id,topic,tim from news where hidden=1 and c_id=287 and s_id=831 order by id desc"
'set rs=edxsky_2in1.exec(sql,1)
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,Conn,1,1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
'定义
ii=1 '换行条件ii
page_num=5 '显示几个数字分页
rs.pagesize=48 '每页显示记录条数
if Request.QueryString ("page_b")="" then
page_b=1 '获取为空时 初始记录为1
else
page_b=Request.QueryString ("page_b") '获取不为空时 初始记录为获取初始记录
end if
page_e=page_b+page_num-1 '末记录位数
if not rs.eof then
rsrecordcount=rs.recordcount
if rsrecordcount/rs.pagesize=int(rsrecordcount/rs.pagesize) then
pagecounts=rsrecordcount/rs.pagesize
else
pagecounts=int(rsrecordcount/rs.pagesize)+1
end if
rs.AbsolutePage=pagecount
end if
yu=(pagecounts-(pagecounts mod page_num))+1
for s=0 to rs.pagesize-1
%>
<table width="430" border="0" align="center" cellpadding="3" cellspacing="0">
<%if rs.eof then exit for%>
<tr>
<td width="5" valign="top"><div align="center"><%=ii%></div></td>
<td width="425" valign="top"><div align="left"><a href="news_view.asp?id=<%=rs("id")%>" target="_blank"><span class="a21">·<%=rs("topic")%></span><font color='#999999'>(<%=right(year(rs("tim")),2)%>-<%=month(rs("tim"))%>-<%=day(rs("tim"))%>)</font></a></div></td>
</tr>
<% if ii mod 8=0 then%>
</table>
<table width="430" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"><div align="center"></div></td>
</tr>
<tr>
<td height="1" background="../images/zxpd/dashed1.gif"></td>
</tr>
<tr>
<td height="5"><div align="center"></div></td>
</tr>
</table>
<%end if%>
<%
ii=ii+1
rs.movenext
next
%>
<table width="430" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#F5F5F5">
<tr>
<td align="center" class="style10">本栏共有 <%=rs.recordcount%> 条新闻 页次：<%=pagecount%>/<%=pagecounts%><br>
分页：<%if page_b>page_num then %>
<a href="?page=1"><span class="STYLE10">[<<]</span></a>
<%else%>
[<<]
<%end if%>
<%if page_b-page_num>1 then %>
<a href="?page=<%=page_b-page_num%>&page_b=<%=page_b-page_num%>"><span class="STYLE10">[<]</span></a>
<%else%>
[<]
<%end if%>
<%for i=page_b to page_e%>
<a href="?page=<%=i%>&page_b=<%=page_b%>"><%if i=pagecount then%>[<%=i%>]<%else%><span class="STYLE10">[<%=i%>]</span><%end if%></a>
<%
if i=pagecounts then exit for
next%>
<%if pagecounts-page_e>1 then %>
<a href="?page=<%=page_b+page_num%>&page_b=<%=page_b+page_num%>"><span class="STYLE10">[>]</span></a>
<%else%>
[>]
<%end if%>
<%if pagecounts-page_e>=1 then%>
<a href="?page=<%=pagecounts%>&page_b=<%=yu%>"><span class="STYLE10">[>>]</span></a>
<%else%>
[>>]
<%end if%>
跳转到
<select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to pagecounts
if i = pagecount then%>
<option value="?page=<%=i%>&page_b=<%=(i-(i mod page_num))+1%>" selected><%=i%></option>
<%else%>
<option value="?page=<%=i%>&page_b=<%=(i-(i mod page_num))+1%>"><%=i%></option>
<%
end if
next
%>
</select>
页</td>
</tr>
</table>
<%
dim pagecount,rsrecordcount,pagecounts,s,ii,page_b,page_e,page_num,yu
sql="select id,topic,tim from news where hidden=1 and c_id=287 and s_id=831 order by id desc"
'set rs=edxsky_2in1.exec(sql,1)
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,Conn,1,1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
'定义
ii=1 '换行条件ii
page_num=5 '显示几个数字分页
rs.pagesize=48 '每页显示记录条数
if Request.QueryString ("page_b")="" then
page_b=1 '获取为空时 初始记录为1
else
page_b=Request.QueryString ("page_b") '获取不为空时 初始记录为获取初始记录
end if
page_e=page_b+page_num-1 '末记录位数
if not rs.eof then
rsrecordcount=rs.recordcount
if rsrecordcount/rs.pagesize=int(rsrecordcount/rs.pagesize) then
pagecounts=rsrecordcount/rs.pagesize
else
pagecounts=int(rsrecordcount/rs.pagesize)+1
end if
rs.AbsolutePage=pagecount
end if
yu=(pagecounts-(pagecounts mod page_num))+1
for s=0 to rs.pagesize-1
%>
<table width="430" border="0" align="center" cellpadding="3" cellspacing="0">
<%if rs.eof then exit for%>
<tr>
<td width="5" valign="top"><div align="center"><%=ii%></div></td>
<td width="425" valign="top"><div align="left"><a href="news_view.asp?id=<%=rs("id")%>" target="_blank"><span class="a21">·<%=rs("topic")%></span><font color='#999999'>(<%=right(year(rs("tim")),2)%>-<%=month(rs("tim"))%>-<%=day(rs("tim"))%>)</font></a></div></td>
</tr>
<% if ii mod 8=0 then%>
</table>
<table width="430" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"><div align="center"></div></td>
</tr>
<tr>
<td height="1" background="../images/zxpd/dashed1.gif"></td>
</tr>
<tr>
<td height="5"><div align="center"></div></td>
</tr>
</table>
<%end if%>
<%
ii=ii+1
rs.movenext
next
%>
<table width="430" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#F5F5F5">
<tr>
<td align="center" class="style10">本栏共有 <%=rs.recordcount%> 条新闻 页次：<%=pagecount%>/<%=pagecounts%><br>
分页：<%if page_b>page_num then %>
<a href="?page=1"><span class="STYLE10">[<<]</span></a>
<%else%>
[<<]
<%end if%>
<%if page_b-page_num>1 then %>
<a href="?page=<%=page_b-page_num%>&page_b=<%=page_b-page_num%>"><span class="STYLE10">[<]</span></a>
<%else%>
[<]
<%end if%>
<%for i=page_b to page_e%>
<a href="?page=<%=i%>&page_b=<%=page_b%>"><%if i=pagecount then%>[<%=i%>]<%else%><span class="STYLE10">[<%=i%>]</span><%end if%></a>
<%
if i=pagecounts then exit for
next%>
<%if pagecounts-page_e>1 then %>
<a href="?page=<%=page_b+page_num%>&page_b=<%=page_b+page_num%>"><span class="STYLE10">[>]</span></a>
<%else%>
[>]
<%end if%>
<%if pagecounts-page_e>=1 then%>
<a href="?page=<%=pagecounts%>&page_b=<%=yu%>"><span class="STYLE10">[>>]</span></a>
<%else%>
[>>]
<%end if%>
跳转到
<select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to pagecounts
if i = pagecount then%>
<option value="?page=<%=i%>&page_b=<%=(i-(i mod page_num))+1%>" selected><%=i%></option>
<%else%>
<option value="?page=<%=i%>&page_b=<%=(i-(i mod page_num))+1%>"><%=i%></option>
<%
end if
next
%>
</select>
页</td>
</tr>
</table>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
值得学习！期待最佳答案！！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
