asp中判断服务器是否安装了某种组件的函数
时间:2011-02-16 10:53:00
判断服务器是否安装了某种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
%>
标签:服务器,组件
0
投稿
猜你喜欢
Mootools 1.2教程(8)——输入过滤第一部分(数字)
2008-11-27 13:01:00
Oracle 的入门心得 强烈推荐
2009-05-24 19:55:00
YUI Compressor快速使用指南
2011-06-27 20:07:30
一个导航的前端实现
2008-11-13 12:41:00
asp中获取当前月份距离以前某个时间的月份数
2012-11-30 20:29:40
br玩转清除浮动
2007-05-11 16:52:00
Oracle In和exists not in和not exists的比较分析
2009-08-27 10:07:00
ASP+FSO+框架实现ASP生成htm并分页的方法(批量)
2009-03-09 18:26:00
xhtml+css VS div+css
2008-04-07 13:00:00
第一类工厂与哈希对象
2009-12-28 13:14:00
javascript面向对象编程(二)
2008-03-07 12:59:00
delete from 表名与truncate table 表名区别
2012-11-30 20:31:37
怎样处理 MySQL中与文件许可有关的问题
2008-11-27 16:12:00
sql如何删除数据库中数据记录
2008-10-09 12:31:00
怎样在MySQL数据库中导出整个数据库
2008-12-31 15:13:00
mysql数据库你需要特别注意的23个事项
2010-08-08 08:34:00
网站中视觉元素的设计
2008-04-27 20:47:00
CSS样式设计技巧十则
2008-06-04 12:18:00
一个网页设计师的成长经历
2008-05-27 12:38:00
oracle命令行删除与创建用户的代码
2009-03-02 10:54:00