8年网站建设、推广经验!服务客户2000+
微信关注
扫一扫,享优惠!
咨询电话:400-888-2014;座机:029-81627176;手机/微信:153 5370 4270
建站技术

您现在的位置:主页 > 心海资讯 > 建站技术 >

  • 推荐文章
  • w3c school
    ......
    201804/08
  • 网站优化其实很简单
    网站优化其实很简单 网站优化按天收费是一种新型模式,比以前的点击收费要实惠很多,在南方那一带地区用这种方式的人很多,西安做网站的公司心海推出网站优化套餐特惠活动 ......
    201409/01
  • 西安网站建设包括什么?
    西安网站建设包括什么? 来源:西安心海建站作者:西安心海建站 西安网站建设 包括哪些项目?哪些需要了解? 首先,网站建设是网站策划师、网络程序员、网页设计师等岗位, ......
    201205/09
  • 身为网站设计人员真的对
    身为网站设计人员真的对 西安的网站建设公司 感到担忧,你的网站真的是你想要的效果吗?你想要一个满意的网站吗?联系人:薛经理,电话:153 5370 4270 地址:陕西省西安市......
    201305/13
  • 西安网站设计公司怎么样
    西安网站设计公司 怎么样才会有回头客?联系人:薛经理,电话:153 5370 4270 地址:陕西省西安市未央区龙首村十字公园壹号一号楼1815室。 西安心海网络科技,十多年网站建......
    201305/28
  • 西安心海建站签约西安婷
    西安婷趣服饰有限公司......
    201212/31
  • 相关文章

ADO中Recordset对象的分页技术

心海网络:2012-01-24 10:28     阅读数:

ADO中Recordset对象的分页技术

关键词:asp中如何分页,如何使用Recordset对象是想分页技术

下面是实现分页技术的主要代码分析

//////////////////////分页显示内容部分/////////////////////////////////////////
<%
function showpage(totalnumber,listnum,filename)     '总页数,每页显示的条数,提交到的文件                                           
dim n                                                 
if totalnumber mod listnum=0 then     '如何总记录数能被每页显示的条数整除,就把总页数设为n                                               
n=totalnumber \ listnum                                                 
else                                                 
n=totalnumber \ listnum + 1   '如果不能被整除,就给n+1                                             
end if

                                                
response.write "<form method=post action="&filename&">"                                                 
response.write " "                                                 
if CurrentPage<2 then       '如果当前页面小于2,就只显示首页和上一页,但是首页也上一页都没有超链接。                                              
response.write "<font color='#000080'>首页 下一页</font> "                                                 
else                                                 
response.write "<a href="&filename&"?page=1>首页</a> "                                                 
response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a> "                                                 
end if      

                                           
if n-currentpage<1 then      '如果此页后面的页面小于1页,也就是说后面没有页面啦,所以下一页和尾页都没有超连接                                     
response.write "<font color='#000080'>下一页 尾页</font>"                                                 
else                                                 
response.write "<a href="&filename&"?page="&(CurrentPage+1)&">下一页</a> "  '如果后面还有页面,就给下一页添加友情链接                                               
response.write "<a href="&filename&"?page="&n&">尾页</a>"    '尾页的连接就是总页数                                               
end if                                                 
response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>条留言   每页<b>"&listnum&"</b>条留言</font> "                                                 
response.write "<font color='#000080'>转到:</font><input class=smallInput type='text' name='page' size=4 maxlength=10 value="&Currentpage&">"                                                 
response.write "<input class=buttonface type='submit' value='Go' name='cndok'></form>"                                                 
end function     %>

//////////////////////定义和处理分页部分////////////////////////////////
<%
dim totalPut'总记录数
dim CurrentPage'当前页
dim TotalPages'总页数
dim a,j
if not isempty(request("page")) then     '如果传递过来page的值不为空,当前页面的值就变为传递过来的page的值
currentPage=cint(request("page"))
else
currentPage=1      '如果没有传递过来page的值,当前页面的值就为1
end if
%>   

<%                                                       
sql="select * from guest order by id desc"   '定义查询语句                                                  
set rs=server.createobject("adodb.recordset") '创建Recordset对象,数据集                                                      
rs.open sql,conn,1,1                     '打开数据集                                  
if rs.eof and rs.bof then     '判断当前游标有没有在第一条记录的前面或者后一条记录的后面,说明就没有留言                                                  
response.write "<p align=center>还 没 有 任 何 留 言</p>"                                                       
else                                                       
totalPut=rs.recordcount    //      '通过Recordset对象的recordcount属性获取数据集的总记录数,赋值给totalPut                                             
if currentpage<1 then       '如果当前页面小于1,把当前页面的值就赋值为1                                                   
currentpage=1                                                       
end if                         
                              
if (currentpage-1)*listnum>totalput then    'currentpage是通过上一页下一页传递过来的值,如果这个运算表达式成立,说明传递过来的值太小啦                                                   
    if (totalPut mod listnum)=0 then  '如果总记录数能被每页的记录数 整除,当前页面就是总记录数和每个页面的商                                                   
    currentpage=totalPut \ listnum                                              
    else                                                      
    currentpage=totalPut \ listnum + 1                                              
    end if                                                      
end if  
                                                     
if currentPage=1 then                                                       
showContent       '显示留言函数                                               
showpage totalput,listnum,"index.asp"'显示分页函数,向分页函数传递三个参数 totalput,listnum,"index.asp"                                                    
else                                                       
if (currentPage-1)*listnum<totalPut then    '说明currentPage是一个有效值                                                  
rs.move (currentPage-1)*listnum     '把游标移动到要调转的页面的记录的第一条记录的前面,也就是跳转到页面的第一条                                                  
                                                
showContent                                                       
showpage totalput,listnum,"index.asp"                                                       
else                                                       
currentPage=1                                                       
showContent                                                       
showpage totalput,listnum,"index.asp"                                                       
end if                                                       
end if                                                       
rs.close                                                       
end if                                                       
set rs=nothing                                                       
conn.close                                                       
set conn=nothing                                         
%>

在线客服
热线电话
400-888-2014
029-81627176
153 5370 4270

扫一扫微信咨询