asp代码实现检测组件是否安装的函数


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



相关阅读:
Linux中安装及卸载RPM软件包
asp中通过getrows实现数据库记录分页的一段代码
网站架设:让IIS支持PHP的配置方法
Windows7稳定性验证
CSS3特效实例:11个CSS3代码特效实例
JavaScript 自动在表格前面增加序号
代码生成器 document.write()
如何给Linux操作系统减肥下
在LINUX平台下写SHELL脚本
javascript 数组
一些很酷的.Net技巧
css 实现文字垂直居中
一个命令行(批处理)延迟执行命令的语法
面向对象的JavaScript(一) — 类及类的继承
快速导航

Copyright © 2016 phpStudy |