个Asp组件检测需要朋友可以直接拿去用中国自学编程网www.zxbc.cn

\'
\'作  用:检查组件是否已经安装
\'参  数:strClassString ----组件名
\'返回值:True  ----已经安装
\'        False ----没有安装
\'
Function IsObjInstalled(ByVal strClassString)
 Dim xTestObj,ClsString
 On Error Resume Next
 IsObjInstalled = False
 ClsString = strClassString
 Err = 0
 Set xTestObj = Server.CreateObject(ClsString)
 If Err = 0 Then IsObjInstalled = True
 If Err = -2147352567 Then IsObjInstalled = True
 Set xTestObj = Nothing
 Err = 0
 Exit Function
End Function