<rt id="tf2wb"><bdo id="tf2wb"><kbd id="tf2wb"></kbd></bdo></rt>
    1. <button id="tf2wb"><thead id="tf2wb"></thead></button>

      <rp id="tf2wb"><bdo id="tf2wb"></bdo></rp>
      <delect id="tf2wb"><td id="tf2wb"></td></delect>
      <rt id="tf2wb"></rt>
      <rt id="tf2wb"><bdo id="tf2wb"></bdo></rt>
    2. 企業(yè)與個(gè)人網(wǎng)絡(luò )營(yíng)銷(xiāo)一站式服務(wù)商
      網(wǎng)站建設 / SEO優(yōu)化排名 / 小程序開(kāi)發(fā) / OA
      0731-88571521
      136-3748-2004
      asp 分頁(yè)函數,可以顯示 1,2,3,4,5... 前十頁(yè),后十頁(yè),下一頁(yè),上一頁(yè)
      信息來(lái)源:長(cháng)沙網(wǎng)站建設優(yōu)化   發(fā)布時(shí)間:2011-8-1   瀏覽:
      asp 分頁(yè)函數,可以顯示 1,2,3,4,5... 前十頁(yè),后十頁(yè),下一頁(yè),上一頁(yè)
      方法一:
      <%  
         SoFia_DbName="jiaoyou" '修改此處為你的SQL   Server   數據庫名稱(chēng)  
                 YourServer   =   "seven" '修改此處為你的Sql   Server數據庫地址  
                 YourUid     =   "sa" '修改此處為你的數據庫用戶(hù)名  
                 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數據庫出錯,請檢查相關(guān)設置……</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 '設置每頁(yè)的個(gè)數  
         strFile   =   "?" '設置當前頁(yè)面的名稱(chēng)  
         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&"頁(yè)/共"&PAGECOUNT&"頁(yè),每頁(yè)"&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=首頁(yè)   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=末頁(yè)   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>個(gè)軟件</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>語(yǔ)言</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>



      上一條: 網(wǎng)站百度快照回檔問(wèn)題的經(jīng)驗
      下一條: 做網(wǎng)站SEO如何打造企業(yè)品牌
      案例鑒賞
      多年的網(wǎng)站建設經(jīng)驗,斌網(wǎng)網(wǎng)絡(luò )不斷提升技術(shù)設計服務(wù)水平,迎合搜索引擎優(yōu)化規則
      做小程序開(kāi)發(fā)
      多年的網(wǎng)站建設經(jīng)驗,網(wǎng)至普不斷提升技術(shù)設計服務(wù)水平,迎合搜索引擎優(yōu)化規則
      長(cháng)沙私人做網(wǎng)站    長(cháng)沙做網(wǎng)站    深圳網(wǎng)站建設    株洲做網(wǎng)站    東莞做網(wǎng)站    南京防腐木    湖南大拇指養豬設備    株洲做網(wǎng)站    
      版權所有 © 長(cháng)沙市天心區斌網(wǎng)網(wǎng)絡(luò )技術(shù)服務(wù)部    湘公網(wǎng)安備 43010302000270號  統一社會(huì )信用代碼:92430103MA4LAMB24R  網(wǎng)站ICP備案號:湘ICP備13006070號-2  
      国产精品久久久久精品|久久网国产精品色婷婷免费|国产另类小说 视频 中文字幕|亚洲欧洲日产国码在线|2020最新国产在线不卡A|无码人妻少妇久久中文字幕蜜|99国产一区二区精品久久

          <rt id="tf2wb"><bdo id="tf2wb"><kbd id="tf2wb"></kbd></bdo></rt>
        1. <button id="tf2wb"><thead id="tf2wb"></thead></button>

          <rp id="tf2wb"><bdo id="tf2wb"></bdo></rp>
          <delect id="tf2wb"><td id="tf2wb"></td></delect>
          <rt id="tf2wb"></rt>
          <rt id="tf2wb"><bdo id="tf2wb"></bdo></rt>