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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机WAP编程 > 查看源码
ASPCHECK.ASP
资源名称：wap.rar　[点击查看]
上传用户：sking1122
上传日期：2020-09-24
资源大小：1005k
文件大小：10k
源码类别：

手机WAP编程

开发平台：

ASP/ASPX

ASPCHECK.ASP：源码内容
  1. <% Option Explicit %>
  3. '不使用输出缓冲区，直接将运行结果显示在客户端
  4. Response.Buffer = False
  6. '声明待检测数组
  7. Dim ObjTotest(26,4)
  9. ObjTotest(0,0) = "MSWC.AdRotator"
  10. ObjTotest(1,0) = "MSWC.BrowserType"
  11. ObjTotest(2,0) = "MSWC.NextLink"
  12. ObjTotest(3,0) = "MSWC.Tools"
  13. ObjTotest(4,0) = "MSWC.Status"
  14. ObjTotest(5,0) = "MSWC.Counters"
  15. ObjTotest(6,0) = "IISSample.ContentRotator"
  16. ObjTotest(7,0) = "IISSample.PageCounter"
  17. ObjTotest(8,0) = "MSWC.PermissionChecker"
  18. ObjTotest(9,0) = "Scripting.FileSystemObject"
  19. ObjTotest(9,1) = "(FSO 文本文件读写)"
  20. ObjTotest(10,0) = "adodb.connection"
  21. ObjTotest(10,1) = "(ADO 数据对象)"
  23. ObjTotest(11,0) = "SoftArtisans.FileUp"
  24. ObjTotest(11,1) = "(SA-FileUp 文件上传)"
  25. ObjTotest(12,0) = "SoftArtisans.FileManager"
  26. ObjTotest(12,1) = "(SoftArtisans 文件管理)"
  27. ObjTotest(13,0) = "LyfUpload.UploadFile"
  28. ObjTotest(13,1) = "(刘云峰的文件上传组件)"
  29. ObjTotest(14,0) = "Persits.Upload.1"
  30. ObjTotest(14,1) = "(ASPUpload 文件上传)"
  31. ObjTotest(15,0) = "w3.upload"
  32. ObjTotest(15,1) = "(Dimac 文件上传)"
  34. ObjTotest(16,0) = "JMail.SmtpMail"
  35. ObjTotest(16,1) = "(Dimac JMail 邮件收发) <a href='http://www.ajiang.net'>中文手册下载</a>"
  36. ObjTotest(17,0) = "CDONTS.NewMail"
  37. ObjTotest(17,1) = "(虚拟 SMTP 发信)"
  38. ObjTotest(18,0) = "Persits.MailSender"
  39. ObjTotest(18,1) = "(ASPemail 发信)"
  40. ObjTotest(19,0) = "SMTPsvg.Mailer"
  41. ObjTotest(19,1) = "(ASPmail 发信)"
  42. ObjTotest(20,0) = "DkQmail.Qmail"
  43. ObjTotest(20,1) = "(dkQmail 发信)"
  44. ObjTotest(21,0) = "Geocel.Mailer"
  45. ObjTotest(21,1) = "(Geocel 发信)"
  46. ObjTotest(22,0) = "IISmail.Iismail.1"
  47. ObjTotest(22,1) = "(IISmail 发信)"
  48. ObjTotest(23,0) = "SmtpMail.SmtpMail.1"
  49. ObjTotest(23,1) = "(SmtpMail 发信)"
  51. ObjTotest(24,0) = "SoftArtisans.ImageGen"
  52. ObjTotest(24,1) = "(SA 的图像读写组件)"
  53. ObjTotest(25,0) = "W3Image.Image"
  54. ObjTotest(25,1) = "(Dimac 的图像读写组件)"
  56. public IsObj,VerObj
  58. '检查预查组件支持情况及版本
  60. dim i
  61. for i=0 to 25
  62. on error resume next
  63. IsObj=false
  64. VerObj=""
  65. dim TestObj
  66. set TestObj=server.CreateObject(ObjTotest(i,0))
  67. If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议
  68. IsObj = True
  69. VerObj = TestObj.version
  70. if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
  71. end if
  72. ObjTotest(i,2)=IsObj
  73. ObjTotest(i,3)=VerObj
  74. next
  76. '检查组件是否被支持及组件版本的子程序
  77. sub ObjTest(strObj)
  78. on error resume next
  79. IsObj=false
  80. VerObj=""
  81. dim TestObj
  82. set TestObj=server.CreateObject (strObj)
  83. If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议
  84. IsObj = True
  85. VerObj = TestObj.version
  86. if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
  87. end if
  88. End sub
  89. %>
  90. <HTML>
  91. <HEAD>
  92. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  93. <TITLE>ASP探针V1.51</TITLE>
  94. <style>
  95. <!--
  96. BODY
  97. {
  98. FONT-FAMILY: 宋体;
  99. FONT-SIZE: 9pt
  100. }
  101. TD
  102. {
  103. FONT-SIZE: 9pt
  104. }
  105. A
  106. {
  107. COLOR: #000000;
  108. TEXT-DECORATION: none
  109. }
  110. A:hover
  111. {
  112. COLOR: #000000;
  113. TEXT-DECORATION: underline
  114. }
  115. .input
  116. {
  117. BORDER: #111111 1px solid;
  118. FONT-SIZE: 9pt;
  119. BACKGROUND-color: #ffffff
  120. }
  121. .backs
  122. {
  123. BACKGROUND-COLOR: #6B8FC8;
  124. COLOR: #ffffff;
  126. }
  127. .backq
  128. {
  129. BACKGROUND-COLOR: #E8F1FF
  130. }
  131. .backc
  132. {
  133. BACKGROUND-COLOR: #6B8FC8;
  134. BORDER: medium none;
  135. COLOR: #ffffff;
  136. HEIGHT: 18px;
  137. font-size: 9pt
  138. }
  139. .fonts
  140. {
  141. COLOR: #000000
  142. }
  143. -->
  144. </STYLE>
  145. </HEAD>
  146. <BODY leftmargin="100%">
  147. <font class=fonts>服务器的有关参数</font> 
  148. <table border=0 width="100%" cellspacing=0 cellpadding=0 bgcolor="#3F8805">
  149. <tr><td>
  151. <table width="100%" border=0 cellpadding=0 cellspacing=1 bgcolor="#6B8FC8">
  152.   <tr bgcolor="#E8F1FF" height=18>
  153. <td align=left>&nbsp;服务器名</td><td>&nbsp;<%=Request.ServerVariables("SERVER_NAME")%></td>
  154.   </tr>
  155.   <tr bgcolor="#E8F1FF" height=18>
  156. <td align=left>&nbsp;服务器IP</td><td>&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%></td>
  157.   </tr>
  158.   <tr bgcolor="#E8F1FF" height=18>
  159. <td align=left>&nbsp;服务器端口</td><td>&nbsp;<%=Request.ServerVariables("SERVER_PORT")%></td>
  160.   </tr>
  161.   <tr bgcolor="#E8F1FF" height=18>
  162. <td align=left>&nbsp;服务器时间</td><td>&nbsp;<%=now%></td>
  163.   </tr>
  164.   <tr bgcolor="#E8F1FF" height=18>
  165. <td align=left>&nbsp;IIS版本</td><td>&nbsp;<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
  166.   </tr>
  167.   <tr bgcolor="#E8F1FF" height=18>
  168. <td align=left>&nbsp;脚本超时时间</td><td>&nbsp;<%=Server.ScriptTimeout%> 秒</td>
  169.   </tr>
  170.   <tr bgcolor="#E8F1FF" height=18>
  171. <td align=left>&nbsp;本文件路径</td><td>&nbsp;<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>
  172.   </tr>
  173.   <tr bgcolor="#E8F1FF" height=18>
  174. <td align=left>&nbsp;服务器CPU数量</td><td>&nbsp;<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
  175.   </tr>
  176.   <tr bgcolor="#E8F1FF" height=18>
  177. <td align=left>&nbsp;服务器解译引擎</td><td>&nbsp;<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  178.   </tr>
  179.   <tr bgcolor="#E8F1FF" height=18>
  180. <td align=left>&nbsp;服务器操作系统</td><td>&nbsp;<%=Request.ServerVariables("OS")%></td>
  181.   </tr>
  182. </table>
  184. </td></tr>
  185. </table>
  186. <br>
  187. <font class=fonts>组件支持情况</font>
  188. <%
  189. Dim strClass
  190. strClass = Trim(Request.Form("classname"))
  191. If "" <> strClass then
  192. Response.Write "<br>您指定的组件的检查结果："
  193. ObjTest(strClass)
  194.   If Not IsObj then 
  195. Response.Write "<br><font color=red>很遗憾，该服务器不支持 " & strclass & " 组件！</font>"
  196.   Else
  197. Response.Write "<br><font class=fonts>恭喜！该服务器支持 " & strclass & " 组件。该组件版本是：" & VerObj & "</font>"
  198.   End If
  199.   Response.Write "<br>"
  200. end if
  201. %>
  204. <br>■ IIS自带的ASP组件
  205. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#6B8FC8" width="100%">
  206. <tr height=18 class=backs align=center><td width=320>组 件 名 称</td><td width=130>支持及版本</td></tr>
  207. <%For i=0 to 10%>
  208. <tr height="18" class=backq>
  209. <td align=left>&nbsp;<%=ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1)%></font></td>
  210. <td align=left>&nbsp;<%
  211. If Not ObjTotest(i,2) Then 
  212. Response.Write "<font color=red><b>×</b></font>"
  213. Else
  214. Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
  215. End If%></td>
  216. </tr>
  217. <%next%>
  218. </table>
  220. <br>■ 常见的文件上传和管理组件
  221. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#6B8FC8" width="100%">
  222. <tr height=18 class=backs align=center><td width=320>组 件 名 称</td><td width=130>支持及版本</td></tr>
  223. <%For i=11 to 15%>
  224. <tr height="18" class=backq>
  225. <td align=left>&nbsp;<%=ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1)%></font></td>
  226. <td align=left>&nbsp;<%
  227. If Not ObjTotest(i,2) Then 
  228. Response.Write "<font color=red><b>×</b></font>"
  229. Else
  230. Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
  231. End If%></td>
  232. </tr>
  233. <%next%>
  234. </table>
  236. <br>■ 常见的收发邮件组件
  237. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#6B8FC8" width="100%">
  238. <tr height=18 class=backs align=center><td width=320>组 件 名 称</td><td width=130>支持及版本</td></tr>
  239. <%For i=16 to 23%>
  240. <tr height="18" class=backq>
  241. <td align=left>&nbsp;<%=ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1)%></font></td>
  242. <td align=left>&nbsp;<%
  243. If Not ObjTotest(i,2) Then 
  244. Response.Write "<font color=red><b>×</b></font>"
  245. Else
  246. Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
  247. End If%></td>
  248. </tr>
  249. <%next%>
  250. </table>
  252. <br>■ 图像处理组件
  253. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#6B8FC8" width="100%">
  254. <tr height=18 class=backs align=center><td width=320>组 件 名 称</td><td width=130>支持及版本</td></tr>
  255. <%For i=24 to 25%>
  256. <tr height="18" class=backq>
  257. <td height="39" align=left>&nbsp;<%=ObjTotest(i,0) & "<font color=#888888>&nbsp;" & ObjTotest(i,1)%></font></td>
  258. <td align=left>&nbsp;<%
  259. If Not ObjTotest(i,2) Then 
  260. Response.Write "<font color=red><b>×</b></font>"
  261. Else
  262. Response.Write "<font class=fonts><b>√</b></font> <a title='" & ObjTotest(i,3) & "'>" & left(ObjTotest(i,3),11) & "</a>"
  263. End If%></td>
  264. </tr>
  265. <%next%>
  266. </table>
  268. <br>
  269. <font color="#000000" class=fonts>其他组件支持情况检测</font><br>
  270. 在下面的输入框中输入你要检测的组件的ProgId或ClassId。
  271. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#6B8FC8" width="100%">
  272. <FORM action=<%=Request.ServerVariables("SCRIPT_NAME")%> method=post id=form1 name=form1>
  273. <tr height="18" class=backq>
  274. <td align=center height=30><input class=input type=text value="" name="classname" size=40>
  275. <INPUT type=submit value=" 确 定 " class=backc id=submit1 name=submit1>
  276. <INPUT type=reset value=" 重 填 " class=backc id=reset1 name=reset1> 
  277. </td>
  278.   </tr>
  279. </FORM>
  280. </table>
  281. <br>
  282. <font class=fonts>ASP脚本解释和运算速度测试</font><br>
  283. 我们让服务器执行50万次“1＋1”的计算，记录其所使用的时间。
  284. <table class=backq border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#6B8FC8" width="100%">
  285.   <tr height=18 class=backs align=center> 
  286.     <td width=320>服&nbsp;&nbsp;&nbsp;务&nbsp;&nbsp;&nbsp;器</td>
  287.     <td width=130>完成时间</td>
  288.   </tr></tr>
  289.   <tr height=18> 
  290.     <td align=left>&nbsp;中国频道虚拟主机（2002-08-06 9:29）</td>
  291.     <td>&nbsp;610.9 毫秒</td>
  292.   </tr>
  293.   <tr height=18> 
  294.     <td align=left>&nbsp;西部数码west263主机（2002-08-06 9:29）</td>
  295.     <td>&nbsp;357.8 毫秒</td>
  296.   </tr>
  297.   <tr height=18> 
  298.     <td align=left>&nbsp;商务中国虚拟主机（2002-08-06 9:29）</td>
  299.     <td>&nbsp;353.1 毫秒</td>
  300.   </tr>
  301.   <tr height=18> 
  302.     <td align=left>&nbsp;顶尖科技tonydns主机（2002-10-13 14:19）</td>
  303.     <td>&nbsp;303.2 毫秒</td>
  304.   </tr>
  305.   <form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method=post>
  306.     <%
  308. '感谢网际同学录 http://www.5719.net 推荐使用timer函数
  309. '因为只进行50万次计算，所以去掉了是否检测的选项而直接检测
  311. dim t1,t2,lsabc,thetime
  312. t1=timer
  313. for i=1 to 500000
  314. lsabc= 1 + 1
  315. next
  316. t2=timer
  318. thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10)
  319. %>
  320.     <tr height=18> 
  321.       <td align=left>&nbsp;<font color=red>您正在使用的这台服务器</font>&nbsp;</td>
  322.       <td>&nbsp;<font color=red><%=thetime%> 毫秒</font></td>
  323.     </tr>
  324.   </form>
  325. </table>
  327. <br>
  328. </BODY>
  329. </HTML>