• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>
            posts - 124,  comments - 29,  trackbacks - 0
            Public Function SplitPageShow(ByRef rs)
                rs.PageSize 
            = 5 'pagesize屬性指定了每頁要顯示的記錄條數 
                Page = "1"
                Page 
            = CLng(Request("Page")) 'string型轉化為long型 
                If Page < 1 Then Page = 1 
                
            If Page > rs.PageCount Then Page = rs.PageCount 
                
            If Page <> 1 Then 
                   Response.Write 
            "<A HREF=Manage.asp?Page=1>第一頁</A>"
                   Response.Write 
            "<A HREF=Manage.asp?Page="& (Page-1& ">上一頁</A>" 
                
            End If 
                
            If Page <> rs.PageCount Then 
                   Response.Write 
            "<A HREF=Manage.asp?Page=" & (Page+1& ">下一頁</A>" 
                   Response.Write 
            "<A HREF=Manage.asp?Page="& rs.PageCount & ">最后一頁</A>" 
                
            End If 
                Response.write
            "頁碼:" & Page & "/" & rs.PageCount & "</font>" 
                
            '每一頁的顯示 
                
                
            '循環(huán)顯示每條記錄 
                rs.AbsolutePage = Page '把頁碼賦給absolutepage屬性從而知當前頁的首條記錄號 
                For iPage = 1 To rs.PageSize
                Response.WRITE 
            "<TR><TD bgcolor='#FFFFFF'>" & rs("ID"& "</TD>" 
                Response.WRITE 
            "<TD bgcolor='#FFFFFF'>" & rs("Title"& "</TD>" 
                Response.WRITE 
            "<TD bgcolor='#FFFFFF'>" & rs("CName"& "</TD>" 
                Response.WRITE 
            "<TD bgcolor='#FFFFFF'><a href='Update.asp?id="&rs("ID"&"'>修改</a></TD>" 
                Response.WRITE 
            "<TD bgcolor='#FFFFFF'><a href='DeleteProcess.asp?id="& rs("ID"&"'>刪除</a></TD></TR>"
                rs.MoveNext 
                
            If rs.EOF Then Exit For 
                
            Next 

            End Function
            posted on 2008-06-08 21:44 天書 閱讀(148) 評論(0)  編輯 收藏 引用

            <2010年5月>
            2526272829301
            2345678
            9101112131415
            16171819202122
            23242526272829
            303112345

            常用鏈接

            留言簿(5)

            隨筆檔案

            文章分類

            文章檔案

            好友的Bolg

            搜索

            •  

            最新評論

            閱讀排行榜

            評論排行榜

            一本色道久久HEZYO无码| 人妻精品久久久久中文字幕 | 丰满少妇人妻久久久久久4| 亚洲乱码中文字幕久久孕妇黑人| 无码国内精品久久人妻麻豆按摩| 久久久青草青青亚洲国产免观| 国产精品久久久久AV福利动漫| 国产欧美久久久精品| 久久久综合香蕉尹人综合网| 伊人久久大香线蕉综合影院首页| 99久久无码一区人妻a黑| 久久人人爽人人爽AV片| AAA级久久久精品无码片| 日韩电影久久久被窝网| 国产精品午夜久久| 天天久久狠狠色综合| 精品免费久久久久久久| 久久人人爽人人爽人人片AV麻豆 | 久久成人小视频| 久久综合色区| 国产精品亚洲美女久久久| 久久精品国产一区| 久久久久久久综合日本亚洲| 久久久一本精品99久久精品66| 久久香综合精品久久伊人| 欧美精品九九99久久在观看| 久久精品国产亚洲AV香蕉| 99久久精品国产一区二区| 久久av无码专区亚洲av桃花岛| 久久人妻AV中文字幕| www.久久精品| 伊人久久五月天| 国产精品一久久香蕉国产线看 | 99久久精品国产综合一区| 国产精品成人99久久久久91gav| 四虎国产精品免费久久| 久久99精品国产自在现线小黄鸭 | 亚洲第一永久AV网站久久精品男人的天堂AV| 精品熟女少妇av免费久久| 无码国内精品久久人妻麻豆按摩| 亚洲av伊人久久综合密臀性色|