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