假如我们的网站要发送邮件，那jmail组件无疑是最佳的选择。可并不是所有服务器都支持jmail组件，如果不支持，我们就需要安装该组件。
那如何检测服务器是否支持Jmail组件？我们可以用下面的方法检测。
<%
'检测组件是否被支持及组件版本的子程序
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")
%>
声明:如需转载，请注明来源于www.webym.net并保留原文链接：http://www.webym.net/jiaocheng/567.html
