• <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 天書 閱讀(148) 評論(0)  編輯 收藏 引用  
            

            







            
	    
    




            






            

				

            

            
	
		
            
			
            			
			
            
	
            
		
            <2008年6月>
            
	
            日一二三四五六
            25262728293031
            1234567
            891011121314
            15161718192021
            22232425262728
            293012345
            

            

			

            常用鏈接
            


            留言簿(5)
            




		
            隨筆檔案
            
		
				
			
	
		
            文章分類
            
		
				
			
	
		
            文章檔案
            
		
				
			
	
		
            好友的Bolg
            
		
				
			
	




            搜索
            

              
	
            • 
		
            •  
	
              • 

            


            最新評論
	
            



            閱讀排行榜
            



            評論排行榜
            


            
	

            



    
    







            
	   
	



久久国产亚洲精品麻豆|
久久99精品久久久久久齐齐|
亚洲AV无码久久精品色欲|
亚洲av日韩精品久久久久久a|
欧美777精品久久久久网|
久久久久久国产a免费观看不卡|
国色天香久久久久久久小说|
国内精品久久久久久久97牛牛|
久久亚洲天堂|
久久久久久a亚洲欧洲aⅴ|
久久经典免费视频|
国产2021久久精品|
麻豆成人久久精品二区三区免费|
欧美日韩精品久久久免费观看|
亚洲国产精品18久久久久久|
无码国内精品久久人妻麻豆按摩|
精品久久久久久久|
久久久一本精品99久久精品66|
超级碰碰碰碰97久久久久|
精品免费久久久久国产一区
|
久久国产成人精品国产成人亚洲|
欧美牲交A欧牲交aⅴ久久|
中文字幕无码久久精品青草|
国产AV影片久久久久久|
久久国产精品99精品国产987|
欧美喷潮久久久XXXXx|
综合网日日天干夜夜久久|
性做久久久久久久久浪潮|
久久精品亚洲乱码伦伦中文|
久久99精品久久久久久|
久久香蕉一级毛片|
狠狠色丁香久久婷婷综合五月|
久久久久久综合网天天|
免费精品久久天干天干|
久久影院久久香蕉国产线看观看|
久久久久成人精品无码
|
国产毛片久久久久久国产毛片|
国产欧美一区二区久久|
亚洲国产二区三区久久|
久久99亚洲综合精品首页|
久久人人爽人人爽人人片AV麻豆|