<%@ 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="37" 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
<hr
LIST Application
<hr
<table border="2" cellspacing="1" bordercolor="#800000" width="100%" id="AutoNumber1" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="37" 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) + "</t