查看伺服器所有Application變數、Session變數工具

來源:互聯網
上載者:User
application|session|變數|伺服器 經常寫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>



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

11.11 Big Sale for Cloud

Get Unbeatable Offers with up to 90% Off,Oct.24-Nov.13 (UTC+8)

Get It Now >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。