dim sql,rs
'因为要分页显示查询结果，所以用下面方法创建一个recordset对象
sql="select * from bbs where layer=1 order by date desc"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\asp2\bbs.mdb"
rs.Open sql,db,1
if not rs.bof and not rs.eof then
'以下主要为了分页显示
dim page_size '定义每页多少条记录变量
dim page_no '定义当前是第几页变量
dim page_total '定义总页数变量
page_size=10 '每页显示10条记录
if Request("page_no")="" then '如果第一次打开，则page_no为1，否则，由传
page_no=1 '回的参数决定
else
page_no=cint(Request("page_no"))
end if
session("page_no")=page_no '将page_no存入session,以备其它页返回时用
rs.pagesize=page_size '设置每页多少条记录
page_total=rs.pagecount '返回总页数
rs.absolutepage=page_no '设置当前显示第几页
'下面一段显示当前页的所有记录
dim i,j
i=0
j=page_size '该变量用来控制显示多少条记录
do while not rs.eof and j>0 '循环知道当前页结束或文件结尾
i=i+1
j=j-1
%>
