ASP 产品分页显示

来源：百度知道 编辑：UC知道 时间：2024/05/13 13:55:10
我是个初学ASP的，
调用数据库让所有的产品显示出来
但由于产品太多太多了
想用个分页显示的功能
哪位大侠能给我一套分页显示的代码
要求好点的

谢谢啦~~~

********************* ASP万能分页程序代码 *********************
<%set conn=server.createobject("ADODB.Connection")
conn.open "driver={Microsoft access driver (*.mdb)};dbq="& server.mappath("db1.mdb")
set rs=Server.CreateObject("ADODB.Recordset")
'sql = "select * from rj where id > 0"'省略了sql语句
rs.open "rj",conn,1,1
if not rs.eof then
pages = 3 '定义每页显示的记录数
rs.pageSize= pages '定义每页显示的记录数
allPages = rs.pageCount'计算一共能分多少页
page = Request.QueryString("page")'通过浏览器传递的页数
'if语句属于基本的排错处理
if isEmpty(page) or Cint(page) < 1 then
page =1
elseif Cint(page) > allPages then
page = allPages
end if
rs.AbsolutePage = page
Do while not rs.eof and pages > 0
response.write rs("content")&"<br>"
pages = pages -1
rs.MoveNext
Loop
else
Response.Write("<t