Asp编程
搜索
分类

asp 分页函数,可以显示 1,2,3,4,5... 前十页,后十页,下一页,上一页

时间：2009-07-05 18:34:00　

<％   
   SoFia_DbName="jiaoyou" '修改此处为你的SQL   Server   数据库名称   
           YourServer   =   "seven" '修改此处为你的Sql   Server数据库地址   
           YourUid     =   "sa" '修改此处为你的数据库用户名   
           YourPassword   =   "struts" '修改此处为你的数据库密码             
           Connstr   =   "Driver={SQL   Server};Server="&YourServer&";Uid="&YourUid&";

Pwd="&YourPassword&";Database="&SoFia_DbName   
           Set   Conn=Server.CreateObject("ADODB.CONNECTION")   
   '         On   Error   Resume   Next   
           Conn.Open   Connstr   
           If   Err<>0   Then   
                   err.Clear   
                   Set   Conn   =   Nothing   
                   Response.Write   "<div   align=center><br><br><br>连接SqlServer数据库出错，请检查相关设置……</div>"   
                   Response.End           
           End   If   
    
   set   rs   =   server.CreateObject("adodb.recordset")   
   rs.open   "select   *   from   userInfo   order   by   id   desc",conn,1,1   
   if   not(rs.Eof   and   rs.Bof)   Then   
   page   =   trim(request.form("page"))   
   if   page   =   ""   then   page   =   trim(request.QueryString("page"))   
   if   Not(IsNumeric(page))   or   page   =   "0"   then   page   =   1   
   rs.pageSize   =   30 '设置每页的个数   
   strFile   =   "?" '设置当前页面的名称   
   pageCount   =   rs.pageCount   
   if   len(page)   >   4   then   page   =   pageCount   
   if   Cint(page)   >   Cint(pageCount)   then   page   =   pageCount   
   rs.absolutepage   =   page   
   for   i   =   1   to   rs.pagesize   
   if   rs.eof   then   exit   for   
   Response.Write   (Rs("username")&"<br>")&VbNewline   
   rs.MoveNext   
   Next'i   
   End   if％>   
    
   <％   
   Response.Write   ("<table   border=0   align=center   cellpadding=0   cellspacing=0><tr><td>")&VbNewline   
   if   pagecount   <   1   then   pagecount   =   1   
   response.Write   ("第"&page&"页/共"&PAGECOUNT&"页,每页"&rs.pageSize&"条/共"&rs.recordCount&"条记录</td><td> ")   
   beginpage   =   1   
   endpage   =   CInt(pagecount)   
   page   =   CInt(page)   
   if   pagecount   >=   9   then   
   if   page   >=   5   then   
   beginpage   =   page   -   4   
   if   page   <=   (pagecount   -   4)   then   
   endpage   =   page   +   4   
   else   
   endpage   =   pagecount   
   beginpage   =   pagecount   -   4   
   end   if   
   else   
   beginpage   =   1   
   endpage   =   9   
   end   if   
   end   if   
   if   beginpage>1   then   response.write   "<a   title=首页   href='"&strFile&logpage&"'><font   face=webdings>9</font></a>"   
   for   j   =   beginpage   to   endpage   
   if   j   =   page   then   
   response.write"[<b>"&j&"</b>] "   
   else   
   response.write"[<a   href='"&strFile&"page="&j&logpage&"'>"&j&"</a>] "   
   end   if   
   next   
   if   endpage   <   pagecount   then   response.write   ("<a   title=末页   href='"&strFile&"page="&pagecount&logpage&"'><font   face=webdings>:</font></a>")   
   Response.Write   ("</td><form   name='changepage'   method='post'   action='"&strFile&"'><td   align='right'> ")&VbNewline   
   Response.Write   ("<select   name='page'   onchange='document.changepage.submit();'>")&VbNewline   
   For   i=0   To   pagecount     
   If   i<>pagecount   Then     
   Response.Write   ("<option   value='"&i+1&"'")   
   If   page=i+1   Then   Response.Write   ("   selected")   
   Response.Write   (">"&i+1&"</option>")&VbNewline   
   End   If   
   Next   
   Response.Write   ("</select></td></form></tr></table>")   
   rs.close   
   set   rs   =   nothing   
   ％>

