打印当前会话中所有session变量

用于实时调试打印用：

1. Function Print_Session()
   
2. Dim strName, iLoop
   
3. For Each strName in Session.Contents
   
4.   
   
5.           If IsArray(Session(strName)) then
   
6.           
   
7.                         For iLoop = LBound(Session(strName)) to UBound(Session(strName))
   
8.                           Response.Write strName & "(" & iLoop & ") - " & _
   
9.                                                           Session(strName)(iLoop) & "<BR>"
   
10.                         Next
    
11.           Else
    
12.                
    
13.                 Response.Write strName & " - " & Session.Contents(strName) & "<BR>"
    
14.           End If
    
15.   
    
16. Next
    
17. 
    
18. End Function

复制代码