主頁(yè) > 知識(shí)庫(kù) > 簡(jiǎn)單分頁(yè)函數(shù)一 常用

簡(jiǎn)單分頁(yè)函數(shù)一 常用

熱門標(biāo)簽:縣域地圖標(biāo)注打印店 個(gè)人可以辦理400電話么 鳳臺(tái)百度地圖標(biāo)注店 萊西電子地圖標(biāo)注 外呼系統(tǒng)API接口 修改地圖標(biāo)注 怎么在地圖標(biāo)注自己 金昌電話機(jī)器人價(jià)格 武夷山旅游地圖標(biāo)注
復(fù)制代碼 代碼如下:

%
      page=trim(request("page"))
      maxperpage=40
      first=true
      last=true
      dim rs
      set rs=server.CreateObject("adodb.recordset")
      sql="select id,title,add1,cartype,isred,enterdate,hits from newnews where classtype=0 and pass=1 order by id desc"
rs.open sql,conn,1,1
        rs.pagesize=maxperpage
        totalpage=rs.pagecount
        if len(page)=0 then
        intpage=1
        first=false
        else
            if cint(page)=1 then
            intpage=1
            first=false
            else
                if cint(page)>=rs.pagecount then
                intpage=rs.pagecount
                last=false
                else
                intpage=cint(page)
                end if
            end if
        end if            
        if not rs.eof then
        rs.absolutepage=intpage
        end if
        for a=1 to maxperpage
        if rs.eof then exit for
        %>
        tr %if (a mod 2)=0 then
      response.write "bgcolor=#ffffff"
      else
      response.write "bgcolor=#f6f6f6"
      end if
      %>>
          td height="20">div align="center">%=a%>/div>/td>
          td>div align="center">
            %add=rs("add1")
        substring add,4
        %>
          /div>/td>
          td>
          a href="displaynews.asp?id=%=rs("id")%>" target="_blank">          
         %
        if rs("isred")=True then
        %>
        font color="red">
        %title=rs("title")
        substring title,20
        %>/font>
        %else
        title=rs("title")
        substring title,20
        %>
        %
        end if
        %>        
        /a>/td>
          td>div align="center">%=rs("cartype")%>/div>/td>
          td>div align="center">
              %thetime=rs("enterdate")
                    themon=datepart("m",thetime)
                    if len(themon)2 then themon="0"themon
                    theday=datepart("d",thetime)
                    if len(theday)2 then theday="0"theday
                    ther=themon"-"theday
                    response.write ther
                %>
          /div>/td>
          td>div align="center">%=rs("hits")%>/div>/td>
        /tr>
        %
      rs.movenext
      if rs.eof then exit for
      next        
      %>
      /table>
      table width="100%" border="0" cellspacing="0" cellpadding="0">
      tr>
        td height="5">/td>
      /tr>
    /table>
     table width="100%" border="0" cellpadding="0" cellspacing="0">
            tr>
              td height="20" bgcolor="#f6f6f6">
                  div align="center">
                    %if rs.pagecount>0 then %>
              共有%=rs.recordcount%>條|當(dāng)前頁(yè)%=intpage%>/
              %

=rs.pagecount%>

              % end if %>
              %if intpage>1 then%>
              a href="%request.ServerVariables("SCRIPT_NAME")%>?

page=1">首頁(yè)/a>
              %else%>
              首頁(yè)
              %end if%>
              %if first then%>
              a href="%request.ServerVariables("SCRIPT_NAME")%>?

page=%=intpage-1%>">上一頁(yè)/a>
              %else%>
              上一頁(yè)
              %end if%>
              %if last and intpagers.pagecount then%>
              a href="%request.ServerVariables("SCRIPT_NAME")%>?

page=%=intpage+1%>">下一頁(yè)/a>
              %else%>
              下一頁(yè)
              %end if%>
              %if intpagers.pagecount then%>
              a href="%request.ServerVariables("SCRIPT_NAME")%>?

page=%=rs.pagecount%>">尾頁(yè)/a>
              %else%>
              尾頁(yè)
              %end if%>
              轉(zhuǎn)到
              select onChange="location=this.options

[this.selectedIndex].value">
                %for b=1 to rs.pagecount
     if b=intpage then%>
                option value="%request.ServerVariables("SCRIPT_NAME")%>?page=%=b%>" selected>

                第%=b%>頁(yè)/option>
                % else %>
                option value="%request.ServerVariables("SCRIPT_NAME")%>?page=%=b%>">第%=b%>頁(yè)

                /option>
                %end if
     next%>
              /select>
nbsp;nbsp;nbsp;nbsp;/div>/td>
            /tr>
      /table>    
/body>
%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

標(biāo)簽:邢臺(tái) 楚雄 上海 赤峰 涼山 南京 通遼 清遠(yuǎn)

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《簡(jiǎn)單分頁(yè)函數(shù)一 常用》,本文關(guān)鍵詞  簡(jiǎn)單,分頁(yè),函數(shù),一,常用,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《簡(jiǎn)單分頁(yè)函數(shù)一 常用》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于簡(jiǎn)單分頁(yè)函數(shù)一 常用的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章