aspcheck.asp

是个不错的文件代码,希望大家好好用,

<br>■ 其他组件支持情况检测<br>
在下面的输入框中输入你要检测的组件的progid或classid。
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3f8805" width="450">
<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="#3f8805" width="450">
  <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="#3f8805" width="450">
  <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="#3f8805" width="450">
  <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="#3f8805" width="450">
  <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=450 cellspacing=0 cellpadding=0>
<tr><td align=center>
<b>[<a href="http://www.meigui8.cn/products/aspcheck/serverlist.asp#notice">提醒·说明</a>]
&nbsp;[<a href="http://www.meigui8.cn/products/aspcheck/serverlist.asp">更多空间商即时实测数据</a>]
&nbsp;[<a href="http://www.meigui8.cn/products/aspcheck/">查看下载最新版</a>]</b>
</td></tr>
</table>
<br>
<table border=0 width=450 cellspacing=0 cellpadding=0>
<tr><td align=center>
欢迎访问 【玫瑰情缘】 <a href="http://www.meigui8.cn">http://www.meigui8.cn</a>
<br>本程序由阳光(<a href="mailto:[e-mail]?subject=阳光探针">[e-mail]</a>)编写，转载时请保留这些信息
</td></tr>
</table>
</body>
</html>

<%
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
%>