快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

一个简朴的ASP分页程序

本程序主要用到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 strcon

Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from table order by id desc"
rs.Open sql, conn, 1

page=1 \\\' 设置变量PAGE=1
rs.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 if
End if
Page = rs.AbsolutePage
%>
<%

For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if \\\'利用for next 循环依次读出记录
%>
  上面的代码只需要改动Rs.pagesize=5,把5改为你想显示的记录数.比如说
改为10.那么每页就是显示10页.还需要修改的是select语句.就是你要检索的数据库了.
也就是说放到任何一个系统中上面的代码只需很小的改动都可以直接拿过来用.

  然后:就是要循环读出记录的显示内容了..............比如

<table width=50 border=1 align=center>
<tr>
<TD><% =rs("内容") %></td>
</tr>
</table>
<%
rs.MoveNext
next
%>

  当然也可以改为response.write输出.那是你的事了.你可以自由发挥版面样式.

  最后,添加"下一页,上一页"的链接:

<%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 %>

  上面的代码反正不管三七二十一只管复制粘贴.只需把"fenye.asp"改成你自己的文件名就可以了.随便把这段代码放在什么地方?就是你想让它出现下一页下一页链接的地方吧.

  最后.关闭记录集释放资源:
<%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>

  一个异常简朴的分页函数就完成了.以后随便做什么程序反正只管套用这个好了.绝对没错的.当然这个程序还有很多错误.....不足之处还望高手多多批评指正.小弟献丑了.......^_^.......
返回类别: 教程
上一教程: 连接数据库的ASP树图生成程序
下一教程: 将ASP代码移植为VB COM组件-4

您可以阅读与"一个简朴的ASP分页程序"相关的教程:
· 一个简朴的ASP分页程序
· 用ASP做一个分页程序
· 比较方便的ASP分页程序
· ASP万用分页程序
· ASP+ORACLE分页程序类
    微笑服务 优质保证 索取样品