<% @ Language = "VBScript" %>
<%
'####################################### ##############
'Function:
'List Server session variable & Application variable
'Author: hard he
'Date:
'Memo: Be care for diffrent using ul 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) + "</TD>"
Response. Write "<TD>" + CSTR (application. Contents (intitem) + "</TD>"
End if
Intitem = intitem + 1
Response. Write "</tr>"
Next
%>
</Table>