<% Dim sito sito = Request.ServerVariables(“HTTP_HOST”) Dim pagina pagina = Request.ServerVariables(“SCRIPT_NAME”) Dim querystring querystring = Request.QueryString
Dim url url = “http://” & sito url = url & pagina
if len(querystring) > 0 then url = url & “?” & querystring end if
Response.write “L’indirizzo completo di questapagina è: ” &url & “.” %>
Sito è il dominio del sito attuale, pagina contiene il percorso completo dalla root allo script che si sta eseguento e query string sono le variabili che potrebbero essere state passate dopo il ? nell”URL
]]>