asp获取当前页面URL的函数

Function Cur_Url() '获取当前页面URL的函数
HTTP_HOST = LCase(Request.ServerVariables("HTTP_HOST"))
If HTTP_HOST = "" Then
SERVER_NAME = LCase(Request.ServerVariables("SERVER_NAME"))
SERVER_PORT = Request.ServerVariables("SERVER_PORT")
HTTP_HOST=SERVER_NAME&":"&SERVER_PORT
End If

URL = LCase(Request.ServerVariables("URL"))
If URL = "" Then
URL = LCase(Request.ServerVariables("SCRIPT_NAME"))
End If


QUERY_STRING = LCase(Request.ServerVariables("QUERY_STRING"))
If QUERY_STRING = "" Then
QUERY_STRING = LCase(Request.QueryString)
End If

If QUERY_STRING ="" Then
Cur_Url = "
Else
Cur_Url="
End If
End Function