查看ASP Session 变量的小工具

1@ LANGUAGE="VBSCRIPT"

1   
2'#####################################################   
3'Function:   
4' List server Session variable & Application variable   
5'Author: Hardy He   
6'Date: 2003-3-12 23:30   
7'Memo: Be care for diffrent virtul path show diffrent Session   
8'#####################################################

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

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

1</table>

1<br/>

1<hr/>

LIST Application

1<hr/>

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

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>"

1</table>