如何获取完整的URL

[lwxhami]

Request.ServerVariables("URL") 只能获取客户在HTTP请求中所请求的基本URL，完整的URL该如何取得？
谢谢

[lwxhami]

Dim sQString
Dim sURL
sQString = Request.ServerVariables("QUERY_STRING")
sURL = Request.ServerVariables("URL")

If sQString <> "" Then
sURL = sURL & "?" & sQString
End If

[ecobin]

<%
Dim strUrl
If Request.ServerVariables("HTTPS") = "off" Then strUrl = "http://" Else strUrl = "https://" End If
strUrl = strUrl & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strUrl = strUrl &":"& Request.ServerVariables("SERVER_PORT") End If
strUrl = strUrl & Request.ServerVariables("URL")
If Request.QueryString <>"" Then strUrl = strUrl & "?" & Request.QueryString End If
Response.Write strUrl
%>