ASP判断dll文件是否已经注册的方法

yibin 2015-02-09 建站源码 530

由于asp的不在更新的原因,asp有许多功能需要通过组件来实现,所以要使用这些组件的时候,需要判断一下这样组件是否已经安装,也就是是否安装了某个dll文件,判断某个组件是否在服务器注册了,asp组件很多,它的判断可以减少很多asp错误,主要是用下面的函数:    <%
    '功能:检查是否存在系统组件或组件是否安装成功
    '参数:组件名
    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
    '获取系统组件的版本号
    Function getver(Classstr)
    On Error Resume Next
    getver=""
    Err = 0
    Dim xTestObj
    Set xTestObj = Server.CreateObject(Classstr)
    If 0 = Err Then getver=xtestobj.version
    Set xTestObj = Nothing
    Err = 0
    End Function
    %>
    调用方法如下:
    <%
    if IsObjInstalled("fso.file") =True then
    response.write("已经安装")&getver("fso.file")
    end if
    %>

扫码添加微信

13013082126 扫描微信 建站咨询 优化咨询