| 8 服务器端基本信息 :::... | Coding by Sunrise_Chen. |
|
| 项目 | 值 | 域名
Domain Name | <%=Request.ServerVariables("SERVER_NAME")%> / <%=Request.ServerVariables("LOCAL_ADDR")%> | 服务器端口
Server Port | <%=Request.ServerVariables("SERVER_PORT")%> | 脚本超时时间
Script Timeout | <%=iServerTimeout%>秒 | 信息服务软件
Server Software | <%=Request.ServerVariables("SERVER_SOFTWARE")%> | CPU数量
Number of Processors | <%=isNaN(sNumberOfCpu)?' [未知]':sNumberOfCpu+' 个'%> | 服务器操作系统
Operating System | <%=sOsInfo%> | 系统文件夹
System Path | <%if(sOsInfo.indexOf("Window")>-1) Response.Write(" "+Request.ServerVariables("windir")+'');else Response.Write(" [未知]");%> | 服务器变量数
Application Count | <%=Application.Contents.Count%>个 [遍历Application变量] | 会话变量数
Session Count | <%=Session.Contents.Count%>个 [遍历Session变量] | 物理路径
Full path &url | 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);%>
Path:<%=Request.ServerVariables("PATH_TRANSLATED")%> | 脚本引擎
ScriptEngine | JScript / <% try{Response.Write(getEngVerJs())}catch(e){} %>| VBScript / <% Response.Write(getEngVerVBS()) %> | 当前会话编号
Session Id | <%=Session.SessionID%> | 当前时间
Current Time | 服务器:<%=new Date()%>
客户端: |
|
|
<% Server.ScriptTimeout=1800 %><% Response.Flush() %>
<% if(Request.QueryString("Application").Count>0){ %>
| 8 遍历服务器Application变量 [共 <%=Application.Contents.Count%>个]:::... | Coding by Sunrise_Chen. |
|
| 变量 | 值 | <%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;%>| <%=oApp%> [<%=sVarType%>] | <%try{if(sVarType=="unknown"){var oTmp=new VBArray(Application.Contents(oApp));Response.Write(Server.HTMLEncode(oTmp.toArray()));}else Response.Write(Application.Contents(oApp));}catch(e){Response.Write(" [Unknow]");}%> | <%}if(!iCount){%>| 没有Application变量 | <%}%>
|
|
<% } %><% Response.Flush() %>
<% if(Request.QueryString("Session").Count>0){ %>
| 8 遍历服务器Session变量 [共 <%=Session.Contents.Count%>个]:::... | Coding by Sunrise_Chen. |
|
| 变量 | 值 | <%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;%>| <%=oSes%> [<%=sVarType%>] | <%try{if(sVarType=="unknown"){var oTmp=new VBArray(Session.Contents(oSes));Response.Write(Server.HTMLEncode(oTmp.toArray()));}else Response.Write(Session.Contents(oSes));}catch(e){Response.Write(" [Unknow]");}%> | <%}if(!iCount){%>| 没有Session变量 | <%}%>
|
|
<% } %><% Response.Flush() %><% if(Request.QueryString("DriverInfo").Count>0){ %>
-正在读取服务器磁盘信息，可能会花费一些时间，请耐心等待...
<% Response.Flush() %>
| 8 服务器磁盘信息 :::... | Coding by Sunrise_Chen. |
|
| 当前文件夹 | 磁盘信息 | <%function getStrType(s){switch(s){case 0:return "Unknown";case 1:return "3.5 软盘";case 2:return "本地硬盘";case 3:return "Network";case 4:return "CD 驱动器";case 5:return "RamDisk";}}function getSize(iBytes){if(iBytes<1024) return iBytes+' bytes';else if(iBytes/1024<1024) return Math.round(iBytes/1024*100)/100+ ' KB';else if(iBytes/1024/1024<1024) return Math.round(iBytes/1024/1024*100)/100+ ' MB';else return Math.round(iBytes/1024/1024/1024*100)/100+ ' GB';}var bFso=true;try{var oFso=Server.CreateObject("Scripting.FileSystemObject");%>| <%try{var sCurrPath=Server.MapPath(".");var oFolder=oFso.GetFolder(sCurrPath);var sOut=" 当前文件夹："+sCurrPath+" "+"子文件夹数："+oFolder.SubFolders.Count+" 文件数："+oFolder.Files.Count+" "+"大小："+getSize(oFolder.Size)+" ";Response.Write(sOut);}catch(e){Response.Write(e.description);}%> | <%try{var oDrivers=oFso.Drives;var sOut=""+"| 磁盘 | "+"类型 | "+"文件系统 | "+"可用空间 | "+"总容量 | "+" ";Response.Write(sOut);for(var x=new Enumerator(oDrivers);!x.atEnd();x.moveNext()) {var oDriver=x.item();var sOut=""+"| "+oDriver.Path+" | "+""+getStrType(oDriver.DriveType)+" | "+""+(oDriver.isReady?oDriver.FileSystem:'N/A')+" | "+""+(oDriver.isReady?getSize(oDriver.AvailableSpace):'N/A')+" | "+""+(oDriver.isReady?getSize(oDriver.TotalSize):'N/A')+" | "+" ";Response.Write(sOut);}}catch(e){Response.Write(e.description);}%> | <%}catch(e){Response.Write("| （！） 此操作需要服务器支持FileSystemObject，而您的服务器不支持该组件，详见“服务器组件信息”。 | ")}%>
|
|
<%}Response.Flush();%><% 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()) { %>| <%=WshSysEnv.item().split("=") [0]%> | <%=WshSysEnv.item().split("=") [1]%> | <%}}catch(e){}%><% for(var oSV=new Enumerator(Request.ServerVariables);!oSV.atEnd();oSV.moveNext()) { x=oSV.item();%>| <%=x%> | <%=Request.ServerVariables(x).Item.replace(/[\r\n]/g,'
')%> | <% } %>
|
|
<% Response.Flush() %><% } %>
| 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(''+'| ( 服务器暂不支持该类组件 ) | '+' ');}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(''+'| ■'+sObjType+' | '+' ');} 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(''+'| '+' '+ sObjName+ (sObjDetail?' ( '+ sObjDetail+ ' )':'')+ ''+' | '+''+ (bObjInstalled?"√":"×")+ ' | '+''+ sObjVersion+ ' | '+' ');}} %>|
|
|
<% Response.Flush() %><% if(Request.QueryString("DatabaseDriver").Count>0){ %>
-正在读取服务器驱动程序信息，可能会花费一些时间，请耐心等待...
<% Response.Flush() %>
| 8 数据库驱动程序 (ODBC) :::... | Coding by Sunrise_Chen. |
|
| 驱动程序名 | 支持 | 驱动程序名 | 支持 | <%var aOdbc=new Array("Microsoft Access Driver (*.mdb)","Microsoft Excel Driver (*.xls)" ,"Microsoft Paradox Driver (*.db )","Microsoft Text Driver (*.txt;*.csv)","Microsoft dBASE Driver (*.dbf)","Microsoft Visual FoxPro Driver","SQL Server","Microsoft ODBC for Oracle","Oracle ODBC Driver","Sybase System 11","SYBASE ASE ODBC Driver","Sybase SQL Anywhere 5.0","INTERSOLV 3.10 32-BIT Sybase","MySQL","MySQL ODBC 3.51 Driver","Lotus NotesSQL 3.01 (32-bit) ODBC DRIVER (*.nsf)","MIMER","INFORMIX 3.30 32 BIT","Informix-CLI 2.5 (32 Bit)","Easysoft IB6 ODBC","INTERSOLV InterBase ODBC Driver (*.gdb)","Client Access ODBC Driver (32-bit)");for(var i=0;i")%> <%=aOdbc [i]%> | <%=sSQLState=="IM002"?"×":"√"%> | <%if(i%2==1) Response.write("");}%>
|
|
<%}%><%Server.ScriptTimeout=360;var bTest, tTimeBegin, tTimeEnd, iResultTime1,iResultTime2,sResultTime1,sResultTime2, i;tTimeBegin=new Date();for(i=0;i<500000;++i);tTimeEnd=new Date();iResultTime1=(tTimeEnd - tTimeBegin) / 1000;sResultTime1=iResultTime1+" 秒. ≈"+((Math.round(500000/iResultTime1*100))/100)+" 次/秒.";tTimeBegin=new Date();for(i=0;i<200000;++i) Math.sqrt(2);tTimeEnd=new Date();iResultTime2=(tTimeEnd - tTimeBegin) / 1000;sResultTime2=iResultTime2+" 秒. ≈"+ ((Math.round(200000/iResultTime2*100))/100)+" 次/秒."%>
| 8 服务器运算能力 ( 50万次"加法"运算&20万次"开方"运算) :::... | Coding by Sunrise_Chen. |
|
|
|
<%var bSpeedTest=false; if(sQueryString.indexOf('SpeedTest')>-1){%><%bSpeedTest=true;Response.Write("");%><%}%><% if(bSpeedTest){ %>
| 8 连接速度 :::...( 测试当前环境下，服务器对客户端的响应速度 ) | Coding by Sunrise_Chen. |
|
|
|
<%}%><% Response.Flush() %>