检测站点是否支持组件

ASP · 2001年第41期

现在有很多支持ASP服务的个人主页空间，但是困惑大家的一点就是如何判断站点是否支持某些服务器组件。其实只需要一段代码就可以解决了，你所做的是只需要把下面这个检测文件上传到你的个人主页站点上，然后运行它就可以了，不用任何附加的组件。
　　#1 检测工具：
　　 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
　　 %>
　　
　　
　　 检测ISP是否支持ASP组件的工具
　　
　　
　　 在下面的输入框中输入你要检测的组件的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主页。