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

    试验了好久，终于搞定了。
    首先，必须有错误继续进行的声明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