<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005－2009 佛山市动易网络科技有限公司 版权所有 '************************************************************** Const NeedCheckComeUrl = True '是否需要检查外部访问 Const PurviewLevel = 1 '0--不检查，1--超级管理员，2--普通管理员 Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员 Const PurviewLevel_Others = "" '其他权限 Dim ObjTotest(26, 4) ObjTotest(0, 0) = "MSWC.AdRotator" ObjTotest(1, 0) = "MSWC.BrowserType" ObjTotest(2, 0) = "MSWC.NextLink" ObjTotest(3, 0) = "MSWC.Tools" ObjTotest(4, 0) = "MSWC.Status" ObjTotest(5, 0) = "MSWC.Counters" ObjTotest(6, 0) = "IISSample.ContentRotator" ObjTotest(7, 0) = "IISSample.PageCounter" ObjTotest(8, 0) = "MSWC.PermissionChecker" ObjTotest(9, 0) = "Scripting.FileSystemObject" ObjTotest(9, 1) = "(FSO 文本文件读写)" ObjTotest(10, 0) = "adodb.connection" ObjTotest(10, 1) = "(ADO 数据对象)" ObjTotest(11, 0) = "SoftArtisans.FileUp" ObjTotest(11, 1) = "(SA-FileUp 文件上传)" ObjTotest(12, 0) = "SoftArtisans.FileManager" ObjTotest(12, 1) = "(SoftArtisans 文件管理)" ObjTotest(13, 0) = "LyfUpload.UploadFile" ObjTotest(13, 1) = "(刘云峰的文件上传组件)" ObjTotest(14, 0) = "Persits.Upload.1" ObjTotest(14, 1) = "(ASPUpload 文件上传)" ObjTotest(15, 0) = "w3.upload" ObjTotest(15, 1) = "(Dimac 文件上传)" ObjTotest(16, 0) = "JMail.SmtpMail" ObjTotest(16, 1) = "(Dimac JMail 邮件收发) 中文手册下载" ObjTotest(17, 0) = "CDONTS.NewMail" ObjTotest(17, 1) = "(虚拟 SMTP 发信)" ObjTotest(18, 0) = "Persits.MailSender" ObjTotest(18, 1) = "(ASPemail 发信)" ObjTotest(19, 0) = "SMTPsvg.Mailer" ObjTotest(19, 1) = "(ASPmail 发信)" ObjTotest(20, 0) = "DkQmail.Qmail" ObjTotest(20, 1) = "(dkQmail 发信)" ObjTotest(21, 0) = "Geocel.Mailer" ObjTotest(21, 1) = "(Geocel 发信)" ObjTotest(22, 0) = "IISmail.Iismail.1" ObjTotest(22, 1) = "(IISmail 发信)" ObjTotest(23, 0) = "SmtpMail.SmtpMail.1" ObjTotest(23, 1) = "(SmtpMail 发信)" ObjTotest(24, 0) = "SoftArtisans.ImageGen" ObjTotest(24, 1) = "(SA 的图像读写组件)" ObjTotest(25, 0) = "W3Image.Image" ObjTotest(25, 1) = "(Dimac 的图像读写组件)" Public IsObj, VerObj '检查预查组件支持情况及版本 Dim i For i = 0 To 25 On Error Resume Next IsObj = False VerObj = "" Dim TestObj Set TestObj = server.CreateObject(ObjTotest(i, 0)) If -2147221005 <> Err Then '感谢网友iAmFisher的宝贵建议 IsObj = True VerObj = TestObj.version If VerObj = "" Or IsNull(VerObj) Then VerObj = TestObj.about End If ObjTotest(i, 2) = IsObj ObjTotest(i, 3) = VerObj Next '检查组件是否被支持及组件版本的子程序 Sub ObjTest(strObj) On Error Resume Next IsObj = False VerObj = "" Dim TestObj Set TestObj = server.CreateObject(strObj) If -2147221005 <> Err Then '感谢网友iAmFisher的宝贵建议 IsObj = True VerObj = TestObj.version If VerObj = "" Or IsNull(VerObj) Then VerObj = TestObj.about End If End Sub %> 服务器信息
<%=AdminName%>您好，今天是
您现在进行的是查看服务器信息

