<%@ 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

'#####################################################

%>

<%

Dim sessitem

response.write "SessionID: " & Session.SessionID & "
"

response.write "List of " & Session.Contents.Count & " items in Session contents collection: "

intItem=1

For Each sessitem in Session.Contents

response.write "

"

If IsObject(Session.Contents(sessitem)) Then

Response.Write "

"

Response.Write "

"

Response.Write "

"

Else

If IsArray(Session.Contents(sessitem)) Then

Response.Write "

"

Response.Write "

" + ""

Else

Response.Write "

"

Response.Write "

"

Response.Write "

"

End If

End If

response.write "

"

intItem=intItem+1

Next

%>

"+CStr(intItem) + "

"+sessitem+ "

"+"Session object"+ "

"+CStr(intItem) + "

"+"Array Object "+ "

" For each objArray in Session.Contents(sessitem) Response.Write "***;" Next Response.Write "

"+CStr(intItem) + "

"+ sessitem + "

"+ CStr(Session.Contents(sessitem)) + "

LIST Application

<%

intItem=1

For Each Key in Application.Contents

Response.Write "

"

If IsObject(Application.Contents(intItem)) Then

Response.Write "

"

Response.Write "

"

Response.Write "

"

Else

Response.Write "

"

Response.Write "

"

Response.Write "

"

End If

intItem=intItem+1

Response.Write "

"

Next

%>

"+CStr(intItem) + "

"+CStr(Key) + "

"+"Object" + "

"+CStr(intItem) + "

"+CStr(Key) + "

"+CStr(Application.Contents(intItem)) + "