<%Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS"))="off" Then
strTemp = "h-t-t-p去掉-://"
Else
strTemp = "h-t-t-p去掉-://"
End If
strTemp = strTemp & Request.ServerVariables("HTTP_HOST")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp =strTemp & ":" & Request.ServerVariables("SERVER_PORT")
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
GetUrl = strTemp
End Function %>