【原创】查看服务器所有Application变量、Session变量工具

alcoholwang 2004-01-12 12:29:18
经常写ASP,需要定义Application变量、Session变量,有时要检查正确性。虽然网上有类似得程序,但是发现有很多不足,所以自己写了个。
代码如下:

<%@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> 毫秒"%><br>Power BY <b><a href="mailto:worm_wang@hotmail.com">Alcohol Wang</a></b></center>
</body></html>
...全文
27 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
porlam 2004-01-20
好贴就当然要up啦!!
回复
simon810610 2004-01-12
up
回复
loveme2000ok 2004-01-12
谢谢
回复
alcoholwang 2004-01-12
谢谢!!
回复
x_gn 2004-01-12
up
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-01-12 12:29
社区公告
暂无公告