测试所有缓存数据

<%Response.Write Session.timeout%>
<table  width=100% bgcolor=#666666 cellpadding='3' cellspacing='1' border='0' align='center'>
<tr bgcolor=orange align=center><td>ServerVariables</td><td>value</td></tr>
<%
'Application(CacheName& "AreSkyChat_SayCount")=0
'session("asdf")="1"
'On Error Resume Next
for each element in Request.ServerVariables
Response.Write "<tr><td>"&element&"</td><td>"&Request.ServerVariables(element)&"</td></tr>"
next
%>
<tr bgcolor=orange align=center><td>Application</td><td>value</td></tr>
<%
for each element in Application.Contents
elementtype=vartype(Application.Contents(element))
if elementtype<9 then
Response.Write "<tr><td>"&element&"("&elementtype&")</td><td>"&Application.Contents(element)&"</td></tr>"
else
if IsArray(Application.Contents(element))  Then
 for i=0 to ubound(Application.Contents(element))
 if isarray(Application.Contents(element)(i)) Then
  tt=Application.Contents(element)(i)
  'response.Write ubound(tt,1)
  'response.write tt(4)
  'response.Write tt
  for j=0 to ubound(tt,1)
  Response.Write "<tr><td>"&element&"("&elementtype&") "&i&" "&j&"</td><td>"& tt(j,0) &"</td></tr>"
  'Response.Write "<tr><td>"&element&"("&elementtype&") "&i&" "&j&"</td><td>"&server.htmlencode(tt(j,0))&"</td></tr>"
  next
 
 else
  Response.Write "<tr><td>"&element&"("&elementtype&") "&i&"</td><td>"&server.htmlencode(Application.Contents(element)(i))&"</td></tr>"
 end if
 'Response.Write "<tr><td>"&element&"("&elementtype&")</td><td>不可显示</td></tr>"
 next
else
 Response.Write "<tr><td>"&element&"("&elementtype&")</td><td>不可显示</td></tr>"
end if
end if
next
%>
<tr bgcolor=orange align=center><td>Session</td><td>value(<%=session.sessionid%>)</td></tr>
<%
for each element in session.Contents
elementtype=vartype(session.Contents(element))
if elementtype<9 then
Response.Write "<tr><td>"&element&"("&vartype(element)&")</td><td>"&session.Contents(element)&"</td></tr>"
else
if IsArray(session.Contents(element))  Then
 for i=0 to ubound(session.Contents(element))
 Response.Write "<tr><td>"&element&"("&vartype(element)&") "&i&"</td><td>"&session.Contents(element)(i)&"</td></tr>"
 next
else
Response.Write "<tr><td>"&element&"("&vartype(element)&")</td><td>"&session.Contents(element)&"</td></tr>"
end if
'Response.Write "<tr><td>"&element&"("&elementtype&")</td><td>不可显示</td></tr>"
end if
next
%>
 
<tr bgcolor=orange align=center><td>Cookie</td><td>value</td></tr>
<%
'On Error Resume Next
'Print out the entire cookie collection.
For Each cookie in Request.Cookies
if Not Request.Cookies(cookie).HasKeys Then
'Print out the cookie string
Response.Write "<tr><td>"& cookie &"</td><td>"& Request.Cookies(cookie)&"</td></tr>"
Else
 'Print out the cookie collection
 For Each key in Request.Cookies(cookie)
Response.Write "<tr><td>"& cookie & "(" & key & ")" &"</td><td>" & Request.Cookies(cookie)(key) &"</td></tr>"
 Next
End If
Next
%>
</table>

<%
 '删除服务器上论坛的所有缓存数据
 Public Sub DelallCache()
 Dim Cacheobj
 For Each Cacheobj in Application.Contents
 response.Write Cacheobj & "<br>" & CacheName & "OOO"
  'If CStr(Left(Cacheobj,Len(CacheName)+1))=CStr(CacheName&"_") Then
   Application.Lock
   Application.Contents.Remove(Cacheobj)
   Application.UnLock 
  'End If
  
 Next
 End Sub
%>