手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>网络编程>Asp编程>列表

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

来源:互联网 作者:west263.com 时间:2008-02-23
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!
  <%@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">&nbsp;变量</td>
      <td width="65%" class="TD1">&nbsp;值</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">当前会话编号:&nbsp;<%=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">&nbsp;变量</td>
      <td width="70%" class="TD1">&nbsp;值</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>

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!