• <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>" 
                
            '每一頁的顯示 
                
                
            '循環顯示每條記錄 
                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 天書 閱讀(142) 評論(0)  編輯 收藏 引用

            <2013年10月>
            293012345
            6789101112
            13141516171819
            20212223242526
            272829303112
            3456789

            常用鏈接

            留言簿(5)

            隨筆檔案

            文章分類

            文章檔案

            好友的Bolg

            搜索

            •  

            最新評論

            閱讀排行榜

            評論排行榜

            国内精品久久久久久麻豆 | 久久久久久精品免费免费自慰| 精品欧美一区二区三区久久久 | 亚洲午夜久久久精品影院| 国产一区二区精品久久| 久久国产午夜精品一区二区三区| 久久亚洲AV无码西西人体| 国内精品久久久久久久久电影网| 青青草原精品99久久精品66| 国产真实乱对白精彩久久| 香蕉久久夜色精品升级完成| 欧美精品一本久久男人的天堂 | 亚洲乱码精品久久久久..| 99久久婷婷免费国产综合精品| 久久久久18| 久久久久亚洲Av无码专| 色狠狠久久综合网| 欧美一区二区精品久久| 一本一道久久综合狠狠老| 精品久久久久久无码人妻蜜桃| 日本欧美久久久久免费播放网| 久久亚洲中文字幕精品一区| 国产精品久久久久9999| 麻豆AV一区二区三区久久| 精品无码久久久久国产动漫3d| 国产免费久久精品99久久| 精品国产乱码久久久久久1区2区 | 久久狠狠爱亚洲综合影院| 激情五月综合综合久久69| 国产V亚洲V天堂无码久久久| 久久AV无码精品人妻糸列| 久久久这里只有精品加勒比| 91精品婷婷国产综合久久| 91久久精一区二区三区大全| 亚洲成色www久久网站夜月| 久久人妻无码中文字幕| 久久久久国产精品嫩草影院| 久久精品中文无码资源站| 亚洲国产成人久久精品99| 热久久国产欧美一区二区精品| 国产精品亚洲美女久久久|