zoukankan      html  css  js  c++  java
  • 查看ASP Session 变量的小工具

    <%@ 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>
  • 相关阅读:
    python第八课
    python第七课
    python第六课
    python第五课
    Python基础30类-内置函数实现迭代器协议
    Python基础29类-内置函数(__format__,__slots__,__doc__,__module__,__del__,__call__)
    Python基础28类-内置函数(__getattribute__,__getitem__,__setitem__.__delittem__)
    Python基础27类-包装、组合方式授权、判断对象类型的方法
    Python基础26类-内置函数__setattr__,__getattr__,__delattr__
    Python基础25类-反射
  • 原文地址:https://www.cnblogs.com/MaxIE/p/950716.html
Copyright © 2011-2022 走看看