求一个ASP分页代码

[ywqxtx]

求一个和优酷http://www.youku.com/v_showlist/t2c95g2122.html 一样的ASP分页代码

就是有 上一页 1 2 3 4 5 6 7 8 下一页

[MR丶CHAN]

给你个例子 自己稍微修改下
function AdminList()
dim idCount'记录总数
dim pages'每页条数
pages=20
dim pagec'总页数
dim page'页码
page=clng(request("Page"))
dim pagenc '每页显示的分页页码数量=pagenc*2+1
pagenc=2
dim pagenmax '每页显示的分页的最大页码
dim pagenmin '每页显示的分页的最小页码
dim datafrom'数据表名
datafrom="CompanyCMS_Admin"
dim datawhere'数据条件
datawhere=""
dim sqlid'本页需要用到的id
dim Myself,PATH_INFO,QUERY_STRING'本页地址和参数
PATH_INFO = request.servervariables("PATH_INFO")
QUERY_STRING = request.ServerVariables("QUERY_STRING")'
if QUERY_STRING = "" or Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
Myself = PATH_INFO & "?"
else
Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
end if
dim taxis'排序的语句
taxis="order by id asc"
dim i'用于循环的整数
dim rs,sql'sql语句
'获取记录总数
sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
idCount=rs("idCount")
'获取记录总数

if(idcount>0) then'如果记录总数=0,则不处理
if(idcount mod pages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
pagec=int(idcount/pages)'获取总页数
else
pagec=int(idcount/pages)+1'获取总页数
end if
'获取本页需要用到的id============================================
'读取所有记录的id数值,因为只有id所以速度很快
sql="select id from ["& datafrom &"] " & datawhere & taxis
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize = pages '每页显示记录数
if page < 1 then page = 1
if page > pagec then page = pagec
if pagec > 0 then rs.absolutepage = page
for i=1 to rs.pagesize
if rs.eof then exit for
if(i=1)then
sqlid=rs("id")
else
sqlid=sqlid &","&rs("id")
end if
rs.movenext
next
'获取本页需要用到的id结束============================================
end if

[LS_2006]

你要这个代码我有现成的,我也是前几天在网上找到的一个分页模块.ASP的

欢迎加入我们QQ群,大家一块学习,提高!

QQ群号:84505938

[cdf0820]

我有现成的 是我自己做的 你看下我的站用的就是www.afuu.net.cn
这个是网址：http://www.afuu.net.cn/blog/b/?30.html
你看下吧

晒下我的其他站 www.zhuncha.com

[xzf888]

帮顶, 好的我也要,

[cxbase]

<%
'取跳转到第几页的几号
If CInt(Request("Page")) = 0 Then
pageTo = 1
Else
pageTo = CInt(Request("Page"))
End If

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "数据库连接"
Rs.Open "Select * From [表名]",Conn,3,2

If Not(Rs.Bof And Rs.Eof) Then
Rs.pagesize = 10 '设置每页所显示记录的条数
Rs.absoultepage = pageTo
pageCount = Rs.pagecount
For i = 1 To Rs.pagesize
'读取记录的过程
Rs.MoveNext
If Rs.Eof Then Exit For
Next
Else
pagecount = 1
Response.Wirte("没有记录")
End If
%>

<table border="0" align="center" width="100%">
<tr><td align="center">
<%If pageTo >=2 Then%><a href="#" onClick="self.location.href='网页.asp?page= <%=pageTo-1%>'">上一页 </a>
<%Else%>上一页<%End If%></td>
<%For j = 1 To pageCount%>
<td aling="center"><a href="#" onClick="self.location.href='网页.asp?page= <%=j%>'"><%=j%></a>
<%Next%>
<td aling="center">
<%If pageTo <= pageCount - 1 then%><a href="#" onClick="self.location.href='网页.asp?page= <%=pageTo+1%>'">下一页 </a>
<%Else%>下一页<%End If%></td></tr>
</table>