检测ISP是否支持ASP组件的代码

时间：2022-06-30 11:12:59 编辑：袖梨来源：一聚教程网

<%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</a>组件的工具
　　
　　
　　在下面的输入框中输入你要检测的组件的ProgId或则ClassId.
　　如果你没有输入的话，将使用默认值。
　　
　　<%
　　Dim strClass
　　strClass = Trim(Request.Form("classname"))
　　If "" <> strClass then
　　　Response.Write strClass & "　"
　　　If Not IsObjInstalled(strClass) then
　　　　Response.Write "本主页提供站点不支持这个组件"
　　　Else

推荐专题

最新下载

热门教程

检测ISP是否支持ASP组件的代码

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程