获取本页的URL地址

<%
Function GetLocationURL() 
Dim Url 
Dim ServerPort,ServerName,ScriptName,QueryString 
ServerName = Request.ServerVariables("SERVER_NAME") 
ServerPort = Request.ServerVariables("SERVER_PORT") 
ScriptName = Request.ServerVariables("SCRIPT_NAME") 
QueryString = Request.ServerVariables("QUERY_STRING") 
Url="http://"&#38;ServerName 
If ServerPort <> "80" Then Url = Url &#38; ":" &#38; ServerPort 
Url=Url&#38;ScriptName 
If QueryString <>"" Then Url=Url&#38;"?"&#38; QueryString 
GetLocationURL=Url 
End Function 

Response.Write GetLocationURL()
%>