ÎÒÒªÒ»¸ö 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
%>
<