Asp component of a detection function, a friend in need can be taken by China's self-programming network, www.zxbc.cn.
\'================================================
\ ': Check whether the components already installed
\ 'Parameters: strClassString ---- components of
\ 'Return value: True ---- has been installed
\ 'False ---- not installed
\'================================================
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 |
