查看ASP Session 变量的小工具

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置：> 程序开发 > Web开发 > Asp > 综合文章

查看ASP Session 变量的小工具

作者:未知时间:2003-03-13 12:12 出处:Blog 责编:chinaitpower

摘要：暂无

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

关闭本页