通行证: 用户 密码 域名空间 　下载中心　社区论坛　信息公告 my小屋
联系我们
设为首页
加入收藏

 

qq,asp,php,jsp,xml,sql,.net,编程 程序 网页图象 建站经验 私服
首页 | 新闻资讯 | 编程开发 | 网页设计 | 图形图象 | 网络媒体 | 网站模板 | 数 据 库 | 投稿
论坛 | 操作系统 | 系统优化 | 网络安全 | 黑客技术 | 硬件学堂 | 硬件报价 | 服 务 器 | 地图
专题 | 应用软件 | 聊天通讯 | q q 专栏 | 建站经验 | 在线工具 | 站长club | 注 册 表 | 旧版
社会 | 游戏娱乐 | 设计欣赏 | 疑难解答 | 社区论坛 | 网络赚钱 | 网站地图 | 广告服务 | 服务
当前位置：首页>>编程开发>>sql专区>>正文 新版上线！[旧版]
注:打开慢时请稍等
webcomputing━ado总结报告7

http://www.iyit.net  日期：2006-5-3 19:20:08  来源：  点击：
【参加讨论】 实例一：分页显示及导航：
　　为什么我要再提分页的这个问题呢？因为这是一个最基本的问题，虽然有很多关于分页的文章，但我觉得他们的方法偏于复杂。其实recordset的absolutepage就可以轻松的实现分页，当你指定了pagesize属性后，对absolutepage指定值就可以翻转到指定的页面。但是如果你想使用absolutepage的话，你必须在打开recordset对象之前将它的cursorlocation值设为aduseclient，这个属性是继承connection对象的一个相同属性的。你也可以在打开connection对象之前来设定它。下面是源代码，为了方便，我将导航栏独立成了一个子程序方便大家使用。
<%
sub navigator(pageno,target)
response.write "<table border=0>"
response.write "<tr>"
response.write "<td>"
if pageno>1 then
response.write "<a href="&chr(34)&target&"?page=1"&chr(34)&">┃第一页</a>"
else
response.write "┃第一页"
end if
response.write "</td>"
response.write "<td>"
if pageno<rs.pagecount then
response.write"<a href="&chr(34)&target&"?page="&pageno+1&chr(34)&">┃下一页</a>"
else
response.write "┃下一页"
end if
response.write "</td>"
response.write "<td>"
if pageno>1 then
response.write "<a href="&chr(34)&target&"?page="&pageno-1&chr(34)&">┃前一页</a>"
else
response.write "┃前一页"
end if
response.write "</td>"
response.write "<td>"
if pageno<rs.pagecount then
response.write "<a href="&chr(34)&target&"?page="&rs.pagecount&chr(34)&">┃最后一页</a>"
else
response.write "┃最后一页"
end if
response.write "</td>"
response.write "<td>"
response.write "┃页次:"&pageno&"/"&rs.pagecount&"页┃"&rs.pagesize&"条记录/页┃"
response.write "</td>"
response.write "<td valign="middle">"
response.write "<form action="&chr(34)&target&chr(34)&" method="&chr(34)&"post"&chr(34)&">"
response.write "<input type="text"size=3 maxlength=4 name="page">"
response.write " <input type="submit"value="转到">"
response.write "</form>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
end sub
%>

<%
const adcmdtext=&h0001
const advarchar=200
const adinteger=3
const adparaminput=&h0001
const adcmdtable=&h0002
const aduseclient=3
const addate=7
const adlongvarchar=201
set conn=server.createobject("adodb.connection")
conn.connectionstring="driver={microsoft access driver (*.mdb)};dbq="& _
server.mappath("/source_asp")&"/process/process.mdb;"
conn.open
%>

<%
const maxpagesize=5
%>
<html>
<head>
<title> see book </title>
</head>
<body>
<%
dim i,j,pageno
set rs=server.createobject("adodb.recordset")
rs.activeconnection=conn
rs.cursorlocation=aduseclient
rs.open "select * from books",,,adcmdtext
if rs.bof then
response.write "欢迎使用图书,资料管理程序!"
else
rs.pagesize=maxpagesize
if isempty(request.querystring("page")) then
pageno=1
elseif cint(request.querystring("page"))<1 then
pageno=1
elseif cint(request.querystring("page"))>rs.pagecount then
pageno=rs.pagecount
else
pageno=cint(request.querystring("page"))
end if
if request.servervariables("request_method")="post" and not isempty(request.form("page")) then
pageno=cint(request.form("page"))
end if
rs.absolutepage=pageno
response.write "<table border="0" width="100%">"
response.write "<tr><td colspan="&rs.fields.count&">"
target="books.asp"
call navigator(pageno,target) "调用导航栏
response.write "</td></tr>"
response.write "<tr>"
for i=0 to rs.fields.count-1
response.write "<td>"&rs.fields.item(i).name&"</td>"
next
response.write "</tr>"
j=0
while (not rs.eof) and j<rs.pagesize
response.write "<tr>"
for i=0 to rs.fields.count-1
if i=1 then
response.write "<td>"&"<a href="&chr(34)&"status.asp?bookname="& _
rs.fields.item(i).value&chr(34)&">"&rs.fields.item(i).value&"</a></td>"
"这里这样写是为了级联式查询而做的。
else
response.write "<td>"&rs.fields.item(i).value&"</td>"
end if
next
response.write "</tr>"
rs.movenext
j=j+1
wend
response.write "</table>"
end if
%>

编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：webcomputing━ado总结报告6
下一篇：sql server xml 和 web 应用体系结构（一）
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
　相关文章
最新更新 热点排行 推荐新闻
sql server 7.0与以前的版本相比，安全
设置proxy server和sql server实现互联
microsoft sql server 7.0安全问题   
mysql安全性指南(3)（转）           
mysql安全性指南 (2)（转）          
在frontpage 2000中插入flash动画
用frontpage 2000使图像“减肥”
提高frontpage 2002使用效率
用frontpage 2000创建网页动画
用frontpage 2000巧做样式表
用frontpage 2000制作鼠标光照特效
用frontpage轻松转换图片格式
frontpage10全透视教程(9)
frontpage10全透视教程(8)
frontpage10全透视教程(7)
sql server 7.0与以前的版本相比，安全
sql简明教程（6）
sql简明教程（5）
sql简明教程（4）
sql简明教程（3）
qq珊瑚虫外挂4.0版本发布！
多个广告位招商！
摄影后期系列一:1分钟为数码相片去红眼
qq挂机说明
asp进度条
photoshop通道抠图：给秀发飞扬的mm照
教您显示器亮度对比度的调节
新版上线，今日正式开通!!!
更多精彩图文广告等着您！
asp中使用sql语句教程
sql简明教程（1）
第二十章　开发delphi对象式数据管理功
sql简明教程（1）
vbscript和javascript互相调用 
jsp教程(四)-jsp actions的使用
操作系统被入侵后的修复过程
五一别忘电脑防毒 养成良好上网习惯
google对ie浏览器将捆绑搜索功能表担忧
新版上线，今日正式开通!!!
用photoshop创意图形“岁月”
摄影后期系列一:1分钟为数码相片去红眼

　友情链接
设置首 页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接
copyrights © 2004-2006 iyit.net all rights reserved.
网站合作、广告联系qq:147007642、466949678
易特网络技术 点击这里给我发消息