asp代码实现检测组件是否安装的函数
2018-09-06 12:13
阅读：569
<%
******************************
函数：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
%>
评论
亲，登录后才可以留言！