Çë½ÌÒ»¸ö·ÖÒ³º¯ÊýµÄÐÞ¸Ä~~

ÎÒÐÄsun·ÉÏè

º¯ÊýÈçÏÂ:

Ô¤ÀÀ£ºhttp://www.2282600.cn/houtai/page.asp
Ö§³Ö×Ô¶¨ÒåÏÔʾҳÂëµÄ¸öÊý£¬²¢Ê×ÏȻᱣ֤ҳÂëµÄ¸öÊý
Ö§³Ö×Ô¶¨ÒåÉÏÒ»Ò³ÏÂÒ»Ò³×Ö·û
Ö§³ÖÊÇ·ñÏÔʾÊý¾Ý·ÖÒ³ÐÅÏ¢£¬Èç×ܹ²¶àÉÙÒ³
Ö§³ÖÊÇ·ñÏÂÀ­ÁбíתÏò·ÖÒ³
Ö§³ÖÊÇ·ñÊäÈë¿òתÏò·ÖÒ³£¬×Ô¶¯ÅжÏÊý×Ö
Ö§³Ö×Ô¶¨Òå½ÓÊÕÒ³Âë±äÁ¿Ãû£¬Ä¬ÈÏΪpage
<%
sql=""
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open Sql,TXconn,1,1
If Rs.RecordCount Then

        TopNum=10        '¶¨ÒåÿҳÏÔʾ¶àÉÙÌõ
        QName="Page"        '¶¨Òå½ÓÊÕÒ³ÂëµÄ±äÁ¿Ãû

        Page=Request.QueryString(QName)
        If Page="" Then
                Page=1
        ElseIf Not IsNumeric(Page) Then
                Page=1
        Else
                Page=Page+0
        End if
        MaxPage=Fix(Rs.RecordCount/TopNum)
        If (Rs.RecordCount mod TopNum) Then MaxPage=MaxPage+1
        If Page>MaxPage Then Page=MaxPage
        Rs.PageSize=TopNum
        Rs.AbsolutePage = Page

        For i=1 to TopNum
                If Rs.bof or Rs.eof Then Exit For
                        Response.write(i&"<br />")
                Rs.MoveNext
        Next
Else
        Response.write("no data")
End If
%>

<%=TXPage(Rs.RecordCount,TopNum,2,0,0,0,QName)%>

<%
Function TXPage(Totals,PerNums,PageNum,Info,List,Input,QName)
'·ÖÒ³º¯Êý(ËùÓÐÊýÁ¿£¬Ã¿Ò³ÏÔʾ¼Ç¼Êý£¬Ò³Âë¸öÊý£¬Ò³Âëͳ¼ÆÐÅÏ¢£¬ÏÂÀ­ÁÐ±í£¬ÊäÈë¿ò£¬Ò³Âë±äÁ¿Ãû[Ϊ¿ÕÔòΪPage])
        Dim strBegin,strBefore,strPrev,strNext,strAfter,strEnd,BeginNum,EndNum,Page,Pages,Url
        strBegin="<font face=""webdings"">9</font>"  '¶¨ÒåµÚÒ»Ò³°´Å¥ÏÔʾÑùʽ
        strBefore="<font face=""webdings"">7</font>"  '¶¨ÒåÉϼ¸Ò³°´Å¥ÏÔʾÑùʽ
        strPrev="<font face=""webdings"">3</font>"  '¶¨ÒåÇ°Ò»Ò³°´Å¥ÏÔʾÑùʽ
        strNext="<font face=""webdings"">4</font>"  '¶¨ÒåÏÂÒ»Ò³°´Å¥ÏÔʾÑùʽ
        strAfter="<font face=""webdings"">8</font>"  '¶¨Òåºó¼¸Ò³°´Å¥ÏÔʾÑùʽ
        strEnd="<font face=""webdings"">:</font>"  '¶¨Òå×îºóÒ»Ò³°´Å¥ÏÔʾÑùʽ
        
        PageNum=Fix(PageNum/2)
        If QName="" Then QName="Page"
        Page=Request.QueryString(QName)
        Url="?"
        Dim Query,str,i
        Query=Split(Request.ServerVariables("QUERY_STRING"),"&")
        For i=0 to Ubound(Query)
                Str=Split(Query(i),"=")
                If Lcase(Str(0))<>Lcase(QName) Then Url=Url&Str(0)&"="&Str(1)&"&"
        Next
        PerNums=PerNums+0
        If Totals mod PerNums Then
                Pages=Fix(Totals/PerNums)+1
        Else
                Pages=Fix(Totals/PerNums)
        End If
        If IsNumeric(Page) Then
                Page=Page+0
                If Page>Pages Then
                        Page=Pages
                ElseIf Page<1 Then
                        Page=1
                End If
        Else
                Page=1
        End If
        
        TXPage=""
        BeginNum=Page-PageNum
        EndNum=Page+PageNum
        If BeginNum<1 Then BeginNum=1
        If EndNum-BeginNum<PageNum*2 Then EndNum=BeginNum+PageNum*2
        If EndNum>Pages Then EndNum=Pages
        If EndNum-BeginNum<PageNum*2 Then BeginNum=EndNum-PageNum*2
        If BeginNum<1 Then BeginNum=1
        If BeginNum>PageNum*2 and PageNum>1 Then TXPage=TXPage&"<a href="""&Url&QName&"="&Page-PageNum*2&"""

Title=""Ç°"&PageNum*2&"Ò³"">"&strBefore&"</a>"
        If BeginNum>1 Then TXPage="<a href="""&Url&QName&"=1"" Title=""µÚÒ»Ò³"">"&strBegin&"</a>"&TXPage&"<a

