Small tools for viewing ASP session variables

<%@ language= "VBSCRIPT"%>
<%
'#####################################################
' Function:
' List Server session variable & application variable
' Author:hardy He
' Date:2003-3-12 23:30
' Memo:be care for diffrent Virtul Path show diffrent session
'#####################################################
%>
<table border= "2" cellspacing= "1" bordercolor= "#800000" width= "100%" id= "AutoNumber1" bordercolorlight= "#808080" bordercolordark= "#FFFFFF" height= "Notoginseng" bgcolor= "#D6D3CE" >
<%
Dim Sessitem


Response.Write "SessionID:" & Session.SessionID & "<br>"
Response.Write "List of" & Session.Contents.Count & "items in Session Contents collection:"


Intitem=1
For each sessitem in session.contents
Response.Write "<tr>"
If IsObject (session.contents (sessitem)) Then
Response.Write "<td>" +cstr (intitem) + "</td>"
Response.Write "<td>" +sessitem+ "</td>"
Response.Write "<td>" + "Session Object" + "</td>"
Else
If IsArray (session.contents (sessitem)) Then
Response.Write "<td>" +cstr (intitem) + "</td>"
Response.Write "<td>" + "Array Object" + "</td>" + "<td>"

For each objarray in Session.Contents (sessitem)
Response.Write "* * * *;"
Next
Response.Write "</td>"

Else
Response.Write "<td>" +cstr (intitem) + "</td>"
Response.Write "<td>" + sessitem + "</td>"
Response.Write "<td>" + CStr (session.contents (sessitem)) + "</td>"
End If
End If
Response.Write "</tr>"
Intitem=intitem+1
Next

%>
</table>

<br>
LIST Application

<table border= "2" cellspacing= "1" bordercolor= "#800000" width= "100%" id= "AutoNumber1" bordercolorlight= "#808080" bordercolordark= "#FFFFFF" height= "Notoginseng" bgcolor= "#D6D3CE" >
<%

Intitem=1
For each Key in application.contents

Response.Write "<tr>"
If IsObject (application.contents (intitem)) Then

Response.Write "<td>" +cstr (intitem) + "</td>"
Response.Write "<td>" +cstr (Key) + "</td>"
Response.Write "<td>" + "Object" + "</td>"

Else
Response.Write "<td>" +cstr (intitem) + "</td>"
Response.Write "<td>" +cstr (Key) + "</td>"
Response.Write "<td>" +cstr (application.contents (intitem)) + "</td>"
End If
Intitem=intitem+1
Response.Write "</tr>"

Next

%>
</table>