<%
'******************************
'函數(shù)：IsObjInstalled(strClassString)
'參數(shù)：strClassString,組件對象名
'描述：檢測組件是否安裝
'示例：<%=IsObjInstalled(strClassString)%>
'******************************
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
'Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err<>-2147221005 Then IsObjInstalled = True Else IsObjInstalled = False End IF
Set xTestObj = Nothing
'rr = 0
End Function
%>

該文章在 2011/2/16 11:17:33 編輯過