2.10 Application/Session变量工具

【 tulaoshi.com - Web开发 】

" 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
            tdfont color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" strong服务器Application变量 [共 %=Application.Contents.Count% 个]
                    scriptshowTools();/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%" clas

（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/webkaifa/）uot;3" cellspacing="1" class="Table1"
    tr
     td class="TR1"
        table width="100%" border="0" cellspacing="0" cellpadding="0"
          tr
            tdfont color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" strong服务器Session变量 [共 %=Session.Contents.Count% 个]
                    scriptshowTools();/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%/bbri disabled[%if(sVarType=="unknown") {Response.Write("Array");}else{Response.Write(sVarType);}%]/i/td
            td valign="middle" class="TD2"
   %
   try{

s="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%/bbri 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=&q