ASP判斷dll文件是否已經注冊的方法

由於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 
%>