aspcheck.asp

zheng fu wang zhan gong neng qi quan

			If Not ObjTotest(i,2) Then 
				Response.Write "<font color=red><b>×</b></font>"
			Else
				Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
			End If%></td>
		</tr>
		<%next%>
	  </table>
	  <br>
	  ■ 其他组件支持情况检测<br>
	在下面的输入框中输入你要检测的组件的ProgId或ClassId。
	<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="100%">
	  <FORM action=<%=Request.ServerVariables("SCRIPT_NAME")%> method=post id=form1 name=form1>
		  <tr height="18" class=backq>
			  <td align=center height=30><input class=input type=text value="" name="classname" size=40>
	  <INPUT type=submit value=" 确 定 " class=backc id=submit1 name=submit1>
	  <INPUT type=reset value=" 重 填 " class=backc id=reset1 name=reset1> 
	  </td>
		    </tr>
	  </FORM>
	</table>
	<%
	Response.Flush
	
	
	
	if ObjTest("Scripting.FileSystemObject") then
	
		set fsoobj=server.CreateObject("Scripting.FileSystemObject")
	
	%>
	
	<br>
	<font class=fonts>磁盘相关测试</font>
	
	<br>
	■ 服务器磁盘信息
	
	<table class=backq border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="100%">
	    <tr height="18" align=center class="backs">
		  <td width="100">盘符和磁盘类型</td>
		  <td width="50">就绪</td>
		  <td width="80">卷标</td>
		  <td width="60">文件系统</td>
		  <td width="80">可用空间</td>
		  <td width="80">总空间</td>
	    </tr>
	  <%
	
		' 测试磁盘信息的想法来自“COCOON ASP 探针”
		
		set drvObj=fsoobj.Drives
		for each d in drvObj
	%>
	    <tr height="18" align=center>
		  <td align="right"><%=cdrivetype(d.DriveType) & " " & d.DriveLetter%>:</td>
	  <%
		if d.DriveLetter = "A" then	'为防止影响服务器，不检查软驱
			Response.Write "<td></td><td></td><td></td><td></td><td></td>"
		else
	%>
		  <td><%=cIsReady(d.isReady)%></td>
		  <td><%=d.VolumeName%></td>
		  <td><%=d.FileSystem%></td>
		  <td align="right"><%=cSize(d.FreeSpace)%></td>
		  <td align="right"><%=cSize(d.TotalSize)%></td>
	  <%
		end if
	%>
	    </tr>
	  <%
		next
	%>
	  </td></tr>
	</table>
	<br>
	■ 当前文件夹信息
	<%
	
	Response.Flush
	
	
		dPath = server.MapPath("./")
		set dDir = fsoObj.GetFolder(dPath)
		set dDrive = fsoObj.GetDrive(dDir.Drive)
	%>
	文件夹: <%=dPath%>
	<table class=backq border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="100%">
	    <tr height="18" align="center" class="backs">
		  <td width="75">已用空间</td>
		  <td width="75">可用空间</td>
		  <td width="75">文件夹数</td>
		  <td width="75">文件数</td>
		  <td width="150">创建时间</td>
	    </tr>
	    <tr height="18" align="center">
		  <td><%=cSize(dDir.Size)%></td>
		  <td><%=cSize(dDrive.AvailableSpace)%></td>
		  <td><%=dDir.SubFolders.Count%></td>
		  <td><%=dDir.Files.Count%></td>
		  <td><%=dDir.DateCreated%></td>
	    </tr>
	  </td></tr>
	</table>
	<br>
	■ 磁盘文件操作速度测试<br>
	<%
	Response.Flush
	
	
		' 测试文件读写的想法来自“迷城浪子”
		
		Response.Write "正在重复创建、写入和删除文本文件50次..."
	
		dim thetime3,tempfile,iserr
	
	iserr=false
		t1=timer
		tempfile=server.MapPath("./") & "\aspchecktest.txt"
		for i=1 to 50
			Err.Clear
	
			set tempfileOBJ = FsoObj.CreateTextFile(tempfile,true)
			if Err <> 0 then
				Response.Write "创建文件错误！<br><br>"
				iserr=true
				Err.Clear
				exit for
			end if
			tempfileOBJ.WriteLine "Only for test. Ajiang ASPcheck"
			if Err <> 0 then
				Response.Write "写入文件错误！<br><br>"
				iserr=true
				Err.Clear
				exit for
			end if
			tempfileOBJ.close
			Set tempfileOBJ = FsoObj.GetFile(tempfile)
			tempfileOBJ.Delete 
			if Err <> 0 then
				Response.Write "删除文件错误！<br><br>"
				iserr=true
				Err.Clear
				exit for
			end if
			set tempfileOBJ=nothing
		next
		t2=timer
	if iserr <> true then
		thetime3=cstr(int(( (t2-t1)*10000 )+0.5)/10)
		Response.Write "...已完成！<font color=red>" & thetime3 & "毫秒</font>。<br>"
		Response.Flush
	
	%>
	<table class=backq border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="100%">
	    <tr height=18 align=center class="backs">
		  <td width=320>供 对 照 的 服 务 器</td>
		  <td width=130>完成时间(毫秒)</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<a href="http://www.hdidc.com">华东数据hdidc.com主机<font color=#888888> 双至强2.4,1GddrEcc,SCSI36.4G)</font></a></td><td>&nbsp;32～75</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<a href="http://www.gdxf.net/wzkj/index.htm">新丰信息港付费ASP+CGI空间</a></td><td>&nbsp;46～62</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<a href="http://www.68l.com/">68互联</a></td><td>&nbsp;78</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<a href="http://www.diy5.com">第5空间diy5.com四至强主机<font color=#888888>(P42.4,2GddrEcc,SCSI72.8G)</font></a></td><td>&nbsp;46～78</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<a href="http://www.100u.com?come=aspcheck&keyword=虚拟主机"
		>百优科技 100u 主机</a></td><td>&nbsp;31～62</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<a href="http://www.3366.com.cn"
		>点击网络主机</a></td><td>&nbsp;31～62</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<font color=red>这台服务器: <%=Request.ServerVariables("SERVER_NAME")%></font>&nbsp;</td><td>&nbsp;<font color=red><%=thetime3%></font></td>
	    </tr>
	</table>
	<%
	end if
	
	Response.Flush
		
		set fsoobj=nothing
	
	end if%>
	<br>
	<font class=fonts>ASP脚本解释和运算速度测试</font><br>
	<%
	Response.Flush
	
		'感谢网际同学录 http://www.5719.net 推荐使用timer函数
		'因为只进行50万次计算，所以去掉了是否检测的选项而直接检测
		
		Response.Write "整数运算测试，正在进行50万次加法运算..."
		dim t1,t2,lsabc,thetime,thetime2
		t1=timer
		for i=1 to 500000
			lsabc= 1 + 1
		next
		t2=timer
		thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10)
		Response.Write "...已完成！<font color=red>" & thetime & "毫秒</font>。<br>"
	
	
		Response.Write "浮点运算测试，正在进行20万次开方运算..."
		t1=timer
		for i=1 to 200000
			lsabc= 2^0.5
		next
		t2=timer
		thetime2=cstr(int(( (t2-t1)*10000 )+0.5)/10)
		Response.Write "...已完成！<font color=red>" & thetime2 & "毫秒</font>。<br>"
	%>
	<table class=backq border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="100%">
	    <tr height=18 align=center class="backs">
		  <td width=320>供对照的服务器及完成时间(毫秒)</td>
	      <td width=65>整数运算</td><td width=65>浮点运算</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<a href="http://www.100u.com?come=aspcheck&keyword=虚拟主机"
		>百优科技 100u 主机, <font color=#888888>2003-11-1</font></a></td><td>&nbsp;181～233</td><td>&nbsp;156～218</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<a href="http://www.west263.com/index.asp?ads=ajiang"
		>西部数码 west263 主机, <font color=#888888>2003-11-1</font></a></td><td>&nbsp;171～233</td><td>&nbsp;156～171</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<a href="http://www.linkwww.com "
		>联网科技 linkwww 主机,  <font color=#888888>2003-11-1</font></a></td><td>&nbsp;181～203</td><td>&nbsp;171</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<a href="http://www.9s5.com/"
		>就是我www.9s5.com全功能(ASP+PHP+JSP)主机,<font color=#888888>2003-11-1</font></a></td><td>&nbsp;171～187</td><td>&nbsp;156～171</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<a href="http://www.dnsmy.com/"
		>永讯网络 Dnsmy 主机, <font color=#888888>2003-11-1</font></a></td><td>&nbsp;155～180</td><td>&nbsp;122～172</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<a href="http://www.hostidc.net"
		>数据互联 Hostidc.net 主机, <font color=#888888>2004-3-28</font></a></td><td>&nbsp;156～171</td><td>&nbsp;140～156</td>
	    </tr>
	    <tr height=18>
		  <td align=left>&nbsp;<font color=red>这台服务器: <%=Request.ServerVariables("SERVER_NAME")%></font>&nbsp;</td><td>&nbsp;<font color=red><%=thetime%></font></td><td>&nbsp;<font color=red><%=thetime2%></font></td>
	    </tr>
	</table>
	<br>
	<table border=0 width=100% cellspacing=0 cellpadding=0>
	  <tr><td align=center>
	  <b>[<a href="http://www.ajiang.net/products/aspcheck/serverlist.asp#notice">提醒·说明</a>]
	&nbsp;[<a href="http://www.ajiang.net/products/aspcheck/serverlist.asp">更多空间商即时实测数据</a>]
	&nbsp;[<a href="http://www.ajiang.net/products/aspcheck/">查看下载最新版</a>]</b>
	  </td></tr>
	</table>
	<br>
	<table border=0 width=100% cellspacing=0 cellpadding=0>
	  <tr><td align=center>
	  欢迎访问 【阿江守候】 <a href="http://www.ajiang.net">http://www.ajiang.net</a>
	  <br>本程序由阿江(<a href="mailto:[e-mail]?subject=阿江探针">[e-mail]</a>)编写，转载时请保留这些信息
	  </td></tr>
	</table>
	</div>
	</BODY>
	</HTML>
	<!--#include file=Admin_Bottom.asp-->
		<%
		function cdrivetype(tnum)
		    Select Case tnum
		        Case 0: cdrivetype = "未知"
		        Case 1: cdrivetype = "可移动磁盘"
		        Case 2: cdrivetype = "本地硬盘"
		        Case 3: cdrivetype = "网络磁盘"
		        Case 4: cdrivetype = "CD-ROM"
		        Case 5: cdrivetype = "RAM 磁盘"
		    End Select
		end function
		
		function cIsReady(trd)
		    Select Case trd
				case true: cIsReady="<font class=fonts><b>√</b></font>"
				case false: cIsReady="<font color='red'><b>×</b></font>"
			End Select
		end function
		
		function cSize(tSize)
		    if tSize>=1073741824 then
				cSize=int((tSize/1073741824)*1000)/1000 & " GB"
		    elseif tSize>=1048576 then
		    	cSize=int((tSize/1048576)*1000)/1000 & " MB"
		    elseif tSize>=1024 then
				cSize=int((tSize/1024)*1000)/1000 & " KB"
			else
				cSize=tSize & "B"
			end if
		end function
		
		sub getsysinfo()
		  on error resume next
		  Set WshShell = server.CreateObject("WScript.Shell")
		  Set WshSysEnv = WshShell.Environment("SYSTEM")
		  okOS = cstr(WshSysEnv("OS"))
		  okCPUS = cstr(WshSysEnv("NUMBER_OF_PROCESSORS"))
		  okCPU = cstr(WshSysEnv("PROCESSOR_IDENTIFIER"))
		  if isnull(okCPUS) then
		    okCPUS = Request.ServerVariables("NUMBER_OF_PROCESSORS")
		  elseif okCPUS="" then
		    okCPUS = Request.ServerVariables("NUMBER_OF_PROCESSORS")
		  end if
		  if Request.ServerVariables("OS")="" then okOS=okOS & "(可能是 Windows Server 2003)"
		end sub
	end if
end if%>