href="""&Url&QName&"="&Page-1&""" Title=""ÉÏÒ»Ò³"">"&strPrev&"</a>.."
        For i=BeginNum to EndNum
                If i=Page Then
                        TXPage=TXPage&"[<span style=""cursor:pointer;font-weight:bold;"">"&i&"</span>]"
                Else
                        TXPage=TXPage&"[<a href="""&Url&QName&"="&i&""">"&i&"</a>]"
                End If
        Next
        If EndNum<Pages Then TXPage=TXPage&"..<a href="""&Url&QName&"="&Page+1&""" Title=""ÏÂÒ»Ò³"">"&strNext&"</a>"
        If EndNum<Pages-PageNum*2 and PageNum>1 Then TXPage=TXPage&"<a href="""&Url&QName&"="&Page+PageNum*2&""" Title=""

ºó"&PageNum*2&"Ò³"">"&strAfter&"</a>"
        If EndNum<Pages Then TXPage=TXPage&"<a href="""&Url&QName&"="&Pages&""" Title=""×îÄ©Ò³"">"&strEnd&"</a>"
        If Info Then TXPage=TXPage&" Ò³´Î:"&Page&"/"&Pages&"Ò³ ¹²"&Totals&"Ìõ "&PerNums&"Ìõ/Ò³"
        If List Then
                TXPage=TXPage&" <select onChange=""javascript:window.location.href='"&Url&QName&"='+this.options

[this.selectedIndex].innerText;"">"
                For i=1 to Pages
                        TXPage=TXPage&"<option"
                        If i=Page Then TXPage=TXPage&" selected"
                        TXPage=TXPage&">"&i&"</option>"
                Next
                TXPage=TXPage&"</select>"
        End If
        If Input Then TXPage=TXPage&" <input type=""text"" size=""1"" Title=""ÊäÈëºÅÂëºó£¬°´»Ø³µ¼´¿É""

style=""overflow:visible;ime-mode:disabled;"" onkeydown=""javascript:if

('.8.13.37.39.46.48.49.50.51.52.53.54.55.56.57.96.97.98.99.100.101.102.103.104.105.'.indexOf('.'+event.keyCode+'.')>=0){if

(event.keyCode==13){window.location.href='"&Url&QName&"='+value;}}else{return false;}"">"
End Function
%>



ÎÊÌâÈçÏÂ:

¾ÍÊÇÈçºÎÈçºÎµ÷Óð¡~

ÊDz»ÊÇ(ÎҵıíÃûÊÇ news, ÌâÄ¿ÊÇ news_head£©

°Ñ
<%
sql=""
Õâ¸Ä³É

<!--#include file="conn.asp"-->
<%
exec="select * from  news  order by news_time desc "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
If Rs.RecordCount Then

        TopNum=10        '¶¨ÒåÿҳÏÔʾ¶àÉÙÌõ
        QName="Page"        '¶¨Òå½ÓÊÕÒ³ÂëµÄ±äÁ¿Ãû
..........
..........

(event.keyCode==13){window.location.href='"&Url&QName&"='+value;}}else{return false;}"">"
End Function
%>

¿ÉÊÇÐÂÎÅÌâÄ¿Áбínews_headдÔÚÄÄ,¸ÃÈçºÎÒÔÁбíÐÎʽÏÔʾ³öÀ´°¡£¿ ÇëÇó´ó¼ÒµÄ°ïÖú~

Çå·ç

°ÙÍòÊý¾ÝÖ»ÓÐʹÓô洢¹ý³ÌЧÂʲÅÄÜÌá¸ß

Ó¸ҵÄÐÄ

ÀÏ´ó£¬ÄúµÄ·ÖÒ³´úÂëÔÚ°ÙÍòÊý¾ÝµÄ²âÊÔÏÂ
ÊDz»ÊÇ·ÖÒ³ÏÔʾËٶȻá±äµÄºÜÂýÄØ£¿£¿£¿

³ó½£¿Í

¸Ðл°ßÖñ£¬²»¹ýÄúµÄ´úÂëͨ¹ý°ÙÍòÊý¾ÝµÄ²âÊÔÂð£¿
ÊDz»ÊÇ´óÊý¾ÝÏ ·ÖÒ³ÏÔʾËٶȻá±äµÄºÜÂýÄØ£¿£¿£¿

¿áaiqƒºkuku

ÏÂÃæÕâ¸öËãÊÇʹÓÃÁË´æ´¢¹ý³ÌµÄÂð?

intTotalRecords = rs.RecordCount
rs.PageSize = intPageSize
intTotalPages = rs.PageCount
If intCurrentPage > intTotalPages Then intCurrentPage = intTotalPages
If intTotalRecords > 0 Then rs.AbsolutePage = intCurrentPage
strOut(0) = strOut(0) & "¹² " & intTotalRecords & " Ìõ¼Ç¼ "
strOut(0) = strOut(0) & "¹² " & intTotalPages & " Ò³ "
strOut(0) = strOut(0) & "µ±Ç°µÚ " & intCurrentPage & " Ò³ "
If intCurrentPage <> 1 And intTotalRecords <> 0 Then
strOut(0) = strOut(0) & "<a href=""?pageNum=1""><<Ê×Ò³</a> "
Else
strOut(0) = strOut(0) & "<<Ê×Ò³ "
End If
If intCurrentPage > 1 Then
strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage - 1 & """><ÉÏÒ»Ò³</a> "
Else
strOut(0) = strOut(0) & "<ÉÏÒ»Ò³ "
End If
If intCurrentPage < intTotalPages Then
strOut(0) = strOut(0) & "<a href=""?pageNum=" & intCurrentPage + 1 & """>ÏÂÒ»Ò³></a> "
Else
strOut(0) = strOut(0) & "ÏÂÒ»Ò³> "
End If
If intCurrentPage <> intTotalPages Then
strOut(0) = strOut(0) & "<a href=""?pageNum=" & intTotalPages & """>βҳ>></a>"
Else
strOut(0) = strOut(0) & "βҳ>>"
End If

ÎÞÃñ

http://bbs.bccn.net/viewthread.php?tid=37557&extra=page%3D1%26amp%3Bfilter%3Ddigest
¸øÂ¥Ö÷ÍƼöÎÒдµÄ·ÖÒ³Àà¾ø¶ÔµÄ¼òµ¥Áé»î£¬Ð޸ķ½±ã£¬³ýÁ˲»Ö§³Ö×Ô¶¨ÒåÒ³ÂëÊýÖ®Í⣬Êý¾ÝÏÔʾ·½Ê½µÈÍêÈ«¿ÉÒÔ×Ô¶¨Òå¡£

À¶¾«Áé

Ç¿ÁÒÖ§³Ö¡£Â¥Ö÷ÍòËê