獲取url包括參數

獲取url包括參數
  函數名：GetUrl
  作  用：獲取url包括參數
  返回值：獲取url包括參數
  '****************************************************
  Public Function GetUrl()  
   Dim strTemp    
   strTemp=Request.ServerVariables("Script_Name")     
   If  Trim(Request.QueryString)<> "" Then
    strTemp=strTemp&"?"
    For Each M_item In Request.QueryString
  strTemp=strTemp&M_item&"="&Server.UrlEncode(Trim(Request.QueryString(""&M_item&"")))
    next
   end if
   GetUrl=strTemp  
  End Function
 使用方法
 call GetUrl()