Function getUrl()
'' @ Get full url
'' @ fisker lionkay@gmail.com
Dim protocol , serverName , serverPort , queryString , scriptName
If LCase(Request.ServerVariables("Https")) = "on" Then
protocol = "https://"
Else
protocol = "http://"
End If
serverName = Request.ServerVariables("Server_Name")
serverPort = Request.ServerVariables("Server_Port")
scriptName = Request.ServerVariables("Script_Name")
If serverPort <> "80" Then serverPorts = ":"&serverPort
queryString = Request.ServerVariables("Query_String")
If queryString <> "" Then queryString = "?"&queryString
getUrl = protocol & serverName & serverPorts & scriptName & queryString
End Function
response.Write(geturl())