<%
'定义Index作为序号 
dim index
index=1
For Each SessItem In Session.Contents 
'如果是对象 
If IsObject(Session.Contents(SessItem)) Then 
   Response.Write "(" & CStr(Index) & ")" 
   Response.Write "Session对象实例名称：" & SessItem & "<br>" 
   Response.Write("<br>")  
Else
'如果是数组 
 If IsArray(Session.Contents(SessItem)) Then  
  Response.Write "(" & CStr(Index) & ")" 
  Response.Write "Session数组变量名称" &appItem&",其内容分别为如下：<br>"
  dim b
	b=0
    For each ArrayItem in Session.Contents(SessItem) 
    Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;"&sessItem&"("&b&")="
    Response.Write  ArrayItem & "&nbsp;&nbsp;<br>" 
	b=b+1
    Next 
	Response.Write("<br>") 
  Else 
  '如果是变量 
   Response.Write "(" & CStr(Index) & ")" 
   Response.Write "Session简单变量名称：" & SessItem & "；" 
   Response.Write "值：" & CStr(Session.Contents(SessItem)) &"<br>"
   Response.Write("<br>")
   End If 
End If 
Index=Index+1  
Next 
%>
