Asp組件檢測函數

 一個Asp組件檢測函數需要的朋友可以直接拿去用中國自學編程網

　　\================================================
\作  用檢查組件是否已經安裝
\參  數strClassString 組件名
\返回值True  已經安裝
\        False 沒有安裝
\================================================
Function IsObjInstalled(ByVal strClassString)
 Dim xTestObjClsString
 On Error Resume Next
 IsObjInstalled = False
 ClsString = strClassString
 Err =
 Set xTestObj = ServerCreateObject(ClsString)
 If Err = Then IsObjInstalled = True
 If Err = Then IsObjInstalled = True
 Set xTestObj = Nothing
 Err =
 Exit Function
End Function 

From:http://tw.wingwit.com/Article/program/net/201311/13265.html