好湿?好紧?好多水好爽自慰,久久久噜久噜久久综合,成人做爰A片免费看黄冈,机机对机机30分钟无遮挡

主頁 > 知識庫 > asp分頁的一個類

asp分頁的一個類
熱門標簽：辦理400電話一年多少錢 蘭州智能語音電銷機器人功能 為什么外呼系統需要預存話費呢 企數外呼系統能用多久 常用地圖標注范圍點 咸陽銷售外呼系統 外呼回撥系統圖片 寧夏怎么申請400電話 離線電子地圖標注軟件注冊
asp分頁的一個類 
在50,000條記錄下測試過，速度比ado的那個要快多了 

%

'************************************************************************************
'具體用法
Dim strDbPath
Dim connstr
Dim mp
Set mp = New MyPage
strDbPath = "fenye/db.mdb"
connstr  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr  = connstr  Server.MapPath(strDbPath)
Set conn  = Server.CreateObject("Adodb.Connection")
conn.open connstr
set rs = mp.Execute("select * from table1",conn,29)
while not rs.eof
    response.write rs("aaaa")"br>"
    rs.MoveNext
wend
mp.pageDispaly()
'************************************************************************************
Class MyPage
    private MyPage_Conn,MyPage_StrSql,MyPage_TotalStrSql,MyPage_RS,MyPage_TotalRS
    private MyPage_PageSize
    private MyPage_PageAbsolute,MyPage_PageTotal,MyPage_RecordTotal
    private MyPage_Url
    public property let conn(strConn)
    set MyPage_Conn = strConn
    end property

    public property let PageSize(intPageSize)
        MyPage_PageSize = Cint(intPageSize)
    end property

    public function PageExecute(strSql)
        MyPage_PageAbsolute = MyPage_PageAbsoluteRequest()
        MyPage_TotalStrSql = FormatMyPage_TotalStrSql(strSql) 
        set MyPage_TotalRS = MyPage_Conn.execute(MyPage_TotalStrSql)
        MyPage_RecordTotal = MyPage_TotalRS("total")
        MyPage_PageTotal = Cint(MyPage_RecordTotal/MyPage_PageSize)
        MyPage_StrSql = FormatMyPage_StrSql(strSql)
        set MyPage_RS = MyPage_Conn.execute(MyPage_StrSql)
        dim i
        i = 0 
        while not MyPage_RS.eof and  i(MyPage_PageAbsolute-1)*MyPage_PageSize
            i = i + 1
            MyPage_RS.MoveNext
        wend
        set PageExecute = MyPage_RS 
    end function

    public function Execute(strSql,strConn,intPageSize)
        conn = strConn
        PageSize = intPageSize
        set Execute = PageExecute(strSql)
    end function

    public function pageDispaly()
        MyPage_Url = ReadMyPage_Url
        firstPageTag = "font face=webdings>9/font>"  '|
        LastPageTag = "font face=webdings>:/font>"  '>>|
        previewPageTag = "font face=webdings>7/font>"  '
        nextPageTag = "font face=webdings>8/font>"  '>>
        dim strAnd
        if instr(MyPage_Url,"?")=0 then
            strAnd = "?"
        else
            strAnd = ""
        end if
        response.write "table width=100%  border=0 cellspacing=0 cellpadding=0>"
        response.write "tr>"
        response.write "td align=left>"
        response.write  "頁次:"MyPage_PageAbsolute"/"MyPage_PageTotal"頁nbsp"
        response.write  "主題數:"MyPage_RecordTotal
        response.write "/td>"
        response.write "td align=right>"
        response.write  "分頁:"
        if MyPage_PageAbsolute>10 then
            response.write  "a href='"MyPage_UrlstrAnd"MyPage_PageNo=1'>"firstPageTag"/a>"
            response.write  "a href='"MyPage_UrlstrAnd"MyPage_PageNo="(MyPage_PageAbsolute-10)"'>"previewPageTag"/a>"
        else
            response.write  firstPageTag
            response.write  previewPageTag
        end if
        response.write "nbsp"
        dim CurrentStartPage,i
        i = 1
        CurrentStartPage=(Cint(MyPage_PageAbsolute)\10)*10+1
        if Cint(MyPage_PageAbsolute) mod 10=0 then
            CurrentStartPage = CurrentStartPage - 10
        end if
        while i11 and CurrentStartPageMyPage_PageTotal+1
            if CurrentStartPage  10 then
                FormatCurrentStartPage = "0"  CurrentStartPage
            else
                FormatCurrentStartPage = CurrentStartPage
            end if
            response.write  "a href='"MyPage_UrlstrAnd"MyPage_PageNo="CurrentStartPage"'>"FormatCurrentStartPage"/a>nbsp"
            i = i + 1
            CurrentStartPage = CurrentStartPage + 1
        wend
        if MyPage_PageAbsolute(MyPage_PageTotal-10) then
            response.write  "a href='"MyPage_UrlstrAnd"MyPage_PageNo="(MyPage_PageAbsolute+10)"'>"nextPageTag"/a>"
            response.write  "a href='"MyPage_UrlstrAnd"MyPage_PageNo="MyPage_PageTotal"'>"LastPageTag"/a>"
        else
            response.write  nextPageTag
            response.write  LastPageTag
        end if
        response.write  ""
        response.write "/td>"
        response.write "/tr>" 
        response.write "/table>"
    end function

    public function GetPageNo()
        GetPageNo = cint(MyPage_PageAbsolute)
    end function

    public function GetPageCount()
        GetPageCount = cint(MyPage_PageTotal)
    end function

    public function GetPageNoName()
        GetPageNoName = "MyPage_PageNo"
    end function

    public function GetPageSize()
        GetPageSize = MyPage_PageSize
    end function

    public function GetRecordTotal()
        GetRecordTotal = MyPage_RecordTotal
    end function

    

    private function FormatMyPage_TotalStrSql(strSql)
        FormatMyPage_TotalStrSql = "select count(*) as total "
        FormatMyPage_TotalStrSql = FormatMyPage_TotalStrSql  Mid(strSql,instr(strSql,"from"))
        FormatMyPage_TotalStrSql = Mid(FormatMyPage_TotalStrSql,1,instr(FormatMyPage_TotalStrSql"order by","order by")-1)
    end function

    private function FormatMyPage_StrSql(strSql)
        FormatMyPage_StrSql = replace(strSql,"select","select top "(MyPage_PageAbsolute*Cint(MyPage_PageSize)))
    end function

    private function MyPage_PageAbsoluteRequest()
        if request("MyPage_PageNo")="" then 
            MyPage_PageAbsoluteRequest = 1
        else
            if IsNumeric(request("MyPage_PageNo")) then
                MyPage_PageAbsoluteRequest = request("MyPage_PageNo")
            else
                MyPage_PageAbsoluteRequest = 1
            end if
        end if
    end function

    private function ReadMyPage_Url()
        ReadMyPage_Url = Request.ServerVariables("URL")
        if Request.QueryString>"" then
            ReadMyPage_Url = ReadMyPage_Url  "?"  Request.QueryString 
        end if
        set re = new RegExp
        re.Pattern = "[|?]MyPage_PageNo=\d+?"
        re.IgnoreCase = true
        re.multiLine = true
        re.global = true
        Set Matches = re.Execute(ReadMyPage_Url) 
        For Each Match in Matches  
            tmpMatch = Match.Value
            ReadMyPage_Url = replace(ReadMyPage_Url,tmpMatch,"")
        next
    end function
