ASP 分页代码 <% 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 rs.CursorLocation = 3 rs.Open sql,conn,0,2,1 pre = true last = true page = trim(Request.QueryString("page")) //(Yoko:'这里执行你查询 SQL 并获得结果记录集 //(Yoko:这里设定每页显示的记录数 //(Yoko:路径按自己的设置好) 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 %> <% for i=1 to rs.PageSize if rs.EOF or rs.BOF then exit for %> .................. //(Yoko:要循环显示的内容 ).................. ................... <% rs.movenext next %>
下面是 CSDN 的: <% dim Conn,RS,sqlStr,PageSize,RowCount,TotalPages,PageNo,Position,PageB egin,PageEnd set Conn= Server.CreateObject("ADODB.Connection") set RS = Server.CreateObject("ADODB.RecordSet") Conn.open "provider=sqloledb;data source=127.0.0.1;user id=sa;passwo rd=;initial catalog=zjydata" sqlStr="select * from Items order by iID" RS.open sqlStr,Conn,1,1 PageSize=10 If RS.RecordCount=0 then %>
商品代码
商品名称
型号规格
计量单位
参考进价
参考售价
备注
没有任何商品信息!
<% else RS.PageSize = Cint(PageSize) TotalPages=RS.Pag eCount PageNo=Request.QueryString("PageNo") if PageNo="" or PageNo<1 Then PageNo = 1 end if RS.AbsolutePage = PageNo Position=RS.PageSize*PageNo PageBegin=Position-RS.PageSize+1 if Position
<% if PageNo > 1 Then response.write "首页 &;nbsp;上页&;nbsp;" end if if TotalPages > 1 and cint(PageNo) <> cint(TotalPages) th en response.write "下页&;nbsp;末页 a>&;nbsp;" end if %>
商品代码
商品名称
型号规格
计量单位
参考进价
参考售价
备注
<% RowCount = RS.PageSize dim color1,color2 color1="#dddddd" color2="#eeeeee" Do While Not RS.EOF and RowCount > 0 Response.Write "
<% if RowCount mod 2=0 then:response.write color1 else:respo nse.write color2 %> <% Response.Write ">" %>
<% RowCount = RowCount - 1 RS.MoveNext Loop Conn.Close set RS = nothing set Conn = nothing %>
商品代码
商品名称
型号规格
计量单位
参考进价
参考售价
备注
<% For i=1 to TotalPages if CInt(PageNo) = CInt(i) then response.write "["&;i&;"]" else response.write "&;nbsp"&;i&;"&;nbsp" end if Next %>
<% End if %> <% Dim Conn,db db="Database.mdb" dim ConnStr ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &; Server.MapPath(db) Set conn = Server.CreateObject("ADODB.Connection") conn.Open connstr '************************************************** '函数名:JoinChar '作 用:向地址中加入 ? 或 &; '参 数:strUrl ----网址 '返回值:加了 ? 或 &; 的网址 '************************************************** function JoinChar(strUrl) if strUrl="" then JoinChar="" exit function end if if InStr(strUrl,"?")1 then if InStr(strUrl,"&;")-1Then If CheckNumiEndNum Then CheckNum=iEndNum End If End Function '****************************************************************************** ********************** '过程名:showpage