<% '****************************** '函数：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 %>