asp 检测服务器是否安装组件

set objjpeg = server.createobject("persits.jpeg")
  if err then
   set objjpeg = nothing
   message = "组件 persits.jpeg 没有安装！"
   exit sub
  end if
  
message = ""
set objfso = server.createobject("scripting.filesystemobject")
if err then
 set objfso = nothing
 message = "组件 scripting.filesystemobject 没有安装！"
 exit sub
end if