admin1_server.asp

asp整站系统

    <tr height=18 class=backs align=center>
      <td width=320>组 件 名 称</td>
      <td width=130>支持及版本</td>
    </tr>
    <%For i=24 to 25%>
    <tr height="18" class=backq> 
      <td align=left>&nbsp;<%=ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1)%></font></td>
      <td align=left>&nbsp;
        <%
		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="#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>
  <%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>
  ■ 当前文件夹信息 
  <%
	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.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>"

%>
  <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;<font color=red>这台服务器: <%=Request.ServerVariables("SERVER_NAME")%></font>&nbsp;</td>
      <td>&nbsp;<font color=red><%=thetime3%></font></td>
    </tr>
  </table>
  <%
end if
	
	set fsoobj=nothing

end if%>
  <br>
  <font class=fonts>ASP脚本解释和运算速度测试</font><br>
  <%

	'感谢网际同学录 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.senye.net/"
	>胜易网络 Senye.net 主机, <font color=#888888>2003-10-28</font></a></td>
      <td>&nbsp;171～187</td>
      <td>&nbsp;156～171</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>
  
</div>
</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
%>