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