隨筆-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 百年 閱讀(1870) 評論(0)  編輯  收藏  所屬分類: Asp Article 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
南靖县|
浦江县|
米泉市|
丹巴县|
乐业县|
饶河县|
尉犁县|
凤城市|
同仁县|
海门市|
梁山县|
南雄市|
洛扎县|
太谷县|
阿合奇县|
西峡县|
许昌市|
新密市|
安丘市|
清水河县|
平乡县|
华坪县|
宁安市|
榕江县|
安丘市|
府谷县|
阆中市|
兴安盟|
凯里市|
三河市|
平舆县|
万山特区|
松江区|
江油市|
兰坪|
诏安县|
樟树市|
洛阳市|
通海县|
广河县|
启东市|