一个Asp组件检测函数，需要的朋友可以直接拿去用，　　'================================================
　　'作  用：检查组件是否已经安装
　　'参  数：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