隨筆-3 
評(píng)論-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            '如果頁(yè)面?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)前頁(yè)面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 百年 閱讀(1868) 評(píng)論(0)  編輯  收藏  所屬分類: Asp Article 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
江陵县|
博客|
石屏县|
乐业县|
女性|
永和县|
博爱县|
滁州市|
阳朔县|
新建县|
库伦旗|
万荣县|
宁蒗|
远安县|
东丽区|
五莲县|
花莲县|
利辛县|
修水县|
苏尼特左旗|
恭城|
清丰县|
广元市|
徐汇区|
汶川县|
白城市|
商城县|
神池县|
伊金霍洛旗|
南丰县|
浦县|
阳春市|
九龙坡区|
图木舒克市|
吉安县|
上杭县|
洮南市|
锦屏县|
云安县|
涟水县|
呼和浩特市|