📄 gaobei_check.asp
字号:
if IsArray(xTestObj(Item)(i)) then
outstr = outstr & "数组" & "<br>"
else
outstr = outstr & hx.formatvariables(xTestObj(Item)(i)) & "<br>"
end if
next
else
outstr = outstr & hx.formatvariables(xTestObj(Item))
end if
outstr = outstr & "</td>"
outstr = outstr & "</tr>"
next
end if
end if
Response.Write(outstr)
set xTestObj=nothing
%>
</table>
<%End Sub%>
<%Sub ObjTest%>
<a name="ObjTest"></a>
<div class="frame_box">
<div class="item_title">
<span class="item_title_head">服务器组件情况</span><%Call GoTop%>
<%Call smenu(1)%>
</div>
<div class="item_content" id='submenu1'>
<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="#0099CF">
<tr class="item_content_head">
<td colspan="2"><font face='Webdings'>4</font> IIS自带的ASP组件</td>
</tr>
<tr class="item_tr1">
<td width="450">组 件 名 称</td>
<td width="150">支持及版本</td>
</tr>
<%hx.GetObjInfo 0,10%>
</table>
<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="#0099CF">
<tr class="item_content_head">
<td colspan="2"><font face='Webdings'>4</font> 网站常用组件 </td>
</tr>
<tr class="item_tr1">
<td width="450">组 件 名 称</td>
<td width="150">支持及版本</td>
</tr>
<%hx.GetObjInfo 11,20%>
</table>
<%Call Custom_ObjInfo()%>
</div>
</div>
<%
End Sub
Sub Custom_ObjInfo%>
<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="#0099CF">
<tr class="item_content_head">
<td><font face='Webdings'>4</font> 其他组件支持情况检测 </td>
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF">
<form action="?action=Custom_ObjInfo" method="post">
输入你要检测的组件的ProgId或ClassId
<input class="input" type="text" value="" name="classname" size="40">
<input type="submit" value="确定" class="btn_c" name="submit1" onclick="return Checksearchbox(this.form);">
</form>
</td>
</tr>
<%
Dim strClass
strClass = Trim(Request.Form("classname"))
If strClass <> "" then
Response.Write "<tr><td height=""30"" bgcolor=""#FFFFFF"">您指定的组件的检查结果："
If Not hx.IsObjInstalled(strClass) then
Response.Write "<span class=""font_3"">很遗憾，该服务器不支持" & strclass & "组件！</span>"
Else
Response.Write "<span class=""font_3"">"
Response.Write " 恭喜！该服务器支持" & strclass & "组件。"
If hx.getver(strclass)<>"" then
Response.Write " 该组件版本是：" & hx.getver(strclass)
End if
Response.Write "</span>"
End If
Response.Write "</td></tr>"
end if
%>
</table>
<%End Sub
Sub CalculateTest
%><a name="CalcuateTest"></a>
<div class="frame_box">
<div class="item_title">
<span class="item_title_head">服务器运算能力</span><%Call GoTop%>
<%Call smenu(2)%>
</div>
<div class="item_content" id='submenu2'>
<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="#0099CF">
<tr class="item_content_head">
<td colspan="3"><font face='Webdings'>4</font> 让服务器执行50万次加法(整数运算)和20万次开方(浮点运算)，记录其所使用的时间。
</td>
</tr>
<tr class="item_tr2">
<td width="400">可 供 参 考 的 服 务 器 列 表</td>
<td width="100">整数运算</td>
<td width="100">浮点运算</td>
</tr>
<tr class="item_tr1">
<td>ITlearner的电脑 (CPU:Celeron 2G 内存:512M)</td>
<td>242.19 毫秒</td>
<td>191.41 毫秒</td>
</tr>
<tr class="item_tr1">
<td>ITlearner的服务器 (CPU:P4 3.0G(1M) 内存:1.5G)</td>
<td>187.50 毫秒</td>
<td>171.88 毫秒</td>
</tr>
<tr class="item_tr1">
<td><a href="http://union.itlearner.com" target="_blank">中国频道虚拟主机</a> [2005/08/08]</td>
<td>375.00 毫秒</td>
<td>328.13 毫秒</td>
</tr>
<tr class="item_tr1">
<td><a href="http://flash.itlearner.com" target="_blank">东南数据虚拟主机</a> [2005/08/08]</td>
<td>343.75 毫秒</td>
<td>312.50 毫秒</td>
</tr>
<tr class="item_tr1">
<td><a href="http://www.iva.cn" target="_blank">伊瓦科技虚拟主机</a> [2005/08/08]</td>
<td>203.13 毫秒</td>
<td>187.50 毫秒</td>
</tr>
<%
dim i,t1,t2,tempvalue,runtime1,runtime2
'开始计算50万次加法所需时间
t1=timer()
for i=1 to 500000
tempvalue= 1 + 1
next
t2=timer()
runtime1=formatnumber((t2-t1)*1000,2)
'开始计算20万次开方所需时间
t1=timer()
for i=1 to 200000
tempvalue= 2^0.5
next
t2=timer()
runtime2=formatnumber((t2-t1)*1000,2)
%>
<tr class="item_tr1">
<td><span class="font_3">您正在使用的这台服务器</span> <input name="button" type="button" class="btn_c" onclick="document.location.href='<%=hx.FileName%>'" value="重新测试">
</td>
<td><span class="font_3"><%=runtime1%> 毫秒</span></td>
<td><span class="font_3"><%=runtime2%> 毫秒</span></td>
</tr>
</table>
</div>
</div>
<%
End Sub
Sub DriveTest
On Error Resume Next
Dim fo,d,xTestObj
set fo=Server.Createobject("Scripting.FileSystemObject")
set xTestObj=fo.Drives
%>
<a name="DriveTest"></a>
<div class="frame_box">
<div class="item_title">
<span class="item_title_head">服务器磁盘信息</span><%Call GoTop%>
<%Call smenu(4)%>
</div>
<div class="item_content" id='submenu4'>
<%if hx.IsObjInstalled("Scripting.FileSystemObject") then%>
<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="#0099CF">
<tr class="item_content_head">
<td colspan="7"><font face='Webdings'>4</font> 服务器磁盘信息</td>
</tr>
<tr class="item_tr1">
<td width="90">磁盘类型</td>
<td width="35">盘符</td>
<td width="35">可用</td>
<td width="100">卷标</td>
<td width="80">文件系统</td>
<td width="130">可用空间</td>
<td width="130">总空间</td>
</tr>
<%
for each d in xTestObj
Response.write "<tr class=""item_tr1"">"
Response.write "<td>"&hx.dtype(d.DriveType)&"</td>"
Response.write "<td>"&d.DriveLetter&"</td>"
if d.DriveLetter = "A" then
Response.Write "<td colspan=""5"">为防止影响服务器，不检查软驱</td>"
else
Response.write "<td>"
if d.isready then
Response.Write "√"
Response.write "</td>"
Response.write "<td>"&d.VolumeName&"</td>"
Response.write "<td>"&d.FileSystem&"</td>"
Response.write "<td>"&hx.formatdsize(d.FreeSpace)&"</td>"
Response.write "<td>"&hx.formatdsize(d.TotalSize)&"</td>"
else
Response.Write "×"
Response.Write "<td colspan=4> 可能是磁盘有问题，或者程序没有读取权限</td>"
end if
end if
next%>
</table>
<%
Dim filePath,fileDir,fileDrive
filePath = server.MapPath(".")
set fileDir = fo.GetFolder(filePath)
set fileDrive = fo.GetDrive(fileDir.Drive)
%>
<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="#0099CF">
<tr class="item_content_head">
<td colspan="6"><font face='Webdings'>4</font> 当前文件夹信息 (<%=filePath%>)</td>
</tr>
<tr class="item_tr2">
<td width="100">已用空间</td>
<td width="100">可用空间</td>
<td width="70">文件夹数</td>
<td width="70">文件数</td>
<td width="130">创建时间</td>
<td width="130">修改时间</td>
</tr>
<%
Response.write "<tr class=""item_tr2"">"
Response.write "<td>"&hx.formatdsize(fileDir.Size)&"</td>"
Response.write "<td>"
Response.write hx.formatdsize(fileDrive.AvailableSpace)
if err then
Response.write "没有权限读取"
error.clear
end if
Response.write "</td>"
Response.write "<td>"&fileDir.SubFolders.Count&"</td>"
Response.write "<td>"&fileDir.Files.Count&"</td>"
Response.write "<td>"&fileDir.DateCreated&"</td> "
Response.write "<td>"&fileDir.DateLastModified&"</td> "
Dim i,t1,t2,runtime,TestFileName
Dim tempfo
t1= timer()
TestFileName=server.mappath("ITlearner_Test.txt")
for i=1 to 30
set tempfo=fo.CreateTextFile(TestFileName,true)
tempfo.WriteLine "It's a test file."
set tempfo=nothing
set tempfo=fo.OpenTextFile(TestFileName,8,0)
tempfo.WriteLine "It's a test file."
set tempfo=nothing
set tempfo=fo.GetFile(TestFileName)
tempfo.delete True
set tempfo=nothing
next
t2= timer()
runtime=formatnumber((t2-t1)*1000,2)
%>
</table>
<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="#0099CF">
<tr class="item_content_head">
<td colspan="2"><font face='Webdings'>4</font> 磁盘文件操作速度测试 (重复创建、写入、追加和删除文本文件30次，记录其所使用的时间)</td>
</tr>
<tr class="item_tr2">
<td width="400">可 供 参 考 的 服 务 器 列 表</td>
<td width="200">完成时间</td>
</tr>
<tr class="item_tr1">
<td>ITlearner的电脑 (CPU:Celeron 2G 内存:512M)</td>
<td>203.13 ~ 250.00 毫秒</td>
</tr>
<tr class="item_tr1">
<td>ITlearner的服务器 (CPU:P4 3.0G(1M) 内存:1.5G)</td>
<td>140.63 ~ 157.23 毫秒</td>
</tr>
<tr class="item_tr1">
<td>中国频道虚拟主机 [2005/08/08]</td>
<td>656.25 ~ 718.75 毫秒</td>
</tr>
<tr class="item_tr1">
<td>东南数据虚拟主机 [2005/08/08]</td>
<td>500.25 ~ 578.13 毫秒</td>
</tr>
<tr class="item_tr1">
<td><span class="font_3">您正在使用的这台服务器</span> <input name="button2" type="button" class=btn_c onclick="document.location.href='<%=hx.FileName%>'" value="重新测试">
</td>
<td><span class="font_3"><%=runtime%> 毫秒</span></td>
</tr>
</table>
<%
else
Response.write " 您的服务器或租用的空间不支持FSO组件，无法进行此项测试!"
end if%>
</div>
</div>
<%
End Sub
Sub SpeedTest
Response.Flush()
%>
<a name="SpeedTest"></a>
<div class="frame_box">
<div class="item_title">
<span class="item_title_head">服务器连接速度</span><%Call GoTop%><%Call smenu(3)%>
</div>
<% if action="SpeedTest" then%>
<div id="txt_speed">网速测试中，请稍候...</div>
<% end if%>
<div class="item_content" id='submenu3'>
<table width="100%" border="0" cellspacing="1" cellpadding="3" bgcolor="#0099CF">
<tr class="item_tr1">
<td width="80">接入设备</td>
<td width="405">连接速度(理想值)</td>
<td width="115">下载速度(理想值)</td>
</tr>
<tr class="item_tr1">
<td>56k Modem</td>
<td><img src="" alt="" class="PicBar" width="1%"> 56 Kbps</td><td>7.0 k/s</td>
</tr>
<tr class="item_tr1">
<td>2M ADSL</td>
<td><img src="" alt="" class="PicBar" width="10%"> 2000 Kbps</td><td>250.0 k/s</td>
</tr>
<tr class="item_tr1">
<td>5M FTTP</td>
<td><img src="" alt="" class="PicBar" width="180"> 5000 Kbps</td>
<td>625.0 k/s</td>
</tr>
<tr class="item_tr1">
<td>当前连接</td>
<td>
<%
if action="SpeedTest" then
dim i
With Response
.Write("<script language=""JavaScript"" type=""text/javascript"">var tSpeedStart=new Date();</script>")
.Write("<!--") & chr(13) & chr(10)
for i=1 to 1000
.Write("ITlearner-AspCheck-v1.3#############################################################################") & chr(13) & chr(10)
next
.Write("-->") & chr(13) & chr(10)
.Write("<script language=""JavaScript"" type=""text/javascript"">var tSpeedEnd=new Date();</script>") & chr(13) & chr(10)
.Write("<script language=""JavaScript"" type=""text/javascript"">")
.Write("var iSpeedTime=0;iSpeedTime=(tSpeedEnd - tSpeedStart) / 1000;")
.Write("if(iSpeedTime>0) iKbps=Math.round(Math.round(100 * 8 / iSpeedTime * 10.5) / 10); else iKbps=10000 ;")
.Write("var iShowPer=Math.round(iKbps / 100);")
.Write("if(iShowPer<1) iShowPer=1; else if(iShowPer>82) iShowPer=82;")
.Write("</script>") & chr(13) & chr(10)
.Write("<script language=""JavaScript"" type=""text/javascript"">")
.Write("document.write('<img class=""PicBar"" width=""' + iShowPer + '%""> ' + iKbps + ' Kbps');")
.Write("</script>") & chr(13) & chr(10)
.Write("</td><td><a href=""?action=SpeedTest"" title=""测试连接速度""><u>")
.Write("<script language=""JavaScript"" type=""text/javascript"">")
.Write("document.write(Math.round(iKbps/8*10)/10+ ' k/s');")
.Write("</script>") & chr(13) & chr(10)
.Write("</u></a>")
.Write("<script language=""JavaScript"" type=""text/javascript"">")
.Write("txt_speed.innerHTML=""网速测试完毕!"";")
.Write("txt_speed.style.display=""none"";")
.Write("</script>") & chr(13) & chr(10)
End With
else
Response.Write "</td><td><a href=""?action=SpeedTest#SpeedTest"" title=""测试连接速度""><u>开始测试</u></a>"
end if
%>
</td>
</tr>
</table>
</div>
</div>
<%End Sub%>
<%Sub SystemCheck()%>
<div class="frame_box">
<div class="item_title">
<span class="item_title_head">系统用户(组)和进程检测</span>
</div>
<div class="item_content">
<table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="#0099CF">
<tr class="item_content_head">
<td colspan="2"><font face='Webdings'>4</font> 如果下面列出了系统用户(组)和进程，则说明系统可能存在安全隐患。</td>
</tr>
<tr bgcolor="#EFEFEF">
<td width="80" align="center">类 型</td><td width="400">名称及详情</td>
</tr>
<% dim obj
on error resume next
for each obj in getObject("WinNT://.")
%>
<tr bgcolor="#FFFFFF">
<td align="center"><!--<%=obj.path%>-->
<% if err=438 then Response.Write "系统用户(组)" : else Response.Write "系统进程"%>
</td>
<td><%Response.Write obj.Name
if not error then Response.Write " (" & obj.displayname & ")<br>" & obj.path%>
</td>
</tr>
<% err.clear
next
%>
</table>
</div>
</div>
<%
Response.End
End Sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -