查看ASP Session 变量的小工具

发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 17次 | 进入软件测试论坛讨论

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