ASP判断dll文件是否已经注册的简单函数
主要是用下面的函数:
<table width="620" align="center" border="0" cellpadding="1" cellspacing="1" style="background:#FB7"> <tr> <td width="464" height="27" bgcolor="#FFE7CE"> 代码如下</td> <td width="109" align="center" bgcolor="#FFE7CE" style="cursor:pointer;" onclick="doCopy('copy6079')">复制代码</td> </tr> <tr> <td height="auto" colspan="2" valign="top" bgcolor="#FFFFFF" style="padding:10px;" class="copyclass" id=copy6079><%'功能:检查是否存在系统组件或组件是否安装成功
'参数:组件名
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
%>
您可能感兴趣的文章:
ASP判断dll文件是否已经注册的简单函数
判断用户是否注册
file_exists与is_file、is_dir的区别
php怎么开启ssl?开启ssl的方法
ASP判断图片的格式
php file_exists is_file与is_dir函数的区别分析
如何实现VB和VC的联合调试
c#判断数据库服务器是否启动
Windows下解决php_curl扩展模块无法加载的处理方法
python27.dll错误代码126怎么解决