% '****************************** '函數：IsObjInstalled(strClassString) '參數：strClassString,組件對象名 '作者：阿里西西 '日期：2007/7/13 '描述：檢測組件是否安裝 '示例：%=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 %>
