ASP擷取當前頁面URL地址（帶參數）的方法

以下的這段ASP代碼，它的確可以擷取到當前頁的URL，包括參數。

'===========================================
'擷取當前Url參數的函數
Function GetUrl()
  Dim ScriptAddress,Servername,qs
  ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
  Servername = CStr(Request.ServerVariables("Server_Name"))
  qs=Request.QueryString
  if qs<>"" then
  GetUrl ="http://"& Servername & ScriptAddress &"?"&qs
  else
  GetUrl ="http://"& Servername & ScriptAddress
  end if
End Function
'============================================

擷取目前的目錄URL

     RecentUrl = split(Request.ServerVariables("SCRIPT_NAME"),"/")
      i=0
     Url1=""
    do while i<ubound(RecentUrl)
     Url1=Url1&RecentUrl(i)&"/"
     i=i+1
    loop
    Recentdir = "Http://"&Request.ServerVariables("SERVER_NAME")&Url1   ''目前的目錄URL