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

热门教程

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

时间:2022-07-02 23:13:57 编辑:袖梨 来源:一聚教程网


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

热门栏目