asp 检测服务器所安装组件
asp 检测服务器所安装组件 asp 检测服务器所安装组件 '*************************************************** '函数名：IsObjInstalled '作 用：检查组件是否已经安装 '参 数：strClassString ----组件名 '返回值
asp 检测服务器所安装组件
asp 检测服务器所安装组件
'***************************************************
'函数名：IsObjInstalled
'作 用：检查组件是否已经安装
'参 数：strClassString ----组件名
'返回值：True ----已经安装
' False ----没有安装
'***************************************************
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
- 上一篇：asp 获取地址栏参数代码
- 下一篇：asp 在线调查系统
精彩图集