关闭

完整分页函数

标签: 数据库sql
384人阅读 评论(0) 收藏 举报
<%'连接数据库 

 
Set rs = Server.CreateObject("ADODB.Recordset"
 sql 
= "Select * FROM baseset" 
 rs.open sql,conn,
1,1 
    
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then 
      page
=1 
    
Else 
      Page
=Int(Abs(Request("page")))                  '取的page的值 
    End if 
 rs.pagesize 
= 20                                     '设置分页大小 
 total  = rs.RecordCount                              '总数据量 
 mypagesize = rs.pagesize 
 rs.absolutepage 
= page 
 
'rs.pagecount                                        '总页数 

                                                      
'循环开始 
 dim i  
 i
=1 
 
do while not rs.eof and mypagesize > 0 

'输出数据 

   mypagesize
=mypagesize-1 
   i
=i+1 
 rs.movenext 
 
loop 
%
> 

<if page>1 then %> 
    [
<a href="?page=1">首页</a>] [<a href="?page=<%=page-1%>">上页</a>
<end if %> 

<if page<rs.pagecount then %> 
      [
<a href="?page=<%=page+1%>">下页</a>] [<a href="?page=<%=rs.pagecount%>">尾页</a>
<end if %> 
<%'关闭数据库%>
 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:101827次
    • 积分:989
    • 等级:
    • 排名:千里之外
    • 原创:13篇
    • 转载:41篇
    • 译文:0篇
    • 评论:12条
    文章分类
    最新评论