我要一个 ASP 通用分页代码.. - Web 开发 / ASP

RT
速度啊............

---

正在通用分页

---

百度上找下ASP 通用分页代码类！代码不多的！肯定也能用！

---

ASP分页代码 <!-- ＃i nclude file="../conn.asp" --> //（Yoko:路径按自己的设置好）
<%
dim i,intPage,page,pre,last,filepath
  set rs = server.CreateObject("adodb.recordset")
  sql="select * from user order by user_ID desc"
  rs.PageSize = 20 //（Yoko:这里设定每页显示的记录数
  rs.CursorLocation = 3
  rs.Open sql,conn,0,2,1 //（Yoko:'这里执行你查询SQL并获得结果记录集
  pre = true
  last = true
  page = trim(Request.QueryString("page"))
   
  if len(page) = 0 then
  intpage = 1
  pre = false
  else
  if cint(page) =< 1 then
  intpage = 1
  pre = false
  else
  if cint(page) >= rs.PageCount then
  intpage = rs.PageCount
  last = false
  else
  intpage = cint(page)
  end if
  end if
  end if
  if not rs.eof then
  rs.AbsolutePage = intpage
  end if
%>
<