隨筆-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 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
富顺县|
昌江|
铜梁县|
余庆县|
河津市|
大冶市|
青海省|
东台市|
湘潭县|
晋州市|
崇明县|
淮阳县|
得荣县|
垣曲县|
宁夏|
西乡县|
伊宁市|
沁源县|
肃宁县|
五原县|
岐山县|
玛曲县|
汶上县|
西乌珠穆沁旗|
留坝县|
宁南县|
休宁县|
昭苏县|
大名县|
西昌市|
朝阳县|
尼木县|
阿荣旗|
昌图县|
莱州市|
黄梅县|
贡嘎县|
德江县|
墨竹工卡县|
杭锦旗|
崇礼县|