一个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
