Public Function SendJmail(Email,Topic,MailBody,GB_ip,sys_mailbox)
  Dim JMail
  Set JMail = Server.CreateObject("JMail.SMTPMail")
  JMail.LazySend          = true
  JMail.silent            = true
  JMail.Charset           = "gb2312"
  JMail.ContentType       = "text/html"
  JMail.Sender            = sys_mailbox '
  JMail.ReplyTo           = sys_mailbox '
  JMail.SenderName        = Cfg.webName
  JMail.Subject           = Topic
  JMail.SimpleLayout      = true
  JMail.Body              = MailBody
  JMail.Priority          = 1
  JMail.AddRecipient Email
  JMail.AddHeader "Originating-IP",GB_ip
  If JMail.Execute() = false Then
   SendJmail = 0
  Else
   SendJmail = 1
  End If
  JMail.Close
  Set JMail = Nothing
 End Function
 '使用方法
 SendJmail("111cn@111cn.net","aa","内容","127.0.0.1","aa")
 %>