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

　　推荐阅读

　　asp 下产生任意位数随机密码的代码

<% '****************************** '函数：MakePassword(byval maxlen) '参数：maxlen，要生成的密码位数长度 '作者：阿里西西 '日期：2007/7/12 '描述：产生任意位数随机密码 '示例：<%=MakePassword(8)%> '**>>>详细阅读

本文标题：asp代码实现检测组件是否安装的函数

地址：http://www.17bianji.com/kaifa2/ASP/32492.html

 1/2    1