发布时间:2006-8-26 12:49:32

<%@ Language=VBScript %> <% Option Explicit %>    您的sessionID号是：<%=session.sessionid%><br> <%    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        Response.Write "在你的程序中一共使用了 " & application.Contents.Count & _              " 个application变量<P>" %> ------------------------------ 本站的检测结果： 在你的程序中一共使用了 3 个Session变量 在你的程序中一共使用了 4 个application变量