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

2018-09-06 12:13

阅读:386

  <%
******************************
函数:IsObjInstalled(strClassString)
参数:strClassString,组件对象名
作者:阿里西西
日期:2007/7/13
描述:检测组件是否安装
示例:<%=IsObjInstalled(strClassString)%>
******************************
FunctionIsObjInstalled(strClassString)
OnErrorResumeNext
IsObjInstalled=False
Err=0
DimxTestObj
SetxTestObj=Server.CreateObject(strClassString)
IfErr<>-2147221005ThenIsObjInstalled=TrueElseIsObjInstalled=FalseEndIF
SetxTestObj=Nothing
rr=0
EndFunction
%>


评论


亲,登录后才可以留言!