獲取url包括參數

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

From:http://tw.wingwit.com/Article/program/net/201311/14359.html