查看ASP Session 变量的小工具

【 tulaoshi.com - ASP 】

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