asp 检测服务器所安装组件
来源:网络 作者:佚名 点击:
次时间:2017-08-23 21:46
[摘要] 指引教程为您提供asp 检测服务器所安装组件等资源，欢迎您收藏本站，我们将为您提供最新的asp 检测服务器所安装组件资源
|
asp 检测服务器所安装组件 <script>ec(2);</script>
'***************************************************
'函数名：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
|
------分隔线----------------------------
