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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机WAP编程 > 查看源码
Web_Host.Asp
资源名称：4.rar　[点击查看]
上传用户：zhbanny
上传日期：2020-11-04
资源大小：161k
文件大小：19k
源码类别：

手机WAP编程

开发平台：

ASP/ASPX

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