本程序主要用到Connection、RecordSet这两个对象,程序中的数据库为Access库,采用OLEDB方式连接库。
这个东西是作为菜鸟的我弄的一个东西. 你可以对这个东西不屑一顾.但是请记住: 菜鸟也有这个权利把自己的心得体会附注文字贡献出来.....当然,技术方面真的是好菜的..一些ASP中的比较正统的中规中矩的方法.我觉得这个东西可能对初学者有些帮助.......见笑了..一个简单的分页教程:<%Set conn = Server.CreateObject("ADODB.Connection")strcon="provider=microsoft.jet.oledb.4.0;data source="& _server.mappath("mdb.mdb")conn.Open strconSet rs = Server.CreateObject ("ADODB.Recordset")sql="select * from table order by id desc"rs.Open sql, conn, 1page=1 ' 设置变量PAGE=1rs.PageSize = 5 '每页显示记录数if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量 if Page > rs.PageCount then '如果接收的页数大于总页数 rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页 elseif Page <= 0 then '如果page小于等于0 Page = 1 '设置PAGE等于第一页 else rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 end ifEnd ifPage = rs.AbsolutePage %><% For i = 1 to rs.PageSizeif rs.EOF then Exit For end if '利用for next 循环依次读出记录%>
<table width=50 border=1 align=center><tr><TD><% =rs("内容") %></td></tr></table><%rs.MoveNextnext%>
<%if request("page")>1 then%><a Href="test.asp?Page=<% = 1%>">首页</a> <a Href="test.asp?Page=<% =request("page") -1 %>">上一页</a><%end if %><%if request("page")<>rs.pagecount then %><a Href="test.asp?Page=<% =request("page") + 1%>">下一页</a> <a Href="test.asp?Page=<% = rs.PageCount%>">尾页</a> <% end if %>
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18