查看ASPSession变量的小工具

网络整理 - 09-15

<%@ 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 cellspacing="1" bordercolor="#800000" bordercolorlight="#808080" bordercolordark="#FFFFFF" 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 cellspacing="1" bordercolor="#800000" bordercolorlight="#808080" bordercolordark="#FFFFFF" 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>