那位高手指导一下，JEMAIL 怎么使用？？谢谢，下面是JEMAIL代码
<%
'-----------------------------------
'---   EMAIL邮件处理类模块
'---   Copyright   (c)   2004   Aspsky,   Inc.
'---   Mail:   Sunwin@artbbs.net       http://www.aspsky.net
'---   2004-12-18
'-----------------------------------
'---   设置项
'-----------------------------------
'---   ServerLoginName 设置您的邮件服务器登录名
'---   ServerLoginPass 设置登录密码
'---   SendSMTP 设置SMTP邮件服务器地址
'---   SendFromEmail 设置发件人的E-MAIL地址
'---   SendFromName 设置发送人名称
'---   ContentType 设置邮件类型   默认：text/html
'---   CharsetType 设置编码类型   默认：gb2312
'---   SendObject 设置选取组件   1=Jmail,2=Cdonts,3=Aspemail
'-----------------------------------
'---   属性
'-----------------------------------
'---   SendMail   Email,   Topic,   MailBody 收件人地址，标题，邮件内容
'-----------------------------------
'---   获取信息
'-----------------------------------
'---   ErrCode 信息编号   0=正常
'---   Description 相应操作信息
'---   Count 发送邮件数
'-----------------------------------

Class   Wt_SendMail
Public   Count,ErrCode,ErrMsg
Private   LoginName,LoginPass,SMTP,FromEmail,FromName,Object,Content_Type,Charset_Type
Private   Obj,cdoConfig

Private   Sub   Class_Initialize()
Object   =   0
Count   =   0
ErrCode   =   0
Content_Type   =   "text/html "
Charset_Type   =   "gb2312 "
End   Sub

Private   Sub   Class_Terminate()
If   Isobject(Obj)   Then
Set   Obj   =   Nothing
End   If
If   IsObject(cdoConfig)   Then
Set   cdoConfig   =   Nothing
End   If
End   Sub

'设置您的邮件服务器登录名
Public   Property   Let   ServerLoginName(Byval   Value)
LoginName   =   Value
End   Property

'设置登录密码
Public   Property   Let   ServerLoginPass(Byval   Value)
LoginPass   =   Value
End   Property
'设置SMTP邮件服务器地址
Public   Property   Let   SendSMTP(Byval   Value)
SMTP   =   Value
End   Property
'设置发件人的E-MAIL地址
Public   Property   Let   SendFromEmail(Byval   Value)
FromEmail   =   Value
End   Property
'设置发送人名称
Public   Property   Let   SendFromName(Byval   Value)
FromName   =   Value
End   Property
'设置邮件类型
Public   Property   Let   ContentType(Byval   Value)
Content_Type   =   Value
End   Property
'设置编码类型
Public   Property   Let   CharsetType(Byval   Value)
Charset_Type   =   Cstr(Value)
End   Property
'获取错误信息
Public   Property   Get   Description()
Description   =   ErrMsg
End   Property
'设置选取组件   SendObject   0=Jmail,1=Cdonts,2=Aspemail
Public   Property   Let   SendObject(Byval   Value)