asp空间如何判断jmail组件已经安装？是否支持呢？

原创于 2009-12-25 11:12:00 发布 · 3.3k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#asp #function #object

ASP 专栏收录该内容

8 篇文章

订阅专栏

本文介绍了如何使用VBScript检查服务器是否支持JMail组件。通过创建JMail实例并使用OnErrorResumeNext来忽略潜在的错误，可以有效地判断JMail是否正确安装。此外，还提供了一个通用函数用于检测其他COM组件的安装情况。

    试验了好久，终于搞定了。
    首先，必须有错误继续进行的声明On Error Resume Next
    然后尝试简历jmail实例：
Dim JMail
    Set JMail=Server.CreateObject("JMail.Message")

    对实例做出判断，如果组件没有安装成功，则没有创建实例：
    If JMail Is Nothing Then
Response.Write "不支持"
Else
Response.Write "支持"
    End If

    其他组件同样处理，非常简单了。
    最好在global文件中处理，里面使用的时候不用那么麻烦了。
    最好的方法把邮件生成放到一个表里，然后再说发送的事情。

    刘全洪   2009年圣诞

Function object_install(strClassString)
On Error Resume Next
object_install=False
Dim xTestObj
Err=0
Set xTestObj=Server.CreateObject(strClassString)
If Err=0 Then object_install=True
Set xTestObj=Nothing
Err=0
End Function