<%@ LANGUAGE="VBSCRIPT" %> <% '##################################################### 'Function: ' List server Session variable & Application variable 'Author: Hardy He 'Date: 2003-3-12 23:30 'Memo: Be care for diffrent virtul path show diffrent Session '##################################################### %> <table border="2" cellspacing="1" bordercolor="#800000" width="100%" id="AutoNumber1" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="37" bgcolor="#D6D3CE"> <% Dim sessitem response.write "SessionID: " & Session.SessionID & "<br>" response.write "List of " & Session.Contents.Count & " items in Session contents collection: " intItem=1 For Each sessitem in Session.Contents response.write "<tr>" If IsObject(Session.Contents(sessitem)) Then Response.Write "<td>"+CStr(intItem) + "</td>" Response.Write "<td>"+sessitem+ "</td>" Response.Write "<td>"+"Session object"+ "</td>" Else If IsArray(Session.Contents(sessitem)) Then Response.Write "<td>"+CStr(intItem) + "</td>" Response.Write "<td>"+"Array Object "+ "</td>" + "<td>" For each objArray in Session.Contents(sessitem) Response.Write "***;" Next Response.Write "</td>" Else Response.Write "<td>"+CStr(intItem) + "</td>" Response.Write "<td>"+ sessitem + "</td>" Response.Write "<td>"+ CStr(Session.Contents(sessitem)) + "</td>" End If End If response.write "</tr>" intItem=intItem+1 Next %> </table> <br> <hr> LIST Application <hr> <table border="2" cellspacing="1" bordercolor="#800000" width="100%" id="AutoNumber1" bordercolorlight="#808080" bordercolordark="#FFFFFF" height="37" bgcolor="#D6D3CE"> <% intItem=1 For Each Key in Application.Contents Response.Write "<tr>" If IsObject(Application.Contents(intItem)) Then Response.Write "<td>"+CStr(intItem) + "</td>" Response.Write "<td>"+CStr(Key) + "</td>" Response.Write "<td>"+"Object" + "</td>" Else Response.Write "<td>"+CStr(intItem) + "</td>" Response.Write "<td>"+CStr(Key) + "</td>" Response.Write "<td>"+CStr(Application.Contents(intItem)) + "</td>" End If intItem=intItem+1 Response.Write "</tr>" Next %> </table> |
关键词: 查看ASP Session 变量的小工具