<% '功能:检查是否存在系统组件或组件是否安装成功 '参数:组件名 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.net“服务器应用程序不可用” 解决方法js获取.aspx页面里面的服务器控件和.ascx中的服务器控件值aspx 服务器架设问题解决Asp.net的服务器推技术 (Server Push)Javascript 直接调用服务器C#代码 ASP.NET Ajax实例jquery获取ASP.NET服务器端控件dropdownlist和radiobuttonlist生成客户端HTML标签后的value和text值IIS服务器中 ASP.NET State Service 开启后 Session 仍容易丢失的问题终极解决办法asp在服务器把 XML 转换为 XHTML的实现代码win2008 r2 服务器环境配置(FTP/ASP/ASP.Net/PHP)iis8.5显示ASP的详细错误信息500 内部服务器错误解决方法服务器安全狗导致ASP.NET网站运行出错的一个案例推荐4款傻瓜型的ASP服务器软件（asp运行环境一键搭建工具）asp将本地的文件上传到服务器asp服务器如何搭建
