查看ASP Session 变量的小工具

<%@ 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) + "</td>"
　　 Response.Write  "<td>"+CStr(Application.Contents(intItem)) + "</td>"　　
　  End If
　  intItem=intItem+1
　  Response.Write  "</tr>"
　 
  Next
 
 %>
</table>