IDC资讯中心
经常写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>
