龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > web编程 > asp编程 >

ASP判断dll文件是否已经注册的简单函数

时间:2012-12-31 22:56来源:未知 作者:admin 点击:
分享到:
asp判断服务器是否安装了某个组件,也就是是否安装了某个dll文件,判断某个组件是否在服务器注册了,asp组件很多,它的判断可以减少很多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
%>


精彩图集

赞助商链接