asp代码实现检测组件是否安装的函数
当前位置:点晴教程→知识管理交流
→『 技术文档交流 』
<%
'****************************** '函数:IsObjInstalled(strClassString) '参数: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 编辑过 |
关键字查询
相关文章
正在查询... |