2、每个数据库连接,可以使用不同的结果集对象来打开
3、展示的时候,逐次展示
4、关闭每个数据库连接和结果集对象
是自己的完整的数据库连接和分页代码(仅供你参考研究):<%
'建立数据库连接conn
set conn=Server.Createobject("adodb.connection")
conn.open"Provider=Microsoft.Jet.OLEDB.4.0"&_
"Data Source=" &Server.MapPath("/data/data.mdb")
'/data/data.mdb为数据库的路径,这里是连接的access的数据库,如过是SQL或者其它数据库写法就有点不一样了。
'建立一个数据集rs
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news",conn,1,1
rs.pagesize=25 '设置每页记录条数
if request("page")="" then '如果返回参数为空则设page为1
page=1
else
page=Request("page") '将URL参数page传给page变量
end if
rs.absolutepage=page '将本页设为page设置的页数
for i= 1 to rs.pagesize
if rs.eof then '如果没有数据集以及到结束则跳出循环
exit for
end if
response.Write(rs("newstitle")) '显示新闻标题
rs.movenext
next
%>
</div>
<!--翻页-->
<div style="font-size:12px">
当前第<%=page%>页,共有<%=rs.pagecount%>页,共有:<%=rs.recordcount%>条记录<br />
<%if page=1 then%>
首页
<%else%>
<a href="showmore.asp?page=<%=1%>">首页</a>
<%end if%>
<%if page=1 then%>
上一页
<%else%>
<a href="showmore.asp?page=<%=page-1%>">上一页</a>
<%end if%>
<%if rs.pagecount<page+1 then%>
<%else%>
<a href="showmore.asp?page=<%=page+1%>">下一页</a>
<%end if%>
<%if rs.pagecount<page+1 then%>
尾页
<%else%>
<a href="showmore.asp?page=<%=rs.pagecount%>">尾页</a>
<%end if%>
</div>
<%
rs.close '关闭数据集
set rs=nothing
conn.close '关闭连接
set conn=nothing
%>
如果不明白就加我吧!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)