📄 aspsyscheck.asp
字号:
Array("操作系统","Operating System",getOS(userAgent),1),
Array("语言","System Language",(navigator.language?navigator.language:navigator.browserLanguage),1),
Array("浏览器","Browser",getBrower(userAgent),1),
Array("浏览器全称","Browser Name",navigator.appName,1),
Array("浏览器代码","Browser Code",navigator.appCodeName+" "+parseFloat(navigator.appVersion),1),
Array("修正版本","Browser Minor Version",navigator.appMinorVersion,1),
Array("MSN Broswer","",getMSN(userAgent),1),
Array(".NET CLR","",getDotNet(userAgent),1),
Array("JavaScript","JavaScript Support",(bJavaScript ? "√ ( " +getEngVerJs() +" )" :"×"),1),
Array("VBScript","Visual Basic Scripting Support",(bVBScript ? "√ ( " +getEngVerVBS() + " )" :"×"),1),
Array("Cookies","",(navigator.cookieEnabled?"√":"×"),1)
);
}catch(e){alert(e)}
//添加客户端组件信息
for(var i=0;i<aPlug.length;i++)
checkPlug(aPlug[i][0],aPlug[i][1],1);
//添加客户端基本信息
addRow("tblClientInfo",aClientInfo,2);
if(!getObjByID("chkAspSupport")){
document.title = CCNS_program + " v" + CCNS_version ;
oDiv = getObjByID("divServer");
if(oDiv){
oDiv.style.display="none";
oDiv.id="DisabledDiv";
}
oDiv = getObjByID("divNoASP");
if(oDiv){
oDiv.style.display="";
oDiv.id="divServer";
}
}
if(oDiv=getObjByID("divStatus")) oDiv.innerHTML = "<font color=blue style='border:solid 1px blue;padding-top:1px;padding-left:5px;padding-right:5px;'>更新信息</font> 感谢你使用COCOON ASP系统环境探针。 [点这里可以下载本探针]";
}
function showInfo(iParam){
var oServer = getObjByID("divServer");
var oClient = getObjByID("divClient");
var oFlag = getObjByID("divFlag");
if(!oServer||!oClient) return false;
if(iParam==1){
oFlag.className="tr2"
oFlag.innerText="C"
oServer.style.display="none";
oClient.style.display="";
}else{
oFlag.className="tr1"
oFlag.innerText="S"
oServer.style.display="";
oClient.style.display="none";
}
}
function runTest(o){
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">
function showSingleTable(o){
var p = o;
while(p&&'DIV,BODY'.indexOf(p.parentElement.tagName)<0) p=p.parentElement;
var sHtml = p.outerHTML;
var sCss = "<style>"+document.styleSheets[0].cssText+"</style>";
var sOut = "<html><head><title>COCOON ASP探针</title>"+sCss+"</head><body style='overflow:auto;border:0px;background-color:buttonface;text-align:center'>"+sHtml+"</body></html>";
sOut = "<"+"script>function showSingleTable(){}\nfunction showTools(){}\n</script"+">\n" + sOut;
var oNewWin = window.open("about:blank","","width=790px,height=10px,resizable=yes,scrollbars=yes");
oNewWin.document.write(sOut);
oNewWin.resizeTo(790,oNewWin.document.body.scrollHeight+35);
oNewWin.focus();
}
function showTools(){
document.write(
'<label onclick="showSingleTable(this)" style="font-family:webdings;color:white;cursor:hand;" title="单独显示此项">2</label> '
+ '<a href="#top" style="font-family:webdings;color:white;">5</a>'
);
}
</script>
<SCRIPT language="JavaScript">
var CCNS_program = "COCOON ASP 探针";
var CCNS_version = "2.7.50";
document.title = CCNS_program + " v" + CCNS_version + "<%=' on ' + sServerName.toUpperCase()+ ' [ ' + sServerAddr + ' ]'%>";
</SCRIPT>
<body>
<a name="top"></a>
<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 border="0" cellpadding="0" cellspacing="0" style="width:480;height:60;border:solid 1px black;text-align:left;padding-left:10pt">
<tr>
<td height="56">
<span id="divCcAd" name="divCcAd" style="">
* 欢迎使用COCOON探针，本程序公开源代码，你可以任意复制、传播和使用。<br> 你可以从我们的网站 ( <a href="http://www.ccopus.com">www.ccopus.com</a> ) 或其他支持站点下载到本程序。
</span>
</td>
</tr></table>
</td>
</tr>
</table>
<% Response.Flush() %>
<table width="750" border="0" cellspacing="0" cellpadding="0" style="width:750;border:0px solid black;padding: 3px;padding-right:0px">
<tr>
<td><DIV id='divStatus' style='font-family:Verdana;cursor:hand;' onClick="window.open('http://www.ccopus.com/code/aspSysCheck.asp')"><strong style="font-size:16px;color:red">Loading...</strong></DIV>
</td>
<td align="right" width="204" style="padding-right:3px">
<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:18px;height:28px;font-family:Times New Roman;font-size:18px;color:#ffffff;text-align:center;padding-top: 3px;">S</div>
</td>
</tr>
</table>
<a name="ServerInfo"></a>
<a name="ClientInfo"></a>
<table width="750" border="0" cellspacing="0" cellpadding="0" style="width:750;border:0px solid black;padding: 3px;padding-right:0px">
<tr>
<td align="left">
〖服务器工具〗<a href="#ServerInfo" onClick="javascript:showInfo(0);">◊ 基本信息</a>
<a href="<%=sTheFile+'?'+Math.random()%>&SpeedTest#SpeedTest" class="td102a">♦ 连接速度</a>
<a href="#ServerComponent" onClick="javascript:showInfo(0);">◊ 组件信息</a>
<a href="<%=sTheFile+'?DriverInfo#DriverInfo'%>" class="td102a">♦ 磁盘信息</a>
<a href="#ArithmeticTest" onClick="javascript:showInfo(0);">◊ 运算能力</a>
<a href="<%=sTheFile+'?ServerDetail#ServerDetail'%>" class="td102a">♦ 环境变量</a>
-
〖客户端工具〗<a href="#ClientInfo" onClick="javascript:showInfo(1);">◊ 基本信息</a>
<a href="#ClientComponent" onClick="javascript:showInfo(1);">◊ 组件信息</a>
<a href="#ClientArithmeticTest" onClick="javascript:showInfo(1);">◊ 运算能力</a>
</td>
</tr>
</table>
<% Response.Flush() %>
<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>
<strong>
<script>showTools();</script>
:::... </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="130" class="td1"><font color="#5C72BA"> </font>项目</td>
<td colspan="3" class="td1"><font color="#5C72BA"> </font>值</td>
</tr>
<tr>
<td width="130" class="td1o1"> 域名<br> <font color="#666666"> Domain
Name</font></td>
<td colspan="3" class="td1o2"> <%=Request.ServerVariables("SERVER_NAME")%>
/ <%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr>
<td width="130" class="td1o1"> 服务器端口<br> <font color="#666666"> Server
Port</font></td>
<td width="240" class="td1o2"> <%=Request.ServerVariables("SERVER_PORT")%>
</td>
<td width="130" class="td1o1"> 脚本超时时间<br> <font color="#666666"> Script
Timeout</font></td>
<td width="240" class="td1o2"> <%=iServerTimeout%> 秒</td>
</tr>
<tr>
<td width="130" class="td1o1"> 信息服务软件<br> <font color="#666666"> Server
Software</font></td>
<td width="240" class="td1o2"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
<td width="130" nowrap class="td1o1"> CPU数量<br> <font color="#666666"> Number
of Processors</font></td>
<td width="240" class="td1o2"> <%=isNaN(sNumberOfCpu)?'[未知]':sNumberOfCpu+' 个'%></td>
</tr>
<tr>
<td width="130" class="td1o1"> 服务器操作系统<br> <font color="#666666"> Operating
System</font></td>
<td width="240" class="td1o2"> <%=sOsInfo%></td>
<td width="130" class="td1o1"> 系统文件夹<br> <font color="#666666"> System
Path</font></td>
<td width="240" class="td1o2">
<%
if(sOsInfo.indexOf("Window")>-1)
Response.Write(" "+Request.ServerVariables("windir")+'');
else
Response.Write(" [未知]")
%>
</td>
</tr>
<tr>
<td width="130" nowrap class="td1o1"> 服务器变量数<br> <font color="#666666"> Application
Count</font></td>
<td width="240" nowrap class="td1o2"> <%=Application.Contents.Count%>
个</td>
<td nowrap class="td1o1"> 会话变量数<br> <font color="#666666"> Session
Count</font></td>
<td width="240" class="td1o2"> <%=Session.Contents.Count%> 个</td>
</tr>
<tr>
<td width="130" class="td1o1"> 物理路径<br> <font color="#666666"> Full
path & url</font></td>
<td colspan="3" class="td1o2"> URL:
<%
var sHostName = Request.ServerVariables("HTTP_HOST")
var sPostNo = Request.ServerVariables("SERVER_PORT")
var sUrl = Request.ServerVariables("URL")
Response.Write("http://" + sHostName + (sPostNo=='80'?'':':'+sPostNo) + sUrl)
%>
<br> Path: <%=Request.ServerVariables("PATH_TRANSLATED")%>
</td>
</tr>
<tr>
<td width="130" class="td1o1"> 脚本引擎<br> <font color="#666666"> ScriptEngine</font></td>
<td width="240" class="td1o2"> JScript /
<% try{Response.Write(getEngVerJs())}catch(e){} %>
| VBScript /
<% Response.Write(getEngVerVBS()) %>
</td>
<td nowrap class="td1o1"> 当前会话编号<br>
<font color="#666666"> Session Id</font></td>
<td width="240" class="td1o2"> <%=Session.SessionID%></td>
</tr>
<tr>
<td width="130" class="td1o1"> 当前时间<br> <font color="#666666"> Current
Time</font></td>
<td colspan="3" 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>
<% Response.Flush() %>
<% if(Request.QueryString("DriverInfo").Count>0){ %>
<br>
<div id="divDriverInfoLoading">
<font face="Courier New" id="divDriverInfoLoadingAction" style="width:5px;">-</font>
正在读取服务器磁盘信息，可能会花费一些时间，请耐心等待...
<script language="JavaScript">showLoadingAnimation('divDriverInfoLoadingAction')</script>
<% Response.Flush() %>
</div>
<a name="DriverInfo"></a>
<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>服务器磁盘信息
<script>showTools();</script>
:::...</strong></font></td>
<td align="right"><font color="#D2D8EC">Coding by Sunrise_Chen. </font></td>
</tr>
</table></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -