<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      一個分頁的例子
                
                  發表時間：2023-08-22             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]實現對新聞的分頁例子，源代碼如下：<table><% strCode = Request.QueryString("itemcode") Set Conn = ...

                              實現對新聞的分頁例子，源代碼如下：
      <table>
      <% 
      strCode = Request.QueryString("itemcode") 
      Set Conn = Server.CreateObject("Adodb.Connection")
      Conn.Open Application("tt18_ConnectionString")
      Set Rs = Server.CreateObject("Adodb.Recordset")
      Sql="select * from NewsHeadC where itemcode = ""&strCode&"" order by TrDate DESC,a.NewsTime DESC"
      Rs.Open Sql,Conn,1,3
      Rs.PageSize = 15
      Count = Rs.PageCount
      if Rs.BOF or Rs.EOF then
        Response.Write "<tr>" & vbCrlf
        Response.Write "<td width=120 align=left bgcolor=#538E7B>&nbsp;&nbsp;&nbsp;</td>" & vbCrlf
        Response.Write "<td width=80% bgcolor=#95D2FF>對不起，還沒有----相應的數據</span>" & vbCrlf 
        Response.Write "</td></tr>" & vbCrlf
      else
        Rs.AbsolutePage = page
        for i = 1 to Rs.PageSize
          Trdate = left(RS("trdate"),4) & "-" & mid(RS("trdate"),5,2) & "-" & right(RS("trdate"),2)
          Response.Write "<tr>" & vbCrlf
          Response.Write "<td width=120 align=left bgcolor=#C0DAD1>" & Trdate & "&nbsp;</td>" & vbCrlf
          Response.Write "<td width=80% bgcolor=#e4e4e4 height=20>" & vbCrlf
          Response.Write "<a href=""javascript:goto_jump(" & Rs("id") & "," & Rs("trdate") & ","" &     
             Rs("Newscode") & ""," & Rs("Identity") & ")""> " & vbCrlf
          Response.Write Rs("HeadLine") & "</a></td>" & vbCrlf
          Response.Write "</tr>" & vbCrlf
          Rs.MoveNext
          If Rs.EOF Then Exit For
        next
        Response.Write "<tr>" & vbCrlf
        Response.Write "<td align=right colspan=3 bgcolor=#99cccc>" & vbCrlf
        if page <>1 then
           Response.Write "<a href=relnews.asp?page=1&itemcode="&strCode&">首頁</a>" & vbCrlf
        end if
        tmppage = page - 1 
        if tmppage <= 0 then 
           tmppage = 1 
        else
           Response.Write"<a href=relnews.asp?page="&tmppage&"&itemcode="&strCode&">上一頁</a>"& vbCrlf
        end if
        tmppage = page + 1 
        if tmppage > Rs.PageCount then 
           tmppage = page
        else
           Response.Write "<a href=relnews.asp?page="&tmppage&"&itemcode="&strCode&">下一頁</a>"&vbCrlf
        end if 
        if Cstr(page) <> Cstr(Rs.PageCount) then
          Response.Write "<a href=relnews.asp?page="&Rs.PageCount&"&itemcode="&strCode&">尾頁</a>&vbCrlf
        end if 
        Response.Write "<font color:#ccffcc">第" & page & "頁</font>&nbsp;"
        Response.Write "<font color:#ccffcc">總共有：" & Rs.PageCount & " 頁</font>" & vbCrlf 
        Response.Write "<INPUT type=button value=關閉窗口 name=button1 height=12 size=18   
        onclick="javascript:return window.close();" style="BACKGROUND-COLOR: beige; FONT-SIZE: smaller; 
        HEIGHT: 22px; WIDTH: 66px"></td>" & vbCrlf
        Response.Write "</tr>" & vbCrlf
      end if
      %>
      </table> 


              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清