Artículos
ASP

Variables del servidor con ASP

08/Ene/2009

Vamos a ver el código necesario para obtener todas las variables del servidor. En primer lugar tenemos que saber que las variables del servidor son aquellas que se envían o reciben del servidor dentro del mensaje http. En dichas variables se envía información relacionada con el cliente (tipo de navegador que utiliza, IP desde la que realiza la llamada,….) y con el servidor (nombre del servidor, directorio físico del fichero sobre el que se realiza la llamada,…).

Para obtener una determinada variable del servidor utilizaremos el objeto Request de la siguiente manera:

variable = Request.ServerVariables("nombreDeLaVariable")

Vemos que debemos de indicarle una determinada variable del servidor para conocer su valor. Por ejemplo, si queremos conocer la dirección IP desde la que se conecta el cliente pondremos:

IP = Request.Servervariables("REMOTE_ADDR")

Ahora nos enfrentamos al problema de conocer el nombre de todas las variables del servidor para poder obtener toda la información. Esto se resuelve si utilizamos como nombre de variable ALL_HTTP. En dicha variable se almacena la información que pueden devolver todas las variables.

todaLaInformacion = Request.Servervariables("ALL_HTTP")

Esto nos devolverá un chorro de información como este…

HTTP_ACCEPT:*/*
HTTP_ACCEPT_LANGUAGE:es
HTTP_CONNECTION:Keep-Alive
HTTP_HOST:www.aulambra.com
HTTP_REFERER:http://www.aulambra.com/ver.asp?id=71&tipo=Ejecucion
HTTP_USER_AGENT:Mozilla/4.0
 (compatible; MSIE 6.0; Windows NT 5.1; Q312461; .NET CLR 1.0.3705)
HTTP_COOKIE:RT_id=1529558373;
 ASPSESSIONIDQQGGGDNO=LMFNELDDCKEPKMCAGDKHCIHC
HTTP_ACCEPT_ENCODING:gzip, deflate

Pero seguimos sin conocer los nombres de las variables y el valor especifico que estas nos devuelven. Para solucionarlo, lo que vamos a hacer es recorrer la colección Request.ServerVariables utilizando una estructura del tipo for each. Cada item de la colección contendrá el nombre de la variable del servidor.

for each item in Request.ServerVariables
  Response.Write ("" & item & "= "
   & Request.ServerVariables(Item) & "
") next
Suscribir
Notificar de
guest
3 Comentarios
Recientes
Anteriores Más votados
Opiniones integradas
Ver todos los comentarios