serverinfo.asp

对学校物资管理系统的一份设计

      <%
		If Not ObjTotest(i,2) Then 
			Response.Write "<font color=red><b>×</b></font>"
		Else
			Response.Write "<font color=red><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
		End If%></td>
</tr>
	<%next%>
    <tr bgcolor="#FFFFFF">
      <td colspan="2" align="left">■ 其他组件支持情况检测　
在下面的输入框中输入你要检测的组件的ProgId或ClassId。</td>
  </tr>
  <tr bgcolor="#FFFFFF">
  <td colspan="2" align="left"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
    <FORM action=<%=Request.ServerVariables("SCRIPT_NAME")%> method=post id=form1 name=form1>
      <tr height="18">
        <td height=30><div align="center">
              <input class="input_text" type=text value="" name="classname" size=60>
              <INPUT type=submit value=" 确　定 " class="input_submit" id=submit1 name=submit1>
   　　
   <INPUT type=reset value=" 重　填 " class="input_submit" id=reset1 name=reset1>
        </div></td>
      </tr>
    </FORM>
  </table></td>
  </tr>
</table>

<br>
<table width="100%"  border="0" cellpadding="2" cellspacing="1" bgcolor="#DEDFDE">
  <tr bgcolor="#f7f7f7">
    <td colspan="6"><%
Response.Flush



if ObjTest("Scripting.FileSystemObject") then

	set fsoobj=server.CreateObject("Scripting.FileSystemObject")

%>磁盘相关测试</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td colspan="6">■ 服务器磁盘信息 </td>
  </tr>
  <tr align=center bordercolor="#3F8805" bgcolor="#FFFFFF" height="18">
    <td width="16%">盘符和磁盘类型</td>
    <td width="16%">就绪</td>
    <td width="16%">卷标</td>
    <td width="16%">文件系统</td>
    <td width="16%">可用空间</td>
    <td width="16%">总空间</td>
  </tr>
  <%

	' 测试磁盘信息的想法来自“COCOON ASP 探针”
	
	set drvObj=fsoobj.Drives
	for each d in drvObj
%>
  <tr align=center bgcolor="#FFFFFF" height="18">
    <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
%>
  <tr bgcolor="#FFFFFF">
    <td colspan="6">■ 当前文件夹信息
      <%

Response.Flush


	dPath = server.MapPath("./")
	set dDir = fsoObj.GetFolder(dPath)
	set dDrive = fsoObj.GetDrive(dDir.Drive)
%>
文件夹: <%=dPath%> </td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td align="center" bgcolor="#FFFFFF">已用空间</td>
    <td align="center" bgcolor="#FFFFFF">可用空间</td>
    <td align="center" bgcolor="#FFFFFF">文件夹数</td>
    <td align="center" bgcolor="#FFFFFF">文件数</td>
    <td colspan="2" align="center">创建时间</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td align="center"><%=cSize(dDir.Size)%></td>
    <td align="center"><%=cSize(dDrive.AvailableSpace)%></td>
    <td align="center"><%=dDir.SubFolders.Count%></td>
    <td align="center"><%=dDir.Files.Count%></td>
    <td colspan="2" align="center"><%=dDir.DateCreated%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td colspan="6">■ 磁盘文件操作速度测试</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td colspan="6"><%
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

%>
    <%
end if

Response.Flush
	
	set fsoobj=nothing

end if%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td colspan="6">■ ASP脚本解释和运算速度测试</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td colspan="6"><%
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>"
%>
</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="<b>√</b>"
		case false: cIsReady="<font color='red'><b>×</b>"
	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
%>