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>"

%>

Tags cloud

Edipo QRZ mondiali calcio jugoslavo ODS Noi Siamo Infinito aviatore italiano Jennifer Lawrence Imperatore patria Seconda guerra mondiale pesci compagnie aeree orbita geostazionaria Food Teletu soia NOTA Televisione Giovanni Caccamo rucola Blu RTTY alta YAESU Zitolo Mezzo Respiro Ricky Gervais onda di terra Piemonte World Cup giulia Il Mondo Esplode Tranne Noi Trasporto Aereo Ludovico Girardello nodo Rigillo cavalletto Campobasso cielo notturno vetro Lambert Irene Fornaciari DTMF sosta comete Umbria AMateur Teletype Over Radio PSK31 pulita ROS Livorno sannita Adam Sand POES Gradi Celsius Matthew McConaughey ARI Kermes vermilio Niccolò Calvagna Alice Gianluca Grignani Mare Imbrium Transazione Astronomo Ennio Morricone punti cardinali cielo stellato genova Incrociatore Repubblicano giove Ispettorato Regionale Judi Dench 1420 Napoleone rai 1 Siberian Husky omnidirezionale Morris Worm direttiva spazio Trieste trace pollastra potenziale tariffe pizzette motore di ricerca consuma inlink Camgirls Feedback Coccodrillo linea bilanciata 800 MHz firmamento Hyphessobrycon notepad ENEL Wes Bentley modem Palermo cetriolo aristocratica Azzorre Martin Freeman rilascio webcam ip FAT32 ISS Infinite Volte Gestione attività divinità CMS meteora applicazione Hugh Hefner focaccia al formaggio Marche Il Diluvio Universale Morgan e Bluvertigo ISO Cartolina Canale SIM Cloris Leachman Federico Mazzoli cucciolo John Adams CISAR 137 MHz stazione radioamatoriale bande Derek Jacobi Bob Bruninga Sherri Shepherd CRS Mosca Tse Tse VSWR Single Side Band Tracy Chevalier Generale foce BAND Shawn Levy manutenzione Astronomico weather limite