柠檬铺

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