Código fuente de 'Obtiene URL completa.asp'
<html>
<head>
<title>Obtiene URL completa - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Obtiene URL completa</font></b></p>
Obtiene la dirección web completa.
<%domainName = Request.ServerVariables("SERVER_NAME")
url = Request.ServerVariables("URL")
parameters = Request.ServerVariables("QUERY_STRING")
direccion = "http://" & domainName & url
if len(parameters)>0 then direccion=direccion & "?" & parameters
response.write "<br>Dominio: " & domainname
Response.write "<br>Url: " & url
Response.write "<br>Parámetros: " & parameters
Response.write "<br>Dirección: " & direccion
response.write "<br><br><br>La dirección web o URL es: " & direccion
%></body></html>