1.asp

网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理 公文 车辆 通知 档案 值班 人事 审批 仓库 主界面 软件下载 个

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