现在的位置: 网页制作教程网站制作经验 >正文
服务器问题和教程

如何检测服务器是否支持Jmail组件

发表于2017/1/15 网站制作经验 0条评论 ⁄ 热度 1,493℃

假如我们的网站要发送邮件,那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")
%>
  • 暂无评论