淺析一個不錯的翻頁效果代碼_ASP教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：解讀一個圖形化輸入日期的方法代碼
      結果： !doctypehtmlpublic-//W3C//DTDHTML4.0 html head titleNewDocument/title metaname=Generatorcontent=EditPlus metaname=Authorcontent= metaname=Keywordscontent= metaname=Descriptioncontent= /head body !--

      <!--#include file=conn.asp --> 

      <%PageShowSize = 5            ’每頁顯示多少個頁 
      MyPageSize   =10           ’每頁顯示多少條文章 
           
      If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then 
      MyPage=1 
      Else 
      MyPage=Int(Abs(Request("page"))) 
      End if 

      set rs=server.CreateObject("ADODB.RecordSet") 
      rs.Source="select * from News  order by NewsID desc" 
      rs.Open rs.Source,conn,3,1 

      If Not rs.eof then 
      rs.PageSize     = MyPageSize 
      MaxPages         = rs.PageCount 
      rs.absolutepage = MyPage 
      total            = rs.RecordCount 

      %><body link="#000000" vlink="#000000" alink="#000000"> 
            <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" style="border-collapse: collapse"> 
              <% 
      for i=1 to rs.PageSize 
      if not rs.EOF then 
      %> 
              <tr bgcolor="#FFFFFF">  
                <td width="63%" height="30" ><%=trim(rs("title"))%></td> 
                <% 
      rs.MoveNext 
      end if 
      next 
      %> 
           </tr></table> 
      <table> 
            <tr>          
          <td colspan=2 align=center height=30>共 <%=total%> 條，當前第 <%=Mypage%>/<%=Maxpages%>  
            頁  
            <% 
      url="index.asp?" 
      PageNextSize=int((MyPage-1)/PageShowSize)+1 
      Pagetpage=int((total-1)/rs.PageSize)+1 

      if PageNextSize >1 then 
      PagePrev=PageShowSize*(PageNextSize-1) 
      Response.write "<a class=black href=’" & Url & "page=" & PagePrev & "’ title=’上" & PageShowSize & "頁’>上一翻頁</a> " 
      Response.write "<a class=black href=’" & Url & "page=1’ title=’第1頁’>頁首</a> " 
      end if 
      if MyPage-1 > 0 then 
      Prev_Page = MyPage - 1 
      Response.write "<a class=black href=’" & Url & "page=" & Prev_Page & "’ title=’第" & Prev_Page & "頁’>上一頁</a> " 
      end if 

      if Maxpages>=PageNextSize*PageShowSize then 
      PageSizeShow = PageShowSize 
      Else 
      PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1) 
      End if 
      If PageSizeShow < 1 Then PageSizeShow = 1 
      for PageCounterSize=1 to PageSizeShow 
      PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize 
      if PageLink <> MyPage Then 
      Response.write "<a class=black href=’" & Url & "page=" & PageLink & "’>[" & PageLink & "]</a> " 
      else 
      Response.Write "<B>["& PageLink &"]</B> " 
      end if 
      If PageLink = MaxPages Then Exit for 
      Next 

       
      分享：解讀ASP常用函數列表
      1數學函數 1.1 取整函數 int(x) 取不大于x的最大整數。 fix(x) 舍去x的小數部分。 1.2 絕對值函數 abs(x) 求x的絕對值。 1.3 符號函數 sgn(x) 求x的符號代碼，x為負數時函數值為-1 。 1.4 平方根函數 sqr(x) 求x的算術平方根，x必須大于0 。 1.5 指數函數 ex
      


      

      共2頁上一頁12下一頁
      


      來源：模板無憂//所屬分類：ASP教程/更新時間：2010-03-10


      


      



      


      



      相關ASP教程：