查看ASP Session 变量的小工具 -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → 查看ASP Session 变量的小工具

查看ASP Session 变量的小工具 时间：2004/11/7 4:12:00来源：本站整理作者：蓝点我要评论(0)

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

<%
Dim sessitem


response.write "SessionID: " & Session.SessionID & "
"
response.write "List of " & Session.Contents.Count & "   items in Session contents collection: "

intItem=1
For Each sessitem in Session.Contents
    response.write ""
    If IsObject(Session.Contents(sessitem)) Then
         Response.Write ""
           Response.Write ""
           Response.Write ""
    Else
      If IsArray(Session.Contents(sessitem)) Then
      Response.Write ""
         Response.Write "" + ""

      Else
             Response.Write ""
        Response.Write ""
        Response.Write ""
      End If
    End If
    response.write ""
    intItem=intItem+1
Next

%>

"+CStr(intItem) + "

"+sessitem+ "

"+"Session object"+ "

"+CStr(intItem) + "

"+"Array Object "+ "

"

         For each objArray in Session.Contents(sessitem)
         Response.Write "***;"
         Next
         Response.Write "

"+CStr(intItem) + "

"+ sessitem + "

"+ CStr(Session.Contents(sessitem)) + "

LIST Application

intItem=1
For Each Key in Application.Contents

Response.Write "

"
    If IsObject(Application.Contents(intItem)) Then

     Response.Write ""
     Response.Write ""
     Response.Write ""

    Else
     Response.Write ""
     Response.Write ""
     Response.Write ""
    End If
    intItem=intItem+1
    Response.Write ""

Next

%>

"+CStr(intItem) + "

"+CStr(Key) + "

"+"Object" + "

"+CStr(intItem) + "

"+CStr(Key) + "

"+CStr(Application.Contents(intItem)) + "