开发学院WEB开发ASP 查看ASP Session 变量的小工具 阅读

查看ASP Session 变量的小工具

 2003-03-14 10:25:42 来源:WEB开发网   
核心提示:<%@ LANGUAGE="VBSCRipT" %><%'#'Function: ' List server session variable & application variable'Author: Hardy He'Date: 2

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

Tags:查看 ASP Session

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接