开发程序的时候，有时需要判断服务器上是否支持某组件，比如伪静态组件url rewrite,万维景盛工程师与您分享怎样通过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("urlRewrite") =True then 
response.write("已经安装")&getver("urlRewrite") 
end if 
%>