end Class

%> 


您可能感興趣的文章:
  • asp下計算分頁的幾種方法
  • ASP分頁類(支持多風格變換)
  • 透徹掌握ASP分頁技術很詳細的分析
  • asp分頁（自己整理的2個分頁程序）
  • 易心asp分頁類 v1.0
  • asp分頁生成html的程序腳本代碼
  • 徹底掌握ASP分頁技術雜談
  • 簡單的ASP分頁代碼（測試正確）
  • flash和asp分頁的一點心得與flash腳本
  • js實現ASP分頁函數 HTML分頁函數
  • 葉子asp分頁類
  • ASP分頁時計算頁面總數的幾種算法小結

標簽：鐵嶺 麗江 昆明 溫州 咸陽 家電維修 昌都 泰州

巨人網絡通訊聲明：本文標題《asp分頁的一個類》，本文關鍵詞  asp,分頁,的,一個,類,asp,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《asp分頁的一個類》相關的同類信息！
  • 本頁收集關于asp分頁的一個類的相關信息資訊供網民參考！
    • 推薦文章
    主站蜘蛛池模板： 超级乱淫岳| 秘密领域漫画| 68堂AV无码一区二区三区 | 午夜激情福利| 日韩欧美黄色片| 成人**免费观看| 美女明星脱个精光1437张图片| 一级毛片一级毛片| 国产又爽又黄的激情精品视频| 国产欧美日韩精品A在线观看| black欧美金发大战黑人| 91刺激视频| huge动漫电影网| 亚洲日韩AV无码区综合办公室 | 我要看一级黄色大片| 精品久久久国产软件亮点| 国模冰莲的全部艳照| 娇妻被下属小石3d漫画| 新婚阿龟h系列小说| 色夜夜摸狠狠摸日日视频| 禁断の肉体乱爱中文字幕bd| 中国男同twink体育生| 欧美熟妇vivoe精品| 午夜理论片4480影| 免费一级毛片不卡不收费 | 色老头影院| 日韩黄色一级大片| 啊灬啊别停老师灬用力啊视频| 一本大道无码AV在线观看| 女上位摇动gif动态图| 被别人玩屁股眼| 18女人水真多免费高清毛片| xxxxxxxxxxx性bbbb| 成人香蕉网| 高清国产美女**毛片在线| 豪门团宠:真千金她是全能大佬 | chineseheeljob高跟鞋交| 国产原创麻豆| 久久99精品久久久久| 午夜在线视频国产极品片| 男人日女人的b|