<%@ Language="VBScript" %> <% Option Explicit %> <% Dim theInstalledObjects(17) theInstalledObjects(0) = "MSWC.AdRotator" theInstalledObjects(1) = "MSWC.BrowserType" theInstalledObjects(2) = "MSWC.NextLink" theInstalledObjects(3) = "MSWC.Tools" theInstalledObjects(4) = "MSWC.Status" theInstalledObjects(5) = "MSWC.Counters" theInstalledObjects(6) = "IISSample.ContentRotator" theInstalledObjects(7) = "IISSample.PageCounter" theInstalledObjects(8) = "MSWC.PermissionChecker" theInstalledObjects(9) = "Scripting.FileSystemObject" theInstalledObjects(10) = "adodb.connection" theInstalledObjects(11) = "SoftArtisans.FileUp" theInstalledObjects(12) = "SoftArtisans.FileManager" theInstalledObjects(13) = "JMail.SMTPMail" theInstalledObjects(14) = "CDONTS.NewMail" theInstalledObjects(15) = "Persits.MailSender" theInstalledObjects(16) = "LyfUpload.UploadFile" theInstalledObjects(17) = "Persits.Upload" '检查组件是否被支持 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function '检查组件版本 Function getver(Classstr) On Error Resume Next getver="" Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(Classstr) If 0 = Err Then getver=xtestobj.version Set xTestObj = Nothing Err = 0 End Function %> 阿江改写的ASP探针-V1.3

是否支持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 "
您指定的组件的检查结果：" If Not IsObjInstalled(strClass) then Response.Write "
很遗憾，该服务器不支持" & strclass & "组件！" Else Response.Write "
恭喜！该服务器支持" & strclass & "组件。该组件版本是：" & getver(strclass) & "" End If Response.Write "
" end if %>
■ IIS自带的ASP组件

<% dim i For i=0 to 10 Response.Write "" If Not IsObjInstalled(theInstalledObjects(i)) Then Response.Write "" Else Response.Write "" End If Response.Write "" & vbCrLf Next %> 组 件 名 称 支持及版本  " & theInstalledObjects(i) & " " select case i case 9 Response.Write "(FSO 文本文件读写)" case 10 Response.Write "(ACCESS 数据库)" end select Response.Write "  ×  √ " & getver(theInstalledObjects(i)) & "

■ 常见的其他组件

<% For i=11 to UBound(theInstalledObjects) Response.Write "" If Not IsObjInstalled(theInstalledObjects(i)) Then Response.Write "" Else Response.Write "" End If ' if i = 13 and IsObjInstalled(theInstalledObjects(13)) then ' dim jmail ' Set JMail = Server.CreateObject("JMail.smtpmail") ' Response.Write "" ' end if Response.Write "" & vbCrLf Next %> 组 件 名 称 支持及版本  " & theInstalledObjects(i) & " " select case i case 11 Response.Write "(SA-FileUp 文件上传)" case 12 Response.Write "(SA-FM 文件管理)" case 13 Response.Write "(JMail 邮件发送)" case 14 Response.Write "(CDONTS 邮件发送 SMTP Service)" case 15 Response.Write "(ASPEmail 邮件发送)" case 16 Response.Write "(LyfUpload 文件上传)" case 17 Response.Write "(ASPUpload 文件上传)" end select Response.Write "  ×  √ " & getver(theInstalledObjects(i)) & " 　　w3 JMail 是 Dimac 公司（www.dimac.net）推出的ASP发信组件，可以在ASP、VC、VB、Delphi等开发工具中调用。和其他发信组件相比，它具有支持HTML、多收件人、抄送、暗送等特点，4.0以上版本还支持SMTP发信认证、群发、POP3收信等。 　　目前安装的JMail组件版本是：" & jmail.Version & "

其他组件支持情况检测
在下面的输入框中输入你要检测的组件的ProgId或ClassId。

method=post id=form1 name=form1>

ASP脚本解释和运算速度测试
我们让服务器执行500万次“1＋1”的计算，记录其所使用的时间。

" method=post> <% if Request.Form("test") <> "" then dim t1,t2,lsabc,thetime t1=now for i=1 to 5000000 lsabc= 1 + 1 next t2=now thetime=cstr(int(cdbl((t2-t1)*24*60*60)+0.5)) %> <%else%> <%end if%> 服   务   器 完成时间  阿江的电脑（256M雷鸟900）  3 秒  中国频道虚拟主机www82（10月20日15:10）  6 秒  我看看中文网主机（10月20日15:14）  4 秒  westwebmaster.com免费空间（12月11日16:38）  4 秒  您正在使用的这台服务器   <%=thetime%> 秒  您正在使用的这台服务器

欢迎访问 【阿江守候】 http://www.ajiang.net 本程序由阿江(zjyfc@263.net)编写，转载时请保留这些信息