判断是否支持创建某组件对象

转载于 2014-02-21 17:09:24 发布 · 607 阅读

Asp 专栏收录该内容

10 篇文章

订阅专栏

本文提供了一段VBScript代码，用于检查服务器环境是否支持ADODB.Recordset组件。通过创建对象并捕获错误来判断组件是否安装成功。

if IsObjInstalled("adodb.recordset") = False then
    response.Write("创建adodb.recordset失败")
    response.End()
Else
	response.Write("创建adodb.recordset成功")
    response.End()
end if

'判断系统是否支持strClassString组件
Function IsObjInstalled(strClassString)
    On Error Resume Next
    IsObjInstalled = False
    Err = 0
    Dim xTestObj
    Set xTestObj = Server.CreateObject(strClassString)
    If Err = 0 Then IsObjInstalled = True
    Set xTestObj = Nothing
    Err = 0
End Function