<%
　　sub Jmail(email)
　　Dim JMail,SendMail
　　Set JMail=Server.CreateObject("JMail.SMTPMail")
　　JMail.Logging=True
　　JMail.Charset="gb2312"
　　JMail.ContentType = "text/html"
　　JMail.ServerAddress=SMTPServer
　　JMail.Sender=SystemEmail
　　JMail.Subject=topic
　　JMail.Body=mailbody
　　JMail.AddRecipient email
　　JMail.Priority=3
　　JMail.Execute
　　Set JMail=nothing
　　if err then
　　SendMail=err.description
　　err.clear
　　else
　　SendMail="OK"
　　end if
　　end sub

　　sub Cdonts(email)
　　dim　objCDOMail
　　Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
　　objCDOMail.From =SystemEmail
　　objCDOMail.To =email
　　objCDOMail.Subject =topic
　　objCDOMail.Body =mailbody
　　objCDOMail.Send
　　Set objCDOMail = Nothing
　　if err then
　　SendMail=err.description
　　err.clear
　　else
　　SendMail="OK"
　　end if
　　end sub

　　sub aspemail(email)
　　Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")　
　　recipient=email
　　sender=SystemEmail
　　subject=topic
　　message=mailbody
　　mailserver=SMTPServer
　　result=mailer.SendMail(mailserver, recipient, sender, subject, message)
　　if err then
　　SendMail=err.description
　　err.clear
　　else
　　SendMail="OK"
　　end if
　　end sub
　　%>