<%=SiteName%>----服务器信息
特别感谢【阿江守候】提供此探针程序！
是否支持ASP
出现以下情况即表示您的空间不支持ASP：
1、访问本文件时提示下载。
2、访问本文件时看到类似“<%@ Language="VBScript" %>”的文字。

服务器的有关参数
 服务器名  <%=Request.ServerVariables("SERVER_NAME")%>
 服务器IP  <%=Request.ServerVariables("LOCAL_ADDR")%>
 服务器端口  <%=Request.ServerVariables("SERVER_PORT")%>
 服务器时间  <%=now%>
 IIS版本  <%=Request.ServerVariables("SERVER_SOFTWARE")%>
 脚本超时时间  <%=Server.ScriptTimeout%> 秒
 本文件路径  <%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
 服务器CPU数量  <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个
 服务器解译引擎  <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
 服务器操作系统  <%=Request.ServerVariables("OS")%>

组件支持情况 <% Dim strClass strClass = Trim(Request.Form("classname")) If "" <> strClass Then Response.Write "
您指定的组件的检查结果：" ObjTest (strClass) If Not IsObj Then Response.Write "
很遗憾，该服务器不支持 " & strClass & " 组件！" Else Response.Write "
恭喜！该服务器支持 " & strClass & " 组件。该组件版本是：" & VerObj & "" End If Response.Write "
" End If %> <%For i=0 to 10%> <%next%>
IIS自带的ASP组件
 <%=ObjTotest(i,0) & " " & ObjTotest(i,1)%>  <% If Not ObjTotest(i, 2) Then Response.Write "×" Else Response.Write "√ " & Left(ObjTotest(i, 3), 11) & "" End If%>

<%For i=11 to 15%> <%next%>
常见的文件上传和管理组件
 <%=ObjTotest(i,0) & " " & ObjTotest(i,1)%>  <% If Not ObjTotest(i, 2) Then Response.Write "×" Else Response.Write "√ " & Left(ObjTotest(i, 3), 11) & "" End If%>

<%For i=16 to 23%> <%next%>
常见的收发邮件组件
 <%=ObjTotest(i,0) & " " & ObjTotest(i,1)%>  <% If Not ObjTotest(i, 2) Then Response.Write "×" Else Response.Write "√ " & Left(ObjTotest(i, 3), 11) & "" End If%>

<%For i=24 to 25%> <%next%>
图像处理组件
 <%=ObjTotest(i,0) & " " & ObjTotest(i,1)%>  <% If Not ObjTotest(i, 2) Then Response.Write "×" Else Response.Write "√ " & Left(ObjTotest(i, 3), 11) & "" End If%>

其他组件支持情况检测
在下面的输入框中输入你要检测的组件的ProgId或ClassId? method=post id=form1 name=form1>
 

ASP脚本解释和运算速度测试
我们让服务器执行50万次“1＋1”的计算，记录其所使用的时间。 " method=post> <% '感谢网际同学录 http://www.5719.net 推荐使用timer函数 '因为只进行50万次计算，所以去掉了是否检测的选项而直接检测 Dim t1, t2, lsabc, thetime t1 = Timer For i = 1 To 500000 lsabc = 1 + 1 Next t2 = Timer thetime = CStr(Int(((t2 - t1) * 10000) + 0.5) / 10) %>
服   务   器 完成时间
 中国频道虚拟主机（2002-08-06 9:29） 610.9 毫秒
 西部数码west263主机（2002-08-06 9:29） 357.8 毫秒
 商务中国虚拟主机（2002-08-06 9:29） 353.1 毫秒
 顶尖科技tonydns主机（2002-10-13 14:19） 303.2 毫秒
 您正在使用的这台服务器  <%=thetime%> 毫秒

【返回管理首页】