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 
%>

上一个：asp通过JMAIL实现通用发送函数
下一个：asp 实现检测字符串是否为纯字母和数字组合的函数