一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

asp检测服务安装了什么组件

时间:2008-08-01 编辑:简简单单 来源:一聚教程网


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

热门栏目