📄 asp_env.asp
字号:
var bTest, tTimeBegin, tTimeEnd, iResultTime, i, oElement
tTimeBegin = new Date();
bTest = true;
iResultTime = 0;
for(i=0;i<5000000;i++);
tTimeEnd = new Date();
iResultTime = (tTimeEnd - tTimeBegin) / 1000;
o.innerHTML = iResultTime + " 秒. ≈" + ((Math.round(5000000/iResultTime*100))/100) + " 次/秒."
}
</SCRIPT>
<SCRIPT language="JavaScript">bJavaScript=true;</SCRIPT>
<SCRIPT language="VBScript">bVBScript=true</SCRIPT>
</head>
<SCRIPT language="JavaScript">
var CCNS_program = "COCOON ASP System Checker";
var CCNS_version = "2.5.00";
document.title += " v" + CCNS_version + "<%=' on ' + sServerName.toUpperCase()+ ' [ ' + sServerAddr + ' ]'%>";
</SCRIPT>
<body>
<table width="750" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="230" style="font-family:Verdana, Arial, Helvetica">
<p style="margin-top: 0; margin-bottom: -5;font-size:8pt"><strong>COCOON</strong></p>
<p style="margin-top: 0; margin-bottom: -8;"> <strong style="font-size:24pt">ASP
探针</strong><font color="#666666">v<script language="JavaScript">document.write(CCNS_version)</script></font></p>
<p style="margin-top: 0;"> <font color="#333333" style="font-size:9pt"><u>Server/Client
Environment Probe</u></font></p>
</td>
<td align="center">
<table style="width:480;height:60;border:solid 1px black;text-align:left"><tr><td>
* 欢迎使用COCOON探针，本程序公开源代码，你可以任意复制、传播和使用。<br>
你可以从作者的网站(<a href="http://www.ccopus.com">www.ccopus.com</a>)或其他支持者的网站得到本程序。
</td></tr></table>
</td>
</tr>
</table>
<%
//运算能力
var bTest, tTimeBegin, tTimeEnd, iResultTime, i
bTest = false;
if(Request.QueryString("beginTest").Count>0){
Server.ScriptTimeout = 90;
tTimeBegin = new Date();
bTest = true;
iResultTime = 0;
sResultTime = ""
for(i=0;i<5000000;i++);
tTimeEnd = new Date();
iResultTime = (tTimeEnd - tTimeBegin) / 1000;
sResultTime = iResultTime + " 秒. ≈" + ((Math.round(5000000/iResultTime*100))/100) + " 次/秒."
}
%>
<table width="750" border="0" cellspacing="0" cellpadding="0" style="width:750;border:0px solid black;padding: 5px;padding-right:0px">
<tr>
<td><DIV id='divStatus' style='font-family:Verdana;'><strong style="font-size:16px;color:red">Loading...</strong></DIV>
</td>
<td align="right" width="204">
<nobr>
<a href="javascript:void(0);" class="td1o2" onFocus="this.blur();" onClick="showInfo(0)">※ Server Side</a>
<a href="javascript:void(0);" class="td2o2" onFocus="this.blur();" onClick="showInfo(1)">※ Client Side</a>
</nobr>
</td>
<td width="22" style="text-align:right">
<div class="tr1" id="divFlag" style="width:18;height:28;font-family:Times New Roman;font-size:18px;color:#ffffff;text-align:center;padding-top: 3px;">S</div>
</td>
</tr>
</table>
<div id="divServer">
<table width="750" border="0" cellpadding="3" cellspacing="1" class="tbl1">
<tr>
<td class="tr1"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><font color="#FFFFFF" face="webdings">8</font><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif">
<strong>服务器端基本信息 </strong>
<% if(!Request.QueryString("ServerDetail").Count>0){ %>
<a href="<%=sTheFile%>?ServerDetail" style="color:#ffffff">[ <u>更详细的信息</u> ]</a>
<% } %>
<strong>:::...</strong></font></td>
<td align="right"><font color="#D2D8EC">Coding by Sunrise_Chen. </font></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#F8F9FC"> <table width="100%" border="0" cellpadding="3" cellspacing="1" class="tbl1o1">
<tr>
<td width="30%" class="td1"><font color="#5C72BA"> </font>项目</td>
<td colspan="2" class="td1"><font color="#5C72BA"> </font>值</td>
</tr>
<tr>
<td width="30%" class="td1o1"> 域名<br> <font color="#666666"> Domain
Name</font></td>
<td colspan="2" class="td1o2"> <%=Request.ServerVariables("SERVER_NAME")%>
/ <%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr>
<td class="td1o1"> 服务器端口<br> <font color="#666666"> Server
Port</font></td>
<td class="td1o2"> <%=Request.ServerVariables("SERVER_PORT")%>
</td>
<td class="td1o2"> 默认： 80</td>
</tr>
<tr>
<td class="td1o1"> 信息服务软件<br> <font color="#666666"> Server
Software</font></td>
<td colspan="2" class="td1o2"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr>
<td class="td1o1"> 脚本超时时间<br> <font color="#666666"> Script
Timeout</font></td>
<td class="td1o2"> <%=Server.ScriptTimeout%> 秒</td>
<td class="td1o2"> 默认： 90 秒</td>
</tr>
<tr>
<td class="td1o1"> 物理路径<br> <font color="#666666"> Physical
Path</font></td>
<td colspan="2" class="td1o2"> <%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
</tr>
<tr>
<td class="td1o1"> CPU数量<br> <font color="#666666"> Number
of Processors</font></td>
<td colspan="2" class="td1o2"> <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
个 </td>
</tr>
<tr>
<td class="td1o1"> 脚本引擎<br> <font color="#666666"> ScriptEngine</font></td>
<td colspan="2" class="td1o2"> JScript:
<% try{Response.Write(getEngVerJs())}catch(e){} %>
| VBScript:
<% Response.Write(getEngVerVBS()) %>
</td>
</tr>
<tr>
<td class="td1o1"> 服务器操作系统<br> <font color="#666666"> Operating
System</font></td>
<td class="td1o2"> <%=Request.ServerVariables("OS")%></td>
<td class="td1o2">
<%
if(Request.ServerVariables("OS")(1).indexOf("Window")>-1){
Response.Write(" 系统目录："+Request.ServerVariables("windir"));
}
%>
</td>
</tr>
<tr>
<td class="td1o1"> 当前时间<br> <font color="#666666"> Current
Time</font></td>
<td colspan="2" class="td1o2"> 服务器：<%=new Date()%>
<br> 客户端：<script language="JavaScript">document.write(new Date())</script> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="5" class="tr1"></td>
</tr>
</table>
<% if(Request.QueryString("ServerDetail").Count>0){ %>
<br>
<table width="750" border="0" cellpadding="3" cellspacing="1" class="tbl1">
<tr>
<td class="tr1"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><font color="#FFFFFF" face="webdings">8</font><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif">
<strong>服务器端环境变量列表 :::...</strong></font></td>
<td align="right"><font color="#D2D8EC">Coding by Sunrise_Chen. </font></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#F8F9FC">
<table width="100%" border="0" cellpadding="3" cellspacing="1" class="tbl1o1">
<tr>
<td width="30%" class="td1"><font color="#5C72BA"> </font>项目</td>
<td class="td1"><font color="#5C72BA"> </font>值</td>
</tr>
<%
try{
var WshShell = Server.CreateObject("WScript.Shell");
var WshSysEnv = new Enumerator(WshShell.Environment("SYSTEM"));
for(;!WshSysEnv.atEnd();WshSysEnv.moveNext()) {
%>
<tr>
<td class="td1o1"> <%=WshSysEnv.item().split("=")[0]%>
</td>
<td class="td1o2" style="padding: 7px;"><%=WshSysEnv.item().split("=")[1]%></td>
</tr>
<%
}
}catch(e){}
%>
<% for(var oSV = new Enumerator(Request.ServerVariables);!oSV.atEnd();oSV.moveNext()) { %>
<% x=oSV.item(); %>
<tr>
<td class="td1o1"> <%=x%>
</td>
<td class="td1o2" style="padding: 7px;"><%=Request.ServerVariables(x).Item.replace(/\n/g,'<br>')%></td>
</tr>
<% } %>
</table></td>
</tr>
<tr>
<td height="5" class="tr1"></td>
</tr>
</table>
<% } %>
<br>
<table width="750" border="0" cellpadding="3" cellspacing="1" class="tbl1">
<tr>
<td class="tr1"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><font color="#FFFFFF" face="webdings">8</font><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif">
<strong>服务器组件信息 :::...</strong></font></td>
<td align="right"><font color="#D2D8EC">Coding by Sunrise_Chen. </font></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#F8F9FC"> <table width="100%" border="0" cellpadding="3" cellspacing="1" class="tbl1o1">
<tr>
<td width="80%" class="td1"> 组件名</td> <td width="10%" align="center" class="td1">支持</td>
<td width="10%" align="center" class="td1">版本</td>
</tr>
<%
var iIndex, sObjName, sObjDetail, sObjType, iIndexCount, bShowUnSupport;
var sObjVersion,bObjInstalled;
iIndex = 0;
iIndexCount = -1;
bShowUnSupport = false;
for(var i=0;;i++){
if(i>=arrObj.length||iIndex!=arrObj[i][2]){
if(iIndexCount==0&&iIndex<99){
Response.Write(
'<tr>\n'+
'<td width="80%" class="td1o1" style="color:#666666" colspan="3"> <i>( 服务器暂不支持该类组件 )</i></td>\n'+
'</tr>\n'
);
}
if(i>=arrObj.length) break;
iIndex=arrObj[i][2];
iIndexCount=0;
switch(iIndex){
case 1: sObjType = "IIS自带组件"; break;
case 2: sObjType = "常见的第三方文件上传和管理组件"; break;
case 3: sObjType = "常见的第三方文件邮件发送组件"; break;
case 4: sObjType = "常见的图像处理组件"; break;
default: sObjType = "自定义组件"; break;
}
Response.Write(
'<tr>\n'+
'<td colspan="3" bgcolor="#D6DBED"> ■<b> '+sObjType+'</b></td>\n'+
'</tr>\n'
);
}
sObjName = arrObj[i][0]
sObjDetail = arrObj[i][1];
bObjInstalled = true;
sObjVersion = getObjVer(sObjName);
if(sObjVersion=="N/A"){
bObjInstalled = false;
sObjVersion = "";
}
if(bObjInstalled||iIndex==99){
iIndexCount++;
Response.Write(
'<tr>\n'+
'<td width="80%" class="td1o1">'+
' ' + sObjName + (sObjDetail?' <font color="#666666">( ' + sObjDetail + ' )</font>':'') + '\n' +
'</td>\n'+
'<td width="10%" align="center" class="td1o2">' + (bObjInstalled?"√":"×") + '</td>\n' +
'<td width="10%" align="center" class="td1o2"><span style="width:100%;height:18;overflow-y:auto;">' + sObjVersion + '</span></td>\n' +
'</tr>\n'
);
}
}
%>
<tr>
<form method="post" action="<%=sTheFile%>">
<td colspan="3" bgcolor="#D6DBED"> 检测其他组件
<input name="sObjName" type="text" class="tbl1" id="sObjName" style="background-color:#F3F4FA;width:400px">
<input name="Submit" type="submit" value="提交" style="border:1px;background-color:#5C72BA;color:#d2d8ec;padding-top:1px;width:70px">
</td>
</form>
</tr>
</table></td>
</tr>
<tr>
<td height="5" class="tr1"></td>
</tr>
</table>
<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -