Jmail 组件支持情况ASP检测子程序：

<%
'检测组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
  on error resume next
  IsObj=false
  VerObj=""
  set TestObj=server.CreateObject (strObj)
  If -2147221005 <> Err then
    IsObj = True
    VerObj = TestObj.version
    if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
    Response.Write "支持 "&VerObj
  else
	Response.Write "不支持"
  end if
  set TestObj=nothing
End sub

'调用检测组件实例：
Response.Write "Jmail 组件支持检测："
'call ObjTest("JMail.SmtpMail")
call ObjTest("JMail.Message")
%>

资料参考：

阿江ASP探针

http://www.ajiang.net/products/aspcheck/ 

阿江ASP探针 V1.93完整版本地下载：

http://www.bekda.com/download/code/aspcheck.rar