转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 网络应用 >> 正文
查看服务器Application/Session变量工具         ★★★

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

作者:闵涛 文章来源:闵涛的学习笔记 点击数:2925 更新时间:2007/11/3 1:12:32
经常写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">&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>
            <td valign="middle" class="TD2">
   <%
   try{
    if(sVarType=="unknown"){
      var oTmp = new VBArray(Session.C

[1] [2]  下一页


[网络技术]PPTP服务器的端口  [C语言系列]Socket 编程,一个服务器,多个客户端,互相通信
[网页制作]破解网页禁止复制、禁止选择文字对象和禁止查看源…  [网页制作]禁止查看网页源代码之JavaScript源代码
[网页制作]如何将新网站域名提交到搜索引擎并查看网站的收录…  [办公软件]Excel编程基础之VBA变量常量定义及各种语句介绍
[办公软件]在Excel中不使用插入函数功能如何查看平均值、最大…  [办公软件]不打开Word文档如何查看文章有几页
[网络技术]如何查看ADSL Mode指示灯了解网络状况  [网络技术]局域网内如何查看谁在访问哪些共享资源
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · 电脑应用  · 网络应用
    · 软件开发  · 软件使用
    · 站长学院  · 数据库
    · 应用范文  · 网络书斋
    · 考试认证  · 精彩网文
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台