<%@LANGUAGE="JavaScript" CODEPAGE="936"%> <% Response.Expires = 0; Response.Buffer = true; var tPageStartTime = new Date(); var sObjName = Request.Form("sObjName"); var sServerName = Request.ServerVariables("SERVER_NAME")(1); var sServerAddr = Request.ServerVariables("LOCAL_ADDR")(1); var sTheFile = Request.ServerVariables("URL")(1); var arrObj = new Array( Array( "MSWC.AdRotator", "", 1 ), Array( "MSWC.BrowserType", "", 1 ), Array( "MSWC.NextLink", "", 1 ), Array( "MSWC.Tools", "", 1 ), Array( "MSWC.Status", "", 1 ), Array( "MSWC.Counters", "", 1 ), Array( "IISSample.ContentRotator", "", 1 ), Array( "IISSample.PageCounter", "", 1 ), Array( "MSWC.PermissionChecker", "", 1 ), Array( "WScript.Shell", "", 1 ), Array( "Scripting.FileSystemObject", "", 1 ), Array( "ADODB.Connection", "ActiveX Data Object [ADO]", 1 ), Array( "CDONTS.NewMail", "Collaboration Data Object [CDO]", 1 ), Array( "SoftArtisans.FileUp", "SA-FileUp 文件上传", 2 ), Array( "SoftArtisans.FileManager", "SA-FM 文件管理", 2 ), Array( "LyfUpload.UploadFile", "LyfUpload 文件上传", 2 ), Array( "Persits.Upload.1", "ASPUpload 文件上传", 2 ), Array( "w3.upload", "w3 upload 文件上传", 2 ), Array( "iismail.iismail.1", "IISemail", 3 ), Array( "JMail.SMTPMail", "w3 Jmail", 3 ), Array( "Persits.MailSender", "ASPemail", 3 ), Array( "SMTPsvg.Mailer", "ASPmail", 3 ), Array( "dkQmail.Qmail", "dkQmail", 3 ), Array( "SmtpMail.SmtpMail.1", "SMTPmail", 3 ), Array( "Geocel.Mailer", "Geocel", 3), Array( "SoftArtisans.ImageGen", "SA 的图像读写组件", 4), Array( "W3Image.Image", "Dimac 的图像读写组件", 4) ); if(sObjName.Count>0) arrObj[arrObj.length] = Array( sObjName(1), "", 99 ); function getObjVer(objName){ try{ var objTest = Server.CreateObject(objName);} catch(e){ if(e.number==-2147221005) return "N/A"; } try{ var sObjVer = objTest.Version; } catch(e){ return ""; } if(isNaN(parseInt(sObjVer))) return ""; objTest = null; return sObjVer; } %> COCOON ASP 探针

COCOON

 ASP 探针v

 Server/Client Environment Probe

 * 欢迎使用COCOON探针,本程序公开源代码,你可以任意复制、传播和使用。
   你可以从作者的网站(www.ccopus.com)或其他支持者的网站得到本程序。
<% //运算能力 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) + " 次/秒." } %>
Loading...
※ Server Side   ※ Client Side
S
8 服务器端基本信息 <% if(!Request.QueryString("ServerDetail").Count>0){ %> [ 更详细的信息 ] <% } %> :::... Coding by Sunrise_Chen. 
 项目  
 域名
 Domain Name
 <%=Request.ServerVariables("SERVER_NAME")%>  / <%=Request.ServerVariables("LOCAL_ADDR")%>
 服务器端口
 Server Port
 <%=Request.ServerVariables("SERVER_PORT")%>  默认: 80
 信息服务软件
 Server Software
 <%=Request.ServerVariables("SERVER_SOFTWARE")%>
 脚本超时时间
 Script Timeout
 <%=Server.ScriptTimeout%> 秒  默认: 90 秒
 物理路径
 Physical Path
 <%=Request.ServerVariables("APPL_PHYSICAL_PATH")%>
 CPU数量
 Number of Processors
 <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个 
 脚本引擎
 ScriptEngine
 JScript: <% try{Response.Write(getEngVerJs())}catch(e){} %>  |  VBScript: <% Response.Write(getEngVerVBS()) %>
 服务器操作系统
 Operating System
 <%=Request.ServerVariables("OS")%> <% if(Request.ServerVariables("OS")(1).indexOf("Window")>-1){ Response.Write("  系统目录:"+Request.ServerVariables("windir")); } %>
 当前时间
 Current Time
 服务器:<%=new Date()%>
 客户端:
<% if(Request.QueryString("ServerDetail").Count>0){ %>
8 服务器端环境变量列表 :::... Coding by Sunrise_Chen. 
<% try{ var WshShell = Server.CreateObject("WScript.Shell"); var WshSysEnv = new Enumerator(WshShell.Environment("SYSTEM")); for(;!WshSysEnv.atEnd();WshSysEnv.moveNext()) { %> <% } }catch(e){} %> <% for(var oSV = new Enumerator(Request.ServerVariables);!oSV.atEnd();oSV.moveNext()) { %> <% x=oSV.item(); %> <% } %>
 项目  
 <%=WshSysEnv.item().split("=")[0]%> <%=WshSysEnv.item().split("=")[1]%>
 <%=x%> <%=Request.ServerVariables(x).Item.replace(/\n/g,'
')%>
<% } %>
8 服务器组件信息 :::... Coding by Sunrise_Chen. 
<% 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( '\n'+ '\n'+ '\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( '\n'+ '\n'+ '\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( '\n'+ '\n'+ '\n' + '\n' + '\n' ); } } %>
 组件名 支持 版本
 ( 服务器暂不支持该类组件 )
 ■ '+sObjType+'
'+ '  ' + sObjName + (sObjDetail?' ( ' + sObjDetail + ' )':'') + '\n' + '' + (bObjInstalled?"√":"×") + '' + sObjVersion + '
 检测其他组件

8 服务器运算能力 (500万次 纯加法 运算 ):::... Coding by Sunrise_Chen. 
 服务器 所用时间
 Sunrise_Chen的破电脑 (192M C500) 8.882 秒. ≈562936.28 次/秒.
 中国集藏网主机 [ 2002/8/26 9:44 ] 5.485 秒. ≈911577.03 次/秒.
 6TO23中国学生网虚拟主机 [ 2002/8/26 9:40 ] 8.172 秒. ≈611845.33 次/秒.
 天力投资在线主机 [ 2002/8/26 9:50 ] 4.844 秒. ≈1032204.8 次/秒.
 当前服务器 <%=(bTest?sResultTime:"开始测试")%>

<% var bSpeedTest = false if(Request.QueryString("SpeedTest").Count>0){ %> <% bSpeedTest = true; Response.Write("\n"); %> <% } %>
8 连接速度 :::... ( 测试当前环境下,服务器对客户端的响应速度 ) Coding by Sunrise_Chen. 
 接入设备  连接速度 下载速度 (理想值)
56k Modem 53.3 kbps  3.6 k/s
64k ISDN 64 kbps  8.0 k/s
512k ADSL 512 kbps  64 k/s
1.5M Cable 1500 Mbps  187.5 k/s
10M FTTP 10000 kbps  1250 k/s
 当前连接速度    
<%="
"%>

Copyright(C) Sunrise_Chen @ COCOON sTudio [ www.cocoon.6to23.com ] .
本程序由Sunrise_Chen编写,转载时请保留这些信息. <% tPageEndTime = new Date(); %> <%="
页面执行时间:约 "+((tPageEndTime-tPageStartTime)/1000)+" 秒"%>