方法二：
<!--#include   file="conn.asp"-->   
   <％   
   dim   ip   
   ip=Request.ServerVariables("REMOTE_ADDR")   
   ％>   
   <html>   
    
   <head>   
   <meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312">   
   <link   href="css.css"   rel="stylesheet"   type="text/css">   
   <title>LCD软件管理系统   全部软件</title>   
   <script   language="JavaScript">   
   function   deletes()   
   {   
   if(   confirm("你确定要删除这些文件吗？\n"))   
   {return   true;   
   }   
     return   false;   
   }   
   </script>   
    
   </head>   
    
   <body   leftmargin="0"   topmargin=5>   
   <center>   
   <h3><font   color=red   face="幼圆">全部软件列表</font></h3>   
    
   <％   
   set   rs=server.createobject("adodb.recordset")   
   sql="select   *   from   info   where   used=0   and   pn<>'0'   order   by   pn"   
   rs.open   sql,conn,1,1   
   ％>   
   <table   width="870"   border="0"   cellpadding="0"   cellspacing="0"   style="border-collapse:   collapse"   bordercolor="#111111"   class=text>   
   <tr><td   colspan="6">   
   共有:<font   size=2   color=red><b> <％=rs.recordcount％> </b></font><font   size=2>个软件</font>   
   <％     
   MMaxPerPage=15   
   rs.PageSize=MMaxPerPage     
   if   trim(request("Page"))<>""   then   
   CurrentPage=CInt(request("Page"))   
       if   CurrentPage>rs.PageCount   then   
   CurrentPage=rs.PageCount   
       end   if   
   else   
   CurrentPage=1   
   end   if   
    
    
   ttotalPut=rs.RecordCount   
       if   CurrentPage<>1   then   
   if   (CurrentPage-1)*MMaxPerPage<ttotalPut   then   
   rs.Move(CurrentPage-1)*MMaxPerPage   
                                   bookmark=rs.Bookmark   
   end   if   
       end   if       
    
    
    
   if   (ttotalPut   mod   MMaxPerPage)=0   then   
   mm=ttotalPut\MMaxPerPage                   
   else   
   mm=ttotalPut\MMaxPerPage+1   
   end   if   
    
    
   if   (ttotalPut   mod   (MMaxPerPage*10))=0   then   
   nn=ttotalPut\(MMaxPerPage*10)                       
   else   
   nn=ttotalPut\(MMaxPerPage*10)+1   
   end   if   
   ％>   
    
    
                 <％   
                           if   (CurrentPage   mod   10)=0   then   
                 kk=CurrentPage\10-1   
           else     
                 kk=CurrentPage\10   
                           end   if   
    
                           if   nn>1   and   CurrentPage>10   then   
                 Response.Write   "<b><a   href='all.asp?s1="&request("s1")&"&s2="&request("s2")&"&s3="&request("s3")&"&s4="&request("s4")&"&andor="&request("andor")&"&ss="&request("ss")&"&page="+CStr((kk-1)*10+1)+"'>Pre.</a></b>"   
           end   if   
    
    
           for   ii=1   to   10   
   jj=kk*10+ii   
             if   jj<=mm   then   
                   if   jj=CurrentPage   then   
         Response.Write   "   <font   color=red>"+CStr(jj)+"</font>"   
                   else   
         Response.Write   "   <b>"+"<a   href='all.asp?s1="&request("s1")&"&s2="&request("s2")&"&s3="&request("s3")&"&s4="&request("s4")&"&andor="&request("andor")&"&ss="&request("ss")&"&page="+CStr(jj)+"'>"+CStr(jj)+"</a></b>"   
                   end   if   
             end   if   
           next   
            
                           Response.Write   "   "   
           if   kk<nn-1   then   
                 Response.Write   "   <b>"+"<a   href='all.asp?s1="&request("s1")&"&s2="&request("s2")&"&s3="&request("s3")&"&s4="&request("s4")&"&andor="&request("andor")&"&ss="&request("ss")&"&page="+CStr((kk+1)*10+1)+"'>Next</a></b>"   
    
           end   if   
   ％></td></tr></table>   
   <table   width="870"   border=0   cellpadding=0   cellspacing=0   class=text>   
   <tr>   
                           <td   width=30>ID</td>   
   <td   width=110>料号</td>   
   <td   width=190>显示屏</td>   
   <td   width=100>主板</td>   
   <td   width=180>语言</td>   
   <td   width=110>LOGO</td>   
   <td   width=50>版本</td>   
   <td   width=60>文件大小</td>   
   <td   width=40>   </td>   
   </tr>   
   <tr   height="1"   bgcolor="#689ACE"><td   colspan="9"></td></tr>   
    
   <％   
                       k=0   
                       for   y=(page-1)*15+1   to   (page-1)*15+15   
                       do   while   not   rs.EOF   and   i<MMaxPerPage   
    
   ％>   
   <tr   <％if   i   mod   2   then％>   bgcolor=#DEE3F7   <％End   if％>   height=25>   
           <td   width=30>   
   <％   
   Set   Fs   =   Server.CreateObject("Scripting.FileSystemObject")   
   If   Fs.FileExists(server.mappath("uploadfile/"&rs("filepath")))   Then   
   Response.Write   "<font   color=gray>"&rs("id")&"</font>"   
   else   
                           Response.Write   "<font   color=red>"&rs("id")&"</font>"   
   end   if   
   ％></td>   
   <td   width=110><％=rs("pn")％></td>   
   <％set   rs1=server.createobject("adodb.recordset")   
                           sql1="select   *   from   item   where   id="&rs("panel")   
                           rs1.open   sql1,conn,1,1％>   
   <td   width=190><％=rs1("item")％></td>   
   <％set   rs1=server.createobject("adodb.recordset")   
                           sql1="select   *   from   item   where   id="&rs("mb")   
                           rs1.open   sql1,conn,1,1％>   
   <td   width=100><％=rs1("item")％></td>   
   <％set   rs1=server.createobject("adodb.recordset")   
                           sql1="select   *   from   item   where   id="&rs("lang")   
                           rs1.open   sql1,conn,1,1％>   
   <td   width=180><％=rs1("item")％></td>   
   <td   width=110><％If   IsNumeric(Left(rs("logo"),8))   then％><img   src="LogoFile/<％=rs("logo")％>"   width=100   border=0   vspace="1"><％else％><％=rs("logo")％><％End   if％></td>   
   <td   width=50><％=rs("vers")％></td>   
   <td   width=60><％=Round(rs("filesize")/1024,2)％>   K</td>   
   <td   width=40><a   href=#   onclick=openwin('list.asp?id=<％=rs("id")％>')>详细</a></td>   
   </tr>   
    
   <％   
   i=i+1   
   rs.MoveNext     
   loop   
   next   
   ％>   
   <tr   height="1"   bgcolor="#689ACE"><td   colspan="9"></td></tr>   
   </table>   
    
   </body>   
    
   </html>


标签：asp,分页,函数
0
投稿

猜你喜欢

  • Python脚本实现下载合并SAE日志

    2023-04-13 06:41:41

  • 利用Python将图片中扭曲矩形的复原

    2022-05-24 21:35:54

  • 使用python计算方差方式——pandas.series.std()

    2022-05-24 14:03:35

  • 一个比较完美的spacer div技巧

    2009-03-18 19:29:00

  • sql server对字段的添加修改删除、以及字段的说明

    2012-01-05 18:50:52

  • yahoo 页面的标签效果

    2024-04-10 10:38:14

  • 零基础写python爬虫之抓取百度贴吧代码分享

    2022-09-04 23:55:12

  • 微软工程师讲解SQL server阻塞

    2008-01-05 14:02:00

  • 基于ExtJs框架的B/S高级查询界面

    2008-10-07 18:05:00

  • php获取文件扩展名的3种方法实例

    2023-05-25 02:15:51

  • Python对象循环引用垃圾回收算法详情

    2021-03-02 23:29:14

  • 分享Sql Server 存储过程使用方法

    2024-01-13 06:42:36

  • pandas删除行删除列增加行增加列的实现

    2022-10-27 13:22:55

  • 基于Mediapipe+Opencv实现手势检测功能

    2023-09-18 13:11:52

  • Python实现定时任务的八种方案详解

    2022-04-19 06:54:03

  • 快速解决vue.js 模板和jinja 模板冲突的问题

    2023-04-04 12:49:59

  • php实现utf-8和GB2312编码相互转换函数代码

    2024-04-29 13:56:12

  • mysql递归函数with recursive的用法举例

    2024-01-16 22:37:22

  • Python实现简单的学生信息管理系统

    2021-06-19 10:59:44

  • python实现TF-IDF算法解析

    2021-06-02 03:27:51
    • asp之家 网络编程 m.aspxhome.com