📄 aspsyscheck.asp
字号:
</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 width="70%" class="td1"> 磁盘信息</td>
</tr>
<%
function getStrType(s){
switch(s){
case 0: return "Unknown"
case 1: return "3.5 软盘" //Removable
case 2: return "本地硬盘" //fixed
case 3: return "Network"
case 4: return "CD 驱动器" //CD-ROM
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");
%>
<tr>
<td align="left" valign="top" class="td1o2" style="padding:7px;">
<%
try{
var sCurrPath = Server.MapPath(".");
var oFolder = oFso.GetFolder(sCurrPath);
var sOut = "<div>当前文件夹："+sCurrPath+"</div>"
+ "<div>子文件夹数："+oFolder.SubFolders.Count+" 文件数："+oFolder.Files.Count+"</div>"
+ "<div>大小："+getSize(oFolder.Size)+"</div>"
Response.Write(sOut)
}catch(e){
Response.Write(e.description)
}
%>
</td>
<td valign="top" class="td1o2" style="padding: 7px;">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<%
try{
var oDrivers = oFso.Drives;
var sOut = "<tr align='right' bgColor='#dddddd'>"
+ "<td style='text-align:center'>磁盘</td>"
+ "<td style='width:100px'>类型 </td>"
+ "<td style='width:100px'>文件系统 </td>"
+ "<td style='width:100px;'>可用空间 </td>"
+ "<td style='width:100px;'>总容量 </td>"
+ "</tr>"
Response.Write(sOut)
for(var x=new Enumerator(oDrivers);!x.atEnd();x.moveNext()) {
var oDriver = x.item();
var sOut = "<tr align='right'>"
+ "<td align='center'>"+oDriver.Path+"</td>"
+ "<td>"+getStrType(oDriver.DriveType)+" </td>"
+ "<td>"+(oDriver.isReady?oDriver.FileSystem:'N/A')+" </td>"
+ "<td>"+(oDriver.isReady?getSize(oDriver.AvailableSpace):'N/A')+" </td>"
+ "<td>"+(oDriver.isReady?getSize(oDriver.TotalSize):'N/A')+" </td>"
+ "</tr>";
Response.Write(sOut);
}
}catch(e){
Response.Write(e.description)
}
%>
</table>
</td>
</tr>
<%
}catch(e){ //测试fso对象
Response.Write("<tr><td colspan=2 class=td1o2>（！） 此操作需要服务器支持FileSystemObject，而您的服务器不支持该组件，详见“服务器组件信息”。</span></tr>")
}
%>
</table></td>
</tr>
<tr>
<td height="5" class="tr1"></td>
</tr>
</table>
<script language="JavaScript">document.getElementById('divDriverInfoLoading').style.display='none';</script>
<%
} //查看服务器磁盘信息
Response.Flush()
%>
<% if(Request.QueryString("ServerDetail").Count>0){ %>
<a name="ServerDetail"></a>
<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>服务器端环境变量列表
<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="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>
<% Response.Flush() %>
<% } %>
<a name="ServerComponent"></a>
<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>服务器组件信息
<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="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:#336699;color:#d2d8ec;padding-top:1px;width:70px">
</td>
</form>
</tr>
</table></td>
</tr>
<tr>
<td height="5" class="tr1"></td>
</tr>
</table>
<% Response.Flush() %>
<%
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) + " 次/秒."
%>
<a name="ArithmeticTest"></a>
<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">
<strong>服务器运算能力 </strong> ( <span style="cursor:hand" title="描述: 50万次叠加运算并赋值">50万次"加法"运算</span>
& <span style="cursor:hand" title="描述: 20万次叠加,赋值以及20万次2的2次方根运算">20万次"开方"运算</span>
) </font><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif"><strong>
<script>showTools();</script>
</strong></font><font color="#FFFFFF"><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 class="td1"> 服务器</td>
<td width="200" align="center" class="td1">整数运算结果</td>
<td width="200" align="center" class="td1">浮点运算结果</td>
</tr>
<tr>
<td class="td1o1"> <a href="http://www.texindex.com.cn/">中华纺织网主机<em><font color="#666666">(TEXINDEX.com)</font></em></a>
[ 2003/6/18 15:08 ]</td>
<td align="center" class="td1o2">1.297 秒. ≈385505.01 次/秒.</td>
<td align="center" class="td1o2">1.422 秒. ≈140646.98 次/秒.</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -