Lisong's Blog

Function GetURL()
 
 Dim Get_HOST : Get_HOST=Request.ServerVariables("HTTP_HOST")
 
 Dim Get_URL  : Get_URL=Request.ServerVariables("URL")
 
 Dim Get_String : Get_String=Request.ServerVariables("QUERY_STRING")
 
 GetURL="Http://"&Get_HOST&Get_URL&"?"&Get_String
 
End Function