1. 
            
             
        
      2. 
    
      

    

      







      
    
      
        
      
            
      網(wǎng)站asp程序有分頁的寫法
      
            
            
      2010-10-21
      
            
      


         <% 
      page=clng(request("page"))   
      Set rs=Server.CreateObject("ADODB.RecordSet") 
      

      sql="select * from news where a='"&a&"'   order by pai desc"
      rs.Open sql,conn,1,1
      


      if rs.eof and rs.bof then
        response.Write("暫時沒有記錄")
      else 
      %>
      


      <% 
      rs.PageSize=24
      if page=0 then page=1 
      pages=rs.pagecount
      if page > pages then page=pages
      rs.AbsolutePage=page  
      for j=1 to rs.PageSize 
      %>
      

       
      

      <%if rs("l3")<>"" then%>
    2. " target="_blank"><%=rs("title")%> 
      <%=year(rs("Infotime"))%>.<%=month(rs("Infotime"))%>.<%=day(rs("Infotime"))%>

      3. <%else%>
    3. "><%=rs("title")%> 
      <%=year(rs("Infotime"))%>.<%=month(rs("Infotime"))%>.<%=day(rs("Infotime"))%>

      4. <%end if%>
      

      <%
      rs.movenext
      if rs.eof then exit for
      next
      %>


                                <%if Page<2 then      
          response.write "首頁 上一頁 "
        else
          response.write "首頁 "
          response.write "上一頁 "
        end if
        if rs.pagecount-page<1 then
          response.write "下一頁 尾頁"
        else
          response.write ""
          response.write "下一頁       尾頁"
        end if
         response.write " 頁次："&Page&"/"&rs.pagecount&"頁 "
          response.write " 共"&rs.recordcount&"條記錄 "&rs.pagesize&"條記錄/頁"
         response.write " 轉到："
         response.write " 
      "     
      %>
                              

                         

       <% 
      end if
      rs.close
      set rs=nothing
      %>