查看服务器Application/Session变量工具

2024-05-04 11:07:07

字体：大中小

来源：转载

供稿：网友

<%@LANGUAGE="javascript" CODEPAGE="936"%>
　　<%
　　Response.Expires = 0;
　　Response.Buffer = true;
　　var tPageStartTime = new Date();
　　%>
　　<html>
　　<head>
　　<title>网站-Application变量-Session变量</title>
　　<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
　　<STYLE type=text/css>
　　body,td {FONT-SIZE: 10pt; FONT-FAMILY: "Arial", "Helvetica", "sans-serif" }
　　.Table1 { BORDER-RIGHT: #FF9900 1px solid; BORDER-TOP: #FF9900 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #FF9900 1px solid; BORDER-BOTTOM: #FF9900 1px solid }
　　.Table2 { BACKGROUND-COLOR: #FF9900 }
　　.TR1 { BACKGROUND-color:#FF9955 }
　　.TD1 { BORDER-RIGHT: #FEDFB3 1px solid; BORDER-TOP: #FEDFB3 1px solid; BORDER-LEFT: #FEDFB3 1px solid; color:#ff9900; BORDER-BOTTOM: #FEDFB3 1px solid; BACKGROUND-COLOR: #FEDFB3}
　　.TD2 {BACKGROUND-COLOR: #FEEED6;padding:7px;}
　　</STYLE>
　　<table width="750" border="0" cellpadding="3" cellspacing="1" class="Table1">
　　<tr>
　　<td class="TR1">
　　<table width="100%" border="0" cellspacing="0" cellpadding="0">
　　<tr>
　　<td><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif"> <strong>服务器Application变量 [共 <%=Application.Contents.Count%> 个]
　　<script>showTools();</script></strong></font></td>
　　<td align="right"> </td>
　　</tr>
　　</table></td>
　　</tr>
　　<tr>
　　<td>
　　<table width="100%" border="0" cellpadding="3" cellspacing="1" class="Table2">
　　<tr>
　　<td width="35%" class="TD1"> 变量</td>
　　<td width="65%" class="TD1"> 值</td>
　　</tr>
　　<%
　　var iCount = 0;
　　var sVarType = "";
　　var oApplication = new Enumerator(Application.Contents);
　　var oApp;
　　for(;!oApplication.atEnd();oApplication.moveNext()){
　　oApp = oApplication.item();
　　sVarType = typeof(Application.Contents(oApp));
　　++iCount;
　　%>
　　<tr>
　　<td align="left" valign="middle" class="TD2"><b><%=oApp%></b><br><i disabled>[<%if(sVarType=="unknown") {Response.Write("Array");}else{Response.Write(sVarType);}%>]</i></td>
　　<td valign="middle" class="TD2">
　　<%
　　try{
　　if(sVarType=="unknown"){
　　var oTmp = new VBArray(Application.Contents(oApp));
　　Response.Write(Server.HTMLEncode(oTmp.toArray()));
　　}else Response.Write(Server.HTMLEncode(Application.Contents(oApp)));
　　}catch(e){
　　Response.Write("<i disabled>[Unknow]</i>");
　　}
　　%>
　　</td>
　　</tr>
　　<%
　　}
　　if(!iCount){
　　%>
　　<tr>
　　<td align="left" valign="middle" class="TD2" colspan="2">没有Application变量</td>
　　</tr>
　　<%
　　}
　　%>
　　</table></td>
　　</tr>
　　<tr>
　　<td height="5" class="TR1" colspan="2"></td>
　　</tr>
　　</table>
　　<br>
　　<table width="750" border="0" cellpadding="3" cellspacing="1" class="Table1">
　　<tr>
　　<td class="TR1">
　　<table width="100%" border="0" cellspacing="0" cellpadding="0">
　　<tr>
　　<td><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif"> <strong>服务器Session变量 [共 <%=Session.Contents.Count%> 个]
　　<script>showTools();</script></strong></font></td>
　　<td align="right">当前会话编号: <%=Session.SessionID%> </td>
　　</tr>
　　</table></td>
　　</tr>
　　<tr>
　　<td>
　　<table width="100%" border="0" cellpadding="3" cellspacing="1" class="Table2">
　　<tr>
　　<td width="30%" class="TD1"> 变量</td>
　　<td width="70%" class="TD1"> 值</td>
　　</tr>
　　<%
　　var iCount = 0;
　　var sVarType = "";
　　var oSession = new Enumerator(Session.Contents);
　　var oSes;
　　for(;!oSession.atEnd();oSession.moveNext()){
　　oSes = oSession.item();
　　sVarType = typeof(Session.Contents(oSes));
　　++iCount;
　　%>
　　<tr>
　　<td align="left" valign="middle" class="TD2"><b><%=oSes%></b><br><i disabled>[<%if(sVarType=="unknown") {Response.Write("Array");}else{Response.Write(sVarType);}%>]</i></td>
　　<td valign="middle" class="TD2">
　　<%
　　try{
　　if(sVarType=="unknown"){
　　var oTmp = new VBArray(Session.Contents(oSes));
　　Response.Write(Server.HTMLEncode(oTmp.toArray()));
　　}else Response.Write(Server.HTMLEncode(Session.Contents(oSes)));
　　}catch(e){ Response.Write("<i disabled>[Unknow]</i>");
　　}
　　%>
　　</td>
　　</tr>
　　<%
　　}
　　if(!iCount){
　　%>
　　<tr>
　　<td align="left" valign="middle" class="TD2" colspan="2">没有Session变量</td>
　　</tr>
　　<%
　　}
　　%>
　　</table></td>
　　</tr>
　　<tr>
　　<td height="5" class="TR1" colspan="2"></td>
　　</tr>
　　</table>
　　<% tPageEndTime = new Date(); %>
　　<center> <%="<br><br>页面执行时间：约 <font color='#990000'><b>"+((tPageEndTime-tPageStartTime))+"</b></font> 毫秒"%></center>
　　</body></html>

上一篇：网站统计ASP统计制作实例

下一篇：用ASP实现网上“五子棋”大赛