当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp代码实现检测组件是否安装的函数

ASP
资料验证的asp.net程序
用ASP、VB和XML建立互联网应用程序(1)
用ASP、VB和XML建立互联网应用程序(2)
用ASP、VB和XML建立互联网应用程序(3)
用ASP、VB和XML建立互联网应用程序(4)
用XSL.ASP编辑XML文档
一个ASP.NET+XML留言本例子
股票报价的WebService之一
股票报价的WebService之二
股票报价的WebService之三
股票报价的WebService之四
股票报价的WebService之五
ASP.NET发送ICQ信息DIY(1)
ASP.NET发送ICQ信息DIY(2)
无组件图文混合上传示例
使用AspImage制作图形(一)
使用AspImage制作图形(二)
一个漂亮的点击计数器
取得服务器上用户组列表脚本之VBS版
取得服务器上用户组列表的脚本之asp版

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 156 ::
收藏到网摘: n/a

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