作者在 2007-05-09 06:55:00 发布以下内容
数字分页效果
[<<][<][1] [2] [3] [4] [5] [6] [7] [8] [9] [10][>][>>]下拉页数菜单
[<<]作用为，翻到首页，[>>]作用为翻到最后页
[<]作用为向上翻10页,没有时没有连接；[>]作用为向下翻10页，没有时无连接。
最右边下拉菜单，则为所有页数，选择第几页就跳转到第几页。
200分求这段的详细代码包括注释，要包括我上面提到的各种功能，高手费心了！拜谢！！！
这是我的一个分页，你拿去自己看下
<%
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