Ricavare l'indirizzo completo della pagina che esegue lo script


Alle volte può essere utile scrivere in fondo ad ogni pagina l'indirizzo completo della stessa.
Per farlo si possono usare alcune Server Variables davvero interessanti.
Ecco lo script:

<%

dim host, page, qryStr, url

host = Request.ServerVariables("HTTP_HOST")
page = Request.ServerVariables("SCRIPT_NAME")

qryStr = Request.QueryString

url = "http://" & host
url = url & page

if len (qryStr) >0 then
  url = url & "?" & qryStr
end if

Response.write "<p>Sei sulla pagina " &_
               url & ".</p>"

%>