拍拍尘土

转自:动态网制作指南 www.knowsky.com
<%@ 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>