检测个人主页站点是否支持组件的ASP工具

　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　
　　　　　　　　　　　　



　　　　　　　　　　　　一个很有用的ASP代码---检测个人主页提供站点是否支持组件
现在有很多支持ASP服务的个人主页提供站点，但是困惑大家的一点就是
我怎么才能够知道该站点是否支持某些很有用的组件是否安装，例如一些发邮件
的组件jmail,cdo,或则检测是否支持RDS，是否支持Index Server等等，真的很
有用耶。
你所做的是只需要把下面这个检测文件上传到你的个人主页站点上，然后运行
它就可以了，呵呵，很简单的，不用任何附加的组件哦。
检测工具：
CheckObj.asp代码如下：
<% @ Language="VBScript" %>
<% Option Explicit %>
<%
' 这是一些随IIS4附带的一些组件（默认的）
Dim theInstalledObjects(8)
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"
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
%>





在下面的输入框中输入你要检测的组件的ProgId或则ClassId.
如果你没有输入的话，将使用默认值。

method=post>

<%
Dim strClass
strClass = Trim(Request.Form("classname"))
If "" <> strClass then
Response.Write strClass & " "
If Not IsObjInstalled(strClass) then
Response.Write "没有安装，本主页提供站点不支持这个组件"
Else
Response.Write "安装了，本主页提供站点支持使用这个组件!"
End If
Response.Write "

" & vbCrLf
Else
%>

<%
Dim i
For i=0 to UBound(theInstalledObjects)
Response.Write "" & vbCrLf
Next
%>

" & theInstalledObjects(i) & "

" If Not IsObjInstalled(theInstalledObjects(i)) Then Response.Write "没有安装，本主页提供站点不支持这个组件" Else Response.Write "安装了，本主页提供站点支持使用这个组件!" End If Response.Write "

<%
End If
%>


我提供这个工具是希望大家把自己的主页越办越好，能够充分利用
你的个人主页站点提供给你的组件做出技术水平更高的ASP主页出来。
好运。