aspASP检查组件是否安装、检查是否存在系统组件或组件是否安装成功

' 判断  ASPJpeg
if IsObjInstalled("Persits.Jpeg") =True then 
   response.write("已安装") 
else
   response.write("未安装") 
end if 


'功能:检查是否存在系统组件或组件是否安装成功 
'参数:组件名 
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