dim str,conn
Set conn = Server.CreateObject("ADODB.Connection")
str = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("db/ly.mdb") ly.mdb为留言数据库
conn.open str
set rs=Server.CreateObject("adodb.recordset")
rs.open "select name as 姓名 ,title as 标题, content as 内容 from ly",conn,1,3
打开连接
rs.pagesize=5
rs的pagesize属性,,定义每页中显示几条记录
if request("pages")<>"" then
判断pages是否为空,pages为传递的参数
epage=cint(request("pages"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
absolutepage属性是当前页面的绝对位置,
,如果epage为2,他会自动显示在第二页的第一条。absolutepage计算的过程自动完成,计算公式为 AbsolutePosition = (AbsolutePage-1) * PageSize+1
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>
<tr
bgcolor="#000000"
align="left">
<td><%=rs(0).value%></td><td><%=rs(1).value%></td><td><%=rs(2).value%></td>
</tr>
<%
rs.movenext()
next
通过for来显示记录
<div id="right">
<p align="center">
<a href="liuyan.asp?pages=1">第一页</a>
<a href="liuyan.asp?pages=<%=epage-1%>">前一页</a>
<a href="liuyan.asp?pages=<%=epage+1%>">后一页</a>
<a href="liuyan.asp?pages=<%=rs.pagecount%>">末页</a>
</p>
<p align="center">现在是第<%=epage%>页一共有<%=rs.pagecount%>页</p>
</div>
大体上就是这样,希望对你有用