谁有这样的分页代码？

[xiaoge22275]

http://bbs.dvbbs.net/list.asp?boardid=1
平时只是做上一页、下一页、首页、尾页这样形式的，这种的效果我搞了半天，效果不理想，谁有提供完整的代码啊？立即结帖。

[cuixiping]

没什么特别的嘛

[逆流冰鱼]

'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^分页函数^^^^^^^^^^^^^^^^^
function SplicitPage_Top(byref nowpage,byval n,byref rs)
'头部
' 例:SplicitPage_Top nowpage,20,rs 说明：第一个不变，第二个表示页数，要分页的记录集
nowpage=Request("page")
if nowpage="" then nowpage=1
nowpage=int(nowpage)
if nowpage<1 then nowpage=1
rs.pagesize=n '每页显示数
if nowpage>rs.pagecount then nowpage=rs.pagecount
if rs.recordcount<>0 then rs.absolutepage=nowpage
end function

function splitpage_end(byval nowpath,byref rs) '尾部,放在table里

if rs.bof then
firstpage=0
else
firstpage=page
end if

if rs.pagecount=0 then
lastpage=0
else
lastpage=rs.pagecount
end if
nowpagenext=nowpage+1
nowpageprevious=nowpage-1
response.write "<tr><td colspan=3 class=btd align=center>"
if nowpage=1 or rs.recordcount=0 then
Response.Write("<font color='#808080'>首页  上一页</font> ")
else
response.write "<a href='" &nowpath &"page=1'>首页</a>  <a href='" &nowpath &"page=" &nowpageprevious & "'>上一页</a> "
end if
if nowpage=rs.pagecount then
Response.Write("<font color='#808080'>  下一页  末页 </font>")
else
response.write "  <a href='" &nowpath &"page="&nowpagenext&"'>下一页</a>  <a href='" &nowpath &"page=" &rs.pagecount& "'>末页</a> "
end if
response.write "页次:" &rs.pagesize &"/<font color='#A20000'>" &rs.pagecount &"</font>页  共<font color='#A20000'>" &rs.RecordCount &"</font>条 "
response.write "转到:<select name='nowpage' style='color:#A20000' onchange=" &chr(34) &"window.open(this.options[this.selectedIndex].value,'_self')"&chr(34) &">"
for i=1 to rs.pagecount
response.write "<option value='" &nowpath &"page=" &i &"'"
if nowpage=i then response.write " selected"
response.write ">第" &i &"页</option>"
next
response.write "</select></td></tr>"
end function

[超级大笨狼]

巨快， 通用表维护增删查改存储过程分页显示
(疾病名称表近2万数据)
导出excel并下载
http://www.adr.gov.cn/download/panyuguang/adrnew/dict_List.asp
下载
ftp://61.152.210.28/

换了个空间，没办法，打游击，到处蹭空间。拷贝粘贴想要的文件即可

[逆流冰鱼]

例子:
SplicitPage_Top nowpage,20,rs '分页代码头:当前页，每页记录数，记录集
for i=1 to rs.PageSize
if rs.EOF then exit for
%>
<tr>
<td class=btd align=center><%=rs("title")%></td>
</tr>
<%
rs.MoveNext()
end if
next
splitpage_end "news.asp?",rs
%>

[fashchina]

http://community.csdn.net/Expert/topic/3208/3208297.xml?temp=.6983759

[tfhui928]

<%
dim rsC,strSQL,intpagecount,totalPut '定义变量
const maxperpage=3
dim CurrentPage
if request("page")="" then
CurrentPage =1
else
Currentpage=request("page")
end if

strSQL = "select * from sometime_subject where disabled=false"
set rsC=server.CreateObject("ADODB.recordset") '设rsC为recordset对象

%>
<%
rsC.open strsql,conn,1,1
if rsC.eof and rsC.bof then
response.write "<p align='center'>表中没有记录</p>"
else
totalPut=rsC.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,"view_usedsubject.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rsC.move (currentPage-1)*MaxPerPage
showContent
showpage totalput,MaxPerPage,"view_usedsubject.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"view_usedsubject.asp"
end if
end if
rsC.close
end if

%>
<%
sub showContent
dim i
i=0
do while not rsC.eof
%>
<% response.write "<tr align=middle>"
response.Write "<td><center><a target=""_blank"" href="& "/subject/" &rsC.fields(1).value& ">" &rsC.fields(2).value& "</a></center></td>"
'显示记录中的第三项字段并根据第二项字段进行超级链接,subject为虚拟目录
response.write"</tr>"
i=i+1
if i>=MaxPerPage then exit do
rsC.movenext
loop
end sub
%>

<%
function showpage(totalnumber,maxperpage,filename)
dim n, i
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&">"

if CurrentPage<2 then
response.write "共"&totalnumber&"条纪录 首页 上一页 "
else
response.write "共"&totalnumber&"条纪录 <a href="&filename&"?page=1"&">首页</a> "
response.write "<a href="&filename&"?page="¤tPage-1&">上一页</a> "
end if

if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&">"
response.write "下一页</a> <a href="&filename&"?page="&n&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"¤tPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>条纪录/页 "
%>
转：<select name='page' size='1' onchange='javascript:submit()' class="smallinput" >
<%for i = 1 to n%>
<option value='<%=i%>' <%if cint(CurrentPage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
</form>
<%
end function

set rsC=nothing
conn.close
set conn=nothing
%>

[daeren]

<%


page=request("page")

rs.pagesize=5

If clng(page)<=0 or trim(page)="" Then

page=1

end if

If clng(page)>=Rs.PageCount Then

page=rs.pagecount

End If

rs.absolutepage=page

rsnum=0 '一页内的记录初始值



Do While Not Rs.EOF And rsnum<Rs.PageSize

%>
...........................
<%
rs.movenext
rsnum=rsnum+1
loop
%>

...........................
页次<%=page%>/<%=rs.pagecount%>页
每页<%=rs.pagesize%>条记录 共<%=Rs.recordcount%>记录
<%
k=rs.pagecount
n=page

if n<>1 then
%>
<a href="feel_list.asp?page=1">首页</a>
<a href="feel_list.asp?page=<%=cstr(page-1)%>">上页</a>
<%end if%>
<%
if n<>k then
%>
<a href="feel_list.asp?page=<%=cstr(page+1)%>">下页</a>
<a href="feel_list.asp?page=<%=rs.pagecount%>"> 尾页</a>
<%
end if
%>

[xiaoge22275]

晕，这种分页我会做啊，我要的是那个链接地址里的效果。

[xiaoge22275]

谢谢大家先，我研究后就一定给分。