shopa_sessionlist.asp

来自「本软件可以实现的功能如下： 用户管理」· ASP 代码 · 共 25 行

<%@ Language=VBScript %>
<% Option Explicit %>
<% 
   'How many session variables are there?
   Response.Write "There are " & Session.Contents.Count & _
             " Session variables<P>"

   Dim strName, iLoop
   'Use a For Each ... Next to loop through the entire collection
   For Each strName in Session.Contents
     'Is this session variable an array?
     If IsArray(Session(strName)) then
       'If it is an array, loop through each element one at a time
       Response.write "Array " & strName & "<br>" 
'       For iLoop = LBound(Session(strName)) to UBound(Session(strName))
'        Response.Write strName & "(" & iLoop & ") - " & _
'             Session(strName)(iLoop) & "<BR>"
'       Next
     Else
       'We aren't dealing with an array, so just display the variable
       Response.Write strName & " - " & Session.Contents(strName) & "<BR>"
     End If
   Next

%>