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