显示的形式
id name
1 juliet
2 cristine
3 boy
4 girl
>>首页 前页 后页 尾页 页数:1/44记录/页 总记录数:13条
代码:
<!--page.asp-->
<!--#include file=\"conn.asp\"-->
<html>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<table width=\"60%\" border=\"1\" align=\"center\">
<%
dim rs
dim sql
msg_per_page = 4 \'定义每页显示记录条数
set rs = server.createobject(\"adodb.recordset\")
sql = \"select * from page order by id\" \'改成你自己的SQL语句
rs.cursorlocation = 3 \'使用客户端游标,可以使效率提高
rs.pagesize = msg_per_page \'定义分页记录集每页显示记录数
rs.open sql,conn,0,1
if err.number<>0 then \'错误处理
response.write \"数据库操作失败:\" & err.description
err.clear
else
if not (rs.eof and rs.bof) then \'检测记录集是否为空
totalrec = RS.RecordCount \'totalrec:总记录条数
if rs.recordcount mod msg_per_page = 0 then \'计算总页数,recordcount:数据的总记录数
n = rs.recordcountmsg_per_page \'n:总页数
else
n = rs.recordcountmsg_per_page+1
end if