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

          
	

          

          
	
					


          
	
	
           1Function GetUrl() 
          
           2    Dim ScriptAddress,M_ItemUrl, M_item 
          
           3    ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得當(dāng)前地址 
          
           4    M_ItemUrl = "" 
          
           5
          
           6    If (Request.QueryString <> "") Then 
          
           7        ScriptAddress = ScriptAddress & "?" 
          
           8        For Each M_item In Request.QueryString 
          
           9            '如果頁面?zhèn)鬟f參數(shù)是用page變量，那么判斷一下page是否已經(jīng)使用，避免重復(fù)！
          
          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() '獲取當(dāng)前頁面URL的函數(shù)
          
          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 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
苍溪县|
丰都县|
浠水县|
闵行区|
嵩明县|
安宁市|
体育|
迁西县|
繁昌县|
香河县|
台南市|
平安县|
文登市|
北京市|
梁河县|
霍山县|
通化市|
县级市|
高陵县|
大连市|
沙坪坝区|
博野县|
林芝县|
呼和浩特市|
九台市|
祁阳县|
喀喇|
枣庄市|
清新县|
永宁县|
玛纳斯县|
高碑店市|
陵川县|
临漳县|
克山县|
鄂托克前旗|
句容市|
连云港市|
通州区|
玉溪市|
阳谷县|