淘宝网女装新款秋装连衣裙裤子外套上衣_2012时尚女装新款 Ecmall二次开发-PHP技术

getrows分页代码
利用getrows进行分页源码 ASP分页

<%
'set conn=server.createobject("ADODB.connection")
'conn.open"Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("a.mdb")

'Set con = Server.CreateObject( "ADODB.Connection" )
'db_path="PROVIDER=SQLOLEDB;uid=sa;pwd=password;DATABASE=dbname;server=servername;"
'conn.Open db_path

Dim page,pagemax,pageup,pagedown,pagenum,data,pagedata
Function pageing(i,j)
    data=i
    pagemax = j
    pagedata = UBound(data,2)+1
    If pagedata Mod pagemax = 0 Then pagenum = pagedata/pagemax Else pagenum = Int(pagedata/pagemax+1)
    If request("page")="" or (Not IsNumeric(request("page"))) Then page=1 Else page=Int(request("page"))
    If page > pagenum Then page=pagenum
    If page < 1 Then page=1
    pageup = pagemax * (page-1)
    If page = pagenum Then pagedown = pagedata-1 Else pagedown = pagemax * page - 1
End Function

Function showpage()
    showpage = "<table border=""0"" cellspacing=""2"" cellpadding=""3""><tr><td style='font-size:12px;'>页次:"&page&"/"&pagenum&" 共有:"&pagedata& " "
    If page<2 Then showpage = showpage & "上页" Else showpage = showpage & "<a href='?page="&page-1&"'>上页</a>"
    If pagenum<7 then
        For i = 1 To pagenum
            If i = page Then showpage = showpage & "[<b>"&i&"</b>]" Else showpage = showpage & "<a href='?page="&i&"'>["&i&"]</a>"
        Next
    Else
        If page=1 Then showpage = showpage & "[<b>1</b>]" Else showpage = showpage & "<a href='?page=1'>[1]</a>"
        If page<4 Then
            For i = 2 To 5
                If i = page Then showpage = showpage & "[<b>"&i&"</b>]" Else showpage = showpage & "<a href='?page="&i&"'>["&i&"]</a>"
            Next
            showpage = showpage & "…"
        End if
        If page>3 And page<(pagenum-2) Then
            If page>4 then showpage = showpage & "…"
            For i = page-2 To page+2
                If i = page Then showpage = showpage & "[<b>"&i&"</b>]" Else showpage = showpage & "<a href='?page="&i&"'>["&i&"]</a>"
            Next
            If page<(pagenum-3) Then showpage = showpage & "…"
        End if
        If page>(pagenum-3) Then
            showpage = showpage & "…"
            For i = pagenum-4 To pagenum-1
                If i = page Then showpage = showpage & "[<b>"&i&"</b>]" Else showpage = showpage & "<a href='?page="&i&"'>["&i&"]</a>"
            Next
        End if
        If page=pagenum Then showpage = showpage & "[<b>"&pagenum&"</b>]" Else showpage = showpage & "<a href='?page="&pagenum&"'>["&pagenum&"]</a>"
    End If
    If page=pagenum Then showpage = showpage & "下页" Else showpage = showpage & "<a href='?page="&page+1&"'>下页</a>"
    showpage = showpage & "</td><td><select onChange=""javascrip:window.open(this.options[this.selectedIndex].value,'_self');"" style='font-size:10px;font-family:Arial;height:18px;color:#333'>"
    For i = 1 To pagenum
        showpage = showpage & "<option value='?page="&i&"'"
        If i = page Then showpage = showpage & " selected"
        showpage = showpage & ">"&i&"</option>"
    Next
    showpage = showpage & "</select></td></tr></table>"
End Function
%>

---

<%'example 实例
sql="select * from worktable where id>0 order by id desc"
Set rs=conn.execute(sql)
If Not(rs.eof or rs.bof) Then
pageing rs.getrows,10

For i = pageup To pagedown
  response.Write data(0,i)&" - "&data(0,i)&"<br>"
Next
End If

response.Write showpage()
%>

作者：noel@淘宝网女装新款秋装连衣裙裤子外套上衣_2012时尚女装新款 Ecmall二次开发-PHP技术
地址：http://www.laohucheng.com/post/309/
版权所有©转载时必须以链接形式注明作者和原始出处及本声明！