开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
Admin_Probe.asp
资源名称：haohj.rar　[点击查看]
上传用户：angela
上传日期：2022-05-11
资源大小：853k
文件大小：21k
源码类别：

外挂编程

开发平台：

ASP/ASPX

Admin_Probe.asp：源码内容
  1. <!--#include file="../Inc/Cls_Config.asp"-->
  2. <%
  3. if session("LoginName")="" then
  4.    Response.Redirect "/"
  5.    Response.End
  6. end if
  7. '=====================================================================
  8. ' 作者声明：转载请保留版权信息，鄙视不要脸的人
  9. '=====================================================================
  10. ' 程序名称：蓝宇网络发布系统
  11. ' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
  12. ' 文件名称：Admin_Probe.asp
  13. ' 更新日期：2007-6-5
  14. '=====================================================================
  15. ' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
  16. ' 程序开发：蓝宇,╲、随心゛
  17. ' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  18. '=====================================================================
  19. ' Copyright 2004-2007 蓝宇 - All Rights Reserved.
  20. '=====================================================================
  21. '不使用输出缓冲区，直接将运行结果显示在客户端
  22. 'Response.Buffer = False
  23. Dim starttime
  24. startime = Timer()
  25. Dim RightClass, LeftClass, CenterClass
  26. LeftClass = "class=""TableRow1"" align=""left"""
  27. RightClass = "class=""TableRow1"" align=""right"""
  28. CenterClass = "class=""TableRow2"" align=""center"""
  29. '声明待检测数组
  30. Dim ObjTotest(26,4)
  31. ObjTotest(0,0) = "MSWC.AdRotator"
  32. ObjTotest(1,0) = "MSWC.BrowserType"
  33. ObjTotest(2,0) = "MSWC.NextLink"
  34. ObjTotest(3,0) = "MSWC.Tools"
  35. ObjTotest(4,0) = "MSWC.Status"
  36. ObjTotest(5,0) = "MSWC.Counters"
  37. ObjTotest(6,0) = "IISSample.ContentRotator"
  38. ObjTotest(7,0) = "IISSample.PageCounter"
  39. ObjTotest(8,0) = "MSWC.PermissionChecker"
  40. ObjTotest(9,0) = "Scripting.FileSystemObject"
  41. ObjTotest(9,1) = "(FSO 文本文件读写)"
  42. ObjTotest(10,0) = "adodb.connection"
  43. ObjTotest(10,1) = "(ADO 数据对象)"
  44. ObjTotest(11,0) = "NewCloudCMS.SiteMainObject"
  45. ObjTotest(11,1) = "(NewCloudCMS管理组件)"
  46. ObjTotest(12,0) = "SoftArtisans.FileUp"
  47. ObjTotest(12,1) = "(SA-FileUp 文件上传)"
  48. ObjTotest(13,0) = "SoftArtisans.FileManager"
  49. ObjTotest(13,1) = "(SoftArtisans 文件管理)"
  50. ObjTotest(14,0) = "LyfUpload.UploadFile"
  51. ObjTotest(14,1) = "(刘云峰的文件上传组件)"
  52. ObjTotest(15,0) = "Persits.Upload.1"
  53. ObjTotest(15,1) = "(ASPUpload 文件上传)"
  54. ObjTotest(16,0) = "w3.upload"
  55. ObjTotest(16,1) = "(Dimac 文件上传)"
  56. ObjTotest(17,0) = "JMail.SmtpMail"
  57. ObjTotest(17,1) = "(Dimac JMail 邮件收发) <a href='http://www.ajiang.net'>中文手册下载</a>"
  58. ObjTotest(18,0) = "CDONTS.NewMail"
  59. ObjTotest(18,1) = "(虚拟 SMTP 发信)"
  60. ObjTotest(19,0) = "Persits.MailSender"
  61. ObjTotest(19,1) = "(ASPemail 发信)"
  62. ObjTotest(20,0) = "SMTPsvg.Mailer"
  63. ObjTotest(20,1) = "(ASPmail 发信)"
  64. ObjTotest(21,0) = "DkQmail.Qmail"
  65. ObjTotest(21,1) = "(dkQmail 发信)"
  66. ObjTotest(22,0) = "Geocel.Mailer"
  67. ObjTotest(22,1) = "(Geocel 发信)"
  68. ObjTotest(23,0) = "IISmail.Iismail.1"
  69. ObjTotest(23,1) = "(IISmail 发信)"
  70. ObjTotest(24,0) = "SmtpMail.SmtpMail.1"
  71. ObjTotest(24,1) = "(SmtpMail 发信)"
  72. ObjTotest(25,0) = "SoftArtisans.ImageGen"
  73. ObjTotest(25,1) = "(SA 的图像读写组件)"
  74. ObjTotest(26,0) = "W3Image.Image"
  75. ObjTotest(26,1) = "(Dimac 的图像读写组件)"
  76. public IsObj,VerObj,TestObj
  77. '检查预查组件支持情况及版本
  78. 'dim i
  79. for i=0 to 26
  80.     on error resume next
  81.     IsObj=false
  82.     VerObj=""
  83.     TestObj=""
  84.     set TestObj=server.CreateObject(ObjTotest(i,0))
  85.     If -2147221005 <> Err then
  86.         IsObj = True
  87.         VerObj = TestObj.version
  88.         if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
  89.     end if
  90.     ObjTotest(i,2)=IsObj
  91.     ObjTotest(i,3)=VerObj
  92. next
  94. '检查组件是否被支持及组件版本的子程序
  95. sub ObjTest(strObj)
  96.     on error resume next
  97.     IsObj=false
  98.     VerObj=""
  99.     TestObj=""
  100.     set TestObj=server.CreateObject (strObj)
  101.     If -2147221005 <> Err then
  102.         IsObj = True
  103.         VerObj = TestObj.version
  104.         if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
  105.     end if
  106. End sub
  107.     Response.Write "<html>"
  108.     Response.Write "<head>"
  109.     Response.Write "<title>服务器的相关信息</title>"
  110.     Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
  111.     Response.Write "<link href=""Images/style.css"" rel=""stylesheet"" type=""text/css"">"
  112.     Response.Write "<script language=javascript>" & vbCrLf
  113.     Response.Write "<!--" & vbCrLf
  114.     Response.Write "var startime,endTime;" & vbCrLf
  115.     Response.Write "var d=new Date();" & vbCrLf
  116.     Response.Write "startime=d.getTime();" & vbCrLf
  117.     Response.Write "//-->" & vbCrLf
  118.     Response.Write "</script>" & vbCrLf
  119.     Response.Write "</head>"
  120.     Response.Write "<body>"
  121.     Response.Write "<table width=""90%"" align=center cellpadding=3 cellspacing=1 class=""tableBorder"" border=0>"
  122.     Response.Write "<tr><th width=""27%"" height=25  Class=TableTitle>服 务 器 信 息</th></tr>"
  123.     Response.Write "<tr>"
  124.     Response.Write "<td height=22 " & LeftClass & ">"
  125.     Response.Write "<font class=fonts>你的服务器是否支持ASP</font>"
  126.     Response.Write "<br>出现以下情况即表示您的空间不支持ASP："
  127.     Response.Write "<br>1、访问本文件时提示下载。"
  128.     Response.Write "<br>2、访问本文件时看到类似“&lt;%@ Language=""VBScript"" %&gt;”的文字。"
  129.     Response.Write "</td></tr></table><br>"
  130.     Dim strClass
  131.     strClass = Trim(Request.Form("classname"))
  132.     If "" <> strClass then
  133.     Response.Write "<table width=""90%"" align=center cellpadding=3 cellspacing=1 class=""tableBorder"" border=0>"
  134.     Response.Write "<tr><th colspan=2>您指定的组件的检查结果</th></tr>"
  135.     Dim Verobj1
  136.     ObjTest(strClass)
  137.     If Not IsObj then
  138.     Response.Write "<tr><td height=50 " & CenterClass & ">"
  139.     Response.Write "<font color=red>很遗憾，该服务器不支持 " & strclass & " 组件！</font>"
  140.     Response.Write "</td></tr>"
  141.     Else
  142.         if VerObj="" or isnull(VerObj) then 
  143.         Verobj1="无法取得该组件版本"
  144.         Else
  145.         Verobj1="该组件版本是：" & VerObj
  146.         End If
  147.     Response.Write "<tr><td height=50 " & CenterClass & ">"
  148.     Response.Write "<font class=fonts>恭喜！该服务器支持 " & strclass & " 组件。" & verobj1 & "</font>"
  149.     Response.Write "</td></tr>"
  150.     End If
  151.     Response.Write "</table><br>"
  152.     End If
  153. '******************
  154.     Response.Write "<table width=""90%"" align=center cellpadding=3 cellspacing=1 class=""tableBorder"" border=0>"
  155.     Response.Write "<tr><th colspan=2>服务器的有关参数</th></tr>"
  156.     Response.Write "<tr>"
  157.     Response.Write "<td " & RightClass & " width=""50%"">&nbsp;服务器名</td>"
  158.     Response.Write "<td " & LeftClass & ">&nbsp;" & Request.ServerVariables("SERVER_NAME") & "</td>"
  159.     Response.Write "</tr>"
  160.     Response.Write "<tr>"
  161.     Response.Write "<td " & RightClass & ">&nbsp;服务器IP</td>"
  162.     Response.Write "<td " & LeftClass & ">&nbsp;" & Request.ServerVariables("LOCAL_ADDR") & "</td>"
  163.     Response.Write "</tr>"
  164.     Response.Write "<tr>"
  165.     Response.Write "<td " & RightClass & ">&nbsp;服务器端口</td>"
  166.     Response.Write "<td " & LeftClass & ">&nbsp;" & Request.ServerVariables("SERVER_PORT") & "</td>"
  167.     Response.Write "</tr>"
  168.     Response.Write "<tr>"
  169.     Response.Write "<td " & RightClass & ">&nbsp;服务器时间</td>"
  170.     Response.Write "<td " & LeftClass & ">&nbsp;" & now & "</td>"
  171.     Response.Write "</tr>"
  172.     Response.Write "<tr>"
  173.     Response.Write "<td " & RightClass & ">&nbsp;IIS版本</td>"
  174.     Response.Write "<td " & LeftClass & ">&nbsp;" & Request.ServerVariables("SERVER_SOFTWARE") & "</td>"
  175.     Response.Write "</tr>"
  176.     Response.Write "<tr>"
  177.     Response.Write "<td " & RightClass & ">&nbsp;脚本超时时间</td>"
  178.     Response.Write "<td " & LeftClass & ">&nbsp;" & Server.ScriptTimeout & " 秒</td>"
  179.     Response.Write "</tr>"
  180.     Response.Write "<tr>"
  181.     Response.Write "<td " & RightClass & ">&nbsp;本文件路径</td>"
  182.     Response.Write "<td " & LeftClass & ">&nbsp;" & Request.ServerVariables("PATH_TRANSLATED") & "</td>"
  183.     Response.Write "</tr>"
  184.     Response.Write "<tr>"
  185.     Response.Write "<td " & RightClass & ">&nbsp;服务器CPU数量</td>"
  186.     Response.Write "<td " & LeftClass & ">&nbsp;" & Request.ServerVariables("NUMBER_OF_PROCESSORS") & " 个</td>"
  187.     Response.Write "</tr>"
  188.     Response.Write "<tr>"
  189.     Response.Write "<td " & RightClass & ">&nbsp;服务器解译引擎</td>"
  190.     Response.Write "<td " & LeftClass & ">&nbsp;" & ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion  & "</td>"
  191.     Response.Write "</tr>"
  192.     Response.Write "<tr>"
  193.     Response.Write "<td " & RightClass & ">&nbsp;服务器操作系统</td>"
  194.     Response.Write "<td " & LeftClass & ">&nbsp;" & Request.ServerVariables("OS") & "</td>"
  195.     Response.Write "</tr>"
  196.     Response.Write "</table><br>"
  197. '******************
  198.     Response.Write "<table width=""90%"" align=center cellpadding=3 cellspacing=1 class=""tableBorder"" border=0>"
  199.     Response.Write "<tr><th colspan=2>IIS自带的ASP组件</th></tr>"
  200.     Response.Write "<tr align=center>"
  201.     Response.Write "<td width=50% class=TableTitle>组 件 名 称</td>"
  202.     Response.Write "<td width=""*"" class=TableTitle>支持及版本</td>"
  203.     Response.Write "</tr>"
  204.     For i=0 to 10
  205.     Response.Write "<tr>"
  206.     Response.Write "<td " & RightClass & ">&nbsp;" & ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1) & "</font></td>"
  207.     Response.Write "<td " & LeftClass & ">&nbsp;"
  208.     If Not ObjTotest(i,2) Then 
  209.     Response.Write "<font color=red><b>×</b></font>"
  210.     Else
  211.     Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
  212.     End If
  213.     Response.Write "</td>"
  214.     Response.Write "</tr>"
  215.     next
  216.     Response.Write "</table><br>"
  217. '******************
  218.     Response.Write "<table width=""90%"" align=center cellpadding=3 cellspacing=1 class=""tableBorder"" border=0>"
  219.     Response.Write "<tr><th colspan=2>常见的文件上传和管理组件</th></tr>"
  220.     Response.Write "<tr align=center>"
  221.     Response.Write "<td width=50% class=TableTitle>组 件 名 称</td>"
  222.     Response.Write "<td width=""*"" class=TableTitle>支持及版本</td>"
  223.     Response.Write "</tr>"
  224.     For i=11 to 16
  225.     Response.Write "<tr>"
  226.     Response.Write "<td " & RightClass & ">&nbsp;" & ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1) & "</font></td>"
  227.     Response.Write "<td " & LeftClass & ">&nbsp;"
  228.     If Not ObjTotest(i,2) Then 
  229.     Response.Write "<font color=red><b>×</b></font>"
  230.     Else
  231.     Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
  232.     End If
  233.     Response.Write "</td>"
  234.     Response.Write "</tr>"
  235.     next
  236.     Response.Write "</table><br>"
  237. '******************
  238.     Response.Write "<table width=""90%"" align=center cellpadding=3 cellspacing=1 class=""tableBorder"" border=0>"
  239.     Response.Write "<tr><th colspan=2>常见的收发邮件组件</th></tr>"
  240.     Response.Write "<tr align=center>"
  241.     Response.Write "<td width=50% class=TableTitle>组 件 名 称</td>"
  242.     Response.Write "<td width=""*"" class=TableTitle>支持及版本</td>"
  243.     Response.Write "</tr>"
  244.     For i=17 to 24
  245.     Response.Write "<tr>"
  246.     Response.Write "<td " & RightClass & ">&nbsp;" & ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1) & "</font></td>"
  247.     Response.Write "<td " & LeftClass & ">&nbsp;"
  248.     If Not ObjTotest(i,2) Then 
  249.     Response.Write "<font color=red><b>×</b></font>"
  250.     Else
  251.     Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
  252.     End If
  253.     Response.Write "</td>"
  254.     Response.Write "</tr>"
  255.     next
  256.     Response.Write "</table><br>"
  257. '******************
  258.     Response.Write "<table width=""90%"" align=center cellpadding=3 cellspacing=1 class=""tableBorder"" border=0>"
  259.     Response.Write "<tr><th colspan=2>图像处理组件</th></tr>"
  260.     Response.Write "<tr align=center>"
  261.     Response.Write "<td width=50% class=TableTitle>组 件 名 称</td>"
  262.     Response.Write "<td width=""*"" class=TableTitle>支持及版本</td>"
  263.     Response.Write "</tr>"
  264.     For i=25 to 26
  265.     Response.Write "<tr>"
  266.     Response.Write "<td " & RightClass & ">&nbsp;" & ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1) & "</font></td>"
  267.     Response.Write "<td " & LeftClass & ">&nbsp;"
  268.     If Not ObjTotest(i,2) Then 
  269.     Response.Write "<font color=red><b>×</b></font>"
  270.     Else
  271.     Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
  272.     End If
  273.     Response.Write "</td>"
  274.     Response.Write "</tr>"
  275.     next
  276.     Response.Write "</table><br>"
  277. '******************
  278.     Response.Write "<table width=""90%"" align=center cellpadding=3 cellspacing=1 class=""tableBorder"" border=0>"
  279.     Response.Write "<tr><th>其他组件支持情况检测</th></tr>"
  280.     Response.Write "<tr align=center><td width=70% class=TableTitle>在下面的输入框中输入你要检测的组件的ProgId或ClassId。</td></tr>"
  281.     Response.Write "<FORM action=""" & Request.ServerVariables("SCRIPT_NAME") & """ method=post id=form1 name=form1>"
  282.     Response.Write "<tr height=""23"">"
  283.     Response.Write "<td class=TableRow2 height=30><input class=kuang type=text value="""" name=""classname"" size=40>"
  284.     Response.Write "<INPUT type=submit value="" 确 定 "" class=kuang id=submit1 name=submit1> "
  285.     Response.Write " <INPUT type=reset value="" 重 填 "" class=kuang id=reset1 name=reset1>"
  286.     Response.Write "</td>"
  287.     Response.Write "</tr>"
  288.     Response.Write "</FORM>"
  289.     Response.Write "</table><br>" & vbCrLf
  290. '******************
  291.     if ObjTest("Scripting.FileSystemObject") then
  292.     set fsoobj=server.CreateObject("Scripting.FileSystemObject")
  293.     Response.Write "<table width=""90%"" align=center cellpadding=3 cellspacing=1 class=""tableBorder"" border=0>"
  294.     Response.Write "<tr><th colspan=6>服务器磁盘信息</th></tr>"
  295.     Response.Write "<tr align=center>"
  296.     Response.Write "<td width=""*"" class=TableTitle>盘符和磁盘类型</td>"
  297.     Response.Write "<td width=""10%"" class=TableTitle>就绪</td>"
  298.     Response.Write "<td width=""10%"" class=TableTitle>卷标</td>"
  299.     Response.Write "<td width=""15%"" class=TableTitle>文件系统</td>"
  300.     Response.Write "<td width=""20%"" class=TableTitle>可用空间</td>"
  301.     Response.Write "<td width=""20%"" class=TableTitle>总空间</td>"
  302.     Response.Write "</tr>"
  303. ' 测试磁盘信息的想法来自“COCOON ASP 探针”
  304.     set drvObj=fsoobj.Drives
  305.     for each d in drvObj
  306.     Response.Write "<tr>"
  307.     Response.Write "<td " & CenterClass & ">" & cdrivetype(d.DriveType) & " " & d.DriveLetter & ":</td>"
  308.     if d.DriveLetter = "A" then '为防止影响服务器，不检查软驱
  309.     Response.Write "<td " & CenterClass & "></td>"
  310.     Response.Write "<td " & CenterClass & "></td>"
  311.     Response.Write "<td " & CenterClass & "></td>"
  312.     Response.Write "<td " & CenterClass & "></td>"
  313.     Response.Write "<td " & CenterClass & "></td>"
  314.     Else  %>
  315.     <td <%=CenterClass%>><%=cIsReady(d.isReady)%></td>
  316.     <td <%=CenterClass%>><%=d.VolumeName%></td>
  317.     <td <%=CenterClass%>><%=d.FileSystem%></td>
  318.     <td <%=CenterClass%>><%=cSize(d.FreeSpace)%></td>
  319.     <td <%=CenterClass%>><%=cSize(d.TotalSize)%></td>
  320. <%  End if
  321.     Response.Write "</tr>"
  322.     next
  323.     Response.Write "</table><br>" & vbCrLf
  324. '******************************************************
  325.     Response.Write "<table width=""90%"" align=center cellpadding=3 cellspacing=1 class=""tableBorder"" border=0>"
  326.     Response.Write "<tr><th colspan=5>当前文件夹信息 "
  327.     dPath = server.MapPath("./")
  328.     set dDir = fsoObj.GetFolder(dPath)
  329.     set dDrive = fsoObj.GetDrive(dDir.Drive)
  330.     Response.Write "文件夹: " & dPath & "</th></tr>"
  331.     Response.Write "<tr align=""center"">"
  332.     Response.Write "<td width=""20%"" class=TableTitle>已用空间</td>"
  333.     Response.Write "<td width=""20%"" class=TableTitle>可用空间</td>"
  334.     Response.Write "<td width=""10%"" class=TableTitle>文件夹数</td>"
  335.     Response.Write "<td width=""10%"" class=TableTitle>文件数</td>"
  336.     Response.Write "<td width=""*"" class=TableTitle>创建时间</td>"
  337.     Response.Write "</tr>"
  338.     Response.Write "<tr>"
  339.     Response.Write "<td " & CenterClass & ">" & cSize(dDir.Size) & "</td>"
  340.     Response.Write "<td " & CenterClass & ">" & cSize(dDrive.AvailableSpace) & "</td>"
  341.     Response.Write "<td " & CenterClass & ">" & dDir.SubFolders.Count & "</td>"
  342.     Response.Write "<td " & CenterClass & ">" & dDir.Files.Count & "</td>"
  343.     Response.Write "<td " & CenterClass & ">" & dDir.DateCreated & "</td>"
  344.     Response.Write "</tr>"
  345.     Response.Write "</table><br>"
  346. '******************************************************
  347.     Response.Write "<table width=""90%"" align=center cellpadding=3 cellspacing=1 class=""tableBorder"" border=0>"
  348.     Response.Write "<tr><th colspan=2>磁盘文件操作速度测试</th></tr>"
  349.     Response.Write "<tr>"
  350.     Response.Write "<td colspan=2 " & LeftClass & ">"
  351.     Response.Write "正在重复创建、写入和删除文本文件50次"
  352.     dim thetime3,tempfile,iserr
  353.     iserr=false
  354.     t1=timer
  355.     tempfile=server.MapPath("./") & "aspchecktest.txt"
  356.     for i=1 to 50
  357.     Err.Clear
  358.     set tempfileOBJ = FsoObj.CreateTextFile(tempfile,true)
  359.     if Err <> 0 then
  360.         Response.Write "创建文件错误！"
  361.         iserr=true
  362.         Err.Clear
  363.         exit for
  364.     end if
  365.     tempfileOBJ.WriteLine "Only for test. Ajiang ASPcheck"
  366.     if Err <> 0 then
  367.         Response.Write "写入文件错误！"
  368.         iserr=true
  369.         Err.Clear
  370.         exit for
  371.     end if
  372.     tempfileOBJ.close
  373.     Set tempfileOBJ = FsoObj.GetFile(tempfile)
  374.     'tempfileOBJ.Delete 
  375.     if Err <> 0 then
  376.         Response.Write "删除文件错误！"
  377.         iserr=true
  378.         Err.Clear
  379.         exit for
  380.     end if
  381.     set tempfileOBJ=nothing
  382.     next
  383.     t2=timer
  384.     if iserr <> true then
  385.     thetime3=cstr(int(( (t2-t1)*10000 )+0.5)/10)
  386.     Response.Write "已完成！<font color=red>" & thetime3 & "毫秒</font>。"
  387.     Response.Write "</td></tr>"
  388.     Response.Write "<tr>"
  389.     Response.Write "<td " & RightClass & " width=""50%"">&nbsp;<font color=red>您的服务器: " & Request.ServerVariables("SERVER_NAME") & "</font>&nbsp;</td>"
  390.     Response.Write "<td " & LeftClass & ">&nbsp;<font color=red>" & thetime3 & "</font></td>"
  391.     Response.Write "</tr>"
  392.     Response.Write "</table><br>"
  393.     end if
  394.     set fsoobj=nothing
  395.     end if
  396. '******************
  397.     Response.Write "<table width=""90%"" align=center cellpadding=3 cellspacing=1 class=""tableBorder"" border=0>"
  398.     Response.Write "<tr><th colspan=3>ASP脚本解释和运算速度测试</th></tr>"
  399.     Response.Write "<tr>"
  400.     Response.Write "<td colspan=3 " & LeftClass & ">"
  401. '因为只进行50万次计算，所以去掉了是否检测的选项而直接检测
  402.     Response.Write "整数运算测试，正在进行50万次加法运算"
  403.     dim t1,t2,lsabc,thetime,thetime2
  404.     t1=timer
  405.     for i=1 to 500000
  406.         lsabc= 1 + 1
  407.     next
  408.     t2=timer
  409.     thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10)
  410.     Response.Write "已完成！<font color=red>" & thetime & "毫秒</font>。<br>"
  411.     Response.Write "浮点运算测试，正在进行20万次开方运算"
  412.     t1=timer
  413.     for i=1 to 200000
  414.         lsabc= 2^0.5
  415.     next
  416.     t2=timer
  417.     thetime2=cstr(int(( (t2-t1)*10000 )+0.5)/10)
  418.     Response.Write "已完成！<font color=red>" & thetime2 & "毫秒</font>。<br>"
  419.     Response.Write "</td></tr>"
  420.     Response.Write "<tr>"
  421.     Response.Write "<td " & CenterClass & " width=""30%"">&nbsp;<font color=red>您的服务器: " & Request.ServerVariables("SERVER_NAME") & "</font>&nbsp;</td>"
  422.     Response.Write "<td " & CenterClass & " width=""30%"">&nbsp;<font color=red>" & thetime & "</font></td>"
  423.     Response.Write "<td " & CenterClass & ">&nbsp;<font color=red>" & thetime2 & "</font></td>"
  424.     Response.Write "</tr>"
  425.     Response.Write "</table><br>"
  426. '******************
  427.     Response.Write "<table border=0 width=90% align=center cellspacing=0 cellpadding=0>"
  428.     Response.Write "<tr>"
  429.     Response.Write "<td align=center style=""LINE-HEIGHT: 150%"">"
  430.     Response.Write "Powered by：<a href=http://www.863sf.Cn target=_blank>tee5 WebSite GameCMS " & Version & "</a> （ACCESS 版）<BR>"
  431.     Response.Write RunTime
  432.     Response.Write "</td></tr>"
  433.     Response.Write "</table>"
  434.     Response.Write "</BODY>"
  435.     Response.Write "</HTML>"
  436. Public Function RunTime()
  437.         Dim StrTemp,Endtime
  438.         Endtime=timer()
  439.         strTemp= strTemp & "页面执行时间：" & FormatNumber(Endtime - startime,3, -1) & "毫秒　"
  440.         strTemp= strTemp & "页面装载时间：<script language=javascript>d=new Date();endTime=d.getTime();document.write((endTime-startime)/1000);</script> 秒"
  441.         response.write strTemp
  442. End Function
  443. function cdrivetype(tnum)
  444.     Select Case tnum
  445.         Case 0: cdrivetype = "未知"
  446.         Case 1: cdrivetype = "可移动磁盘"
  447.         Case 2: cdrivetype = "本地硬盘"
  448.         Case 3: cdrivetype = "网络磁盘"
  449.         Case 4: cdrivetype = "CD-ROM"
  450.         Case 5: cdrivetype = "RAM 磁盘"
  451.     End Select
  452. end function
  453. function cIsReady(trd)
  454.     Select Case trd
  455. case true: cIsReady="<font class=fonts><b>√</b></font>"
  456. case false: cIsReady="<font color='red'><b>×</b></font>"
  457.     End Select
  458. end function
  460. function cSize(tSize)
  461.     If tSize>=1073741824 then
  462. cSize=int((tSize/1073741824)*1000)/1000 & " GB"
  463.     Elseif tSize>=1048576 then
  464.      cSize=int((tSize/1048576)*1000)/1000 & " MB"
  465.     Elseif tSize>=1024 then
  466. cSize=int((tSize/1024)*1000)/1000 & " KB"
  467.     Else
  468. cSize=tSize & "B"
  469.     End If
  470. end function
  471. %>