<rt id="bn8ez"></rt>
<label id="bn8ez"></label>
  • 

    • <span id="bn8ez"></span>
    

    <label id="bn8ez"><meter id="bn8ez"></meter></label>
    

    
    

    




    







												


        




    
	
		
		
    

隨筆-3 
評論-26 
文章-41 
trackbacks-0

    
	

    

    
	
					


    
	
	
     1Function GetUrl() 
    
     2    Dim ScriptAddress,M_ItemUrl, M_item 
    
     3    ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得當前地址 
    
     4    M_ItemUrl = "" 
    
     5
    
     6    If (Request.QueryString <> "") Then 
    
     7        ScriptAddress = ScriptAddress & "?" 
    
     8        For Each M_item In Request.QueryString 
    
     9            '如果頁面傳遞參數是用page變量，那么判斷一下page是否已經使用，避免重復！
    
    10            If InStr("page",M_Item)=0 Then 
    
    11                M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&" 
    
    12            End If
    
    13        Next 
    
    14    end if 
    
    15
    
    16    GetUrl = ScriptAddress & M_ItemUrl 
    
    17    if instr(1,GetUrl,"?",1)<1 then
    
    18        GetUrl=GetUrl&"?"
    
    19    end if
    
    20End Function 
    
    21
    
    22
    
    23
    
    24Function Cur_Url() '獲取當前頁面URL的函數
    
    25    Dim Domain_Name,Page_Name,Quary_Name
    
    26    Domain_Name = LCase(Request.ServerVariables("HTTP_HOST"))
    
    27    Page_Name = LCase(Request.ServerVariables("Script_Name"))
    
    28    Quary_Name = LCase(Request.ServerVariables("Query_String"))
    
    29    If Quary_Name ="" Then
    
    30        Cur_Url = "http://"&Domain_Name&Page_Name
    
    31    Else
    
    32        Cur_Url = "http://"&Domain_Name&Page_Name&"?"&Quary_Name
    
    33    End If
    
    34End Function
    
	
    posted on 2008-07-23 13:47 百年 閱讀(1867) 評論(0)  編輯  收藏  所屬分類: Asp Article 
    

    







    
	    
    




    








    

				

    







    







    
        
	



主站蜘蛛池模板：
av大片在线无码免费|
手机看片国产免费永久|
性做久久久久久免费观看|
亚洲综合久久久久久中文字幕|
中文在线观看永久免费|
亚洲午夜未满十八勿入网站2|
一级特黄色毛片免费看|
色久悠悠婷婷综合在线亚洲|
av永久免费网站在线观看|
亚洲天堂中文资源|
又黄又爽又成人免费视频|
亚洲性色精品一区二区在线|
夜夜嘿视频免费看|
国产亚洲视频在线|
国产亚洲精品福利在线无卡一|
日本免费A级毛一片|
亚洲日韩中文字幕天堂不卡
|
久久国产精品亚洲综合
|
三级网站免费观看|
久久精品国产亚洲AV麻豆～|
精品无码免费专区毛片|
久久精品熟女亚洲av麻豆
|
亚洲成?Ⅴ人在线观看无码|
j8又粗又长又硬又爽免费视频
|
日本高清免费观看|
亚洲精品国产国语|
亚洲精品高清一二区久久|
野花香高清视频在线观看免费
|
亚洲精品视频免费观看|
国产亚洲综合色就色|
亚洲人成伊人成综合网久久久
|
久久精品国产亚洲Aⅴ蜜臀色欲|
国产午夜无码精品免费看动漫|
亚洲色图黄色小说|
国产网站免费观看|
久草福利资源网站免费|
亚洲色大18成人网站WWW在线播放|
亚洲狠狠爱综合影院婷婷|
日韩亚洲国产高清免费视频|
免费激情网站国产高清第一页|
亚洲午夜视频在线观看|