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