Código fuente de 'Lista todas las variables.asp'

<html>
<head>
<title>Lista todas las variables - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 9pt">

<center><b><font face="Arial" size="3">Lista todas las variables</font></b></center><br><br>


Este código ASP te permitira todas las variables del web:<br> 
Variables del servidor, variables de la aplicación, variables de sesión, 
cookies y detalles del motor IIS. Muy útil para realizar comprobaciones.

<%@Language="VBScript"%>

<%
On Error Resume next
response.write("<br><br>")

Response.Write "<b>Todas las variables : " & Now() & "<HR>" 

dim Header, footer 

header = "<table border=""1"" align=""center"" width=""400"">"
footer  = "</table>"


Response.Write("<b>Cookies" & header & "<br>")
for each item in Request.Cookies 
	Response.Write("<tr><td> " & item & "</td><td> " & Request.Cookies(item) & "</td>")
next



Response.Write("<br><br>" & footer & "<b>Variables de servidor" & header & "<br>")
for each item in request.servervariables
	Response.Write("<tr><td> " & item & "</td><td> -- " & Request.ServerVariables(item) & "</td></tr>")
next



Response.write("<br><br>" & footer & "<b>Variables de sesión" & header & "<br>")
for each item in session.contents
	Response.Write("<tr><td> " & item & "</td><td> " & session(item) & "</td></tr>")
next


Response.write("<br><br>" & footer & "<b>Contenidos de la aplicación" & header & "<br>")
for each item in application.contents
	Response.Write("<tr><td> " & item & "</td></tr>")
next

%>

<table border="0">
<tr><td><b>Motor del script: </td>
<td><%= scriptengine() %></td>
<td><%= scriptenginemajorversion() %>:</td>
<td><%=scriptengineminorversion() %></td>
<td><%= scriptenginebuildversion() %></td></tr></table>
	
</body></html>