代码段1---列出你的所有Session变量

领测软件测试网 <%@ Language=VBScript %>
<% Option Explicit %>
<%
   Response.Write "在你的程序中一共使用了 " & Session.Contents.Count & _
             " 个Session变量<P>"
   Dim strName, iLoop
   For Each strName in Session.Contents
     ‘’判断一个Session变量是否为数组
     If IsArray(Session(strName)) then
       ‘’如果是数组，那么罗列出所有的数组元素内容
       For iLoop = LBound(Session(strName)) to UBound(Session(strName))
          Response.Write strName & "(" & iLoop & ") - " & _
               Session(strName)(iLoop) & "<BR>"
       Next
     Else
       ‘’如果不是数组，那么直接显示
       Response.Write strName & " - " & Session.Contents(strName) & "<BR>"
     End If
   Next
%> 

文章来源于领测软件测试网 https://www.ltesting.net/