
<%
sub Jmail1(email,bt,nr)
on error resume next
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Charset = "gb2312"
JMail.ContentType = "text/html"
JMail.Sender = adminmail
JMail.SenderName = my_name
JMail.Subject = bt
JMail.MailServerUserName = ""&mailb&"" '身份验证的用户名
JMail.MailServerPassword = ""&mailc&"" ' 身份验证的密码
JMail.Priority = 1
JMail.AddRecipient(""&email&"")
MailBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>BODY {FONT-SIZE: 9pt}</style></head><body>"
MailBody = MailBody & nr
MailBody = MailBody & "</body></html>"
JMail.Body = MailBody
JMail.silent = true
JMail.Execute
JMail.Close
Set JMail = Nothing
end Sub
Function usernamm()
set rssystem = conn.execute("select * from admin")
If  rssystem.eof then response.redirect "/setup.asp"
adminname=rssystem("adminname")
administrator=rssystem("administrator")
administrators=rssystem("administrators")
pin=rssystem("pin")
updatetime=rssystem("updatetime")
rssystem.close:Set rssystem=Nothing
pin2=md5("9903B30EE7933")
If pin<>pin2 Then Response.redirect "/"
End Function
'smtp发信调用方法smtp email,bt,nr
sub smtp(email,bt,nr)
    Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
    With objMail
    .From = adminmail       '邮件发件人的地址     
    .To = email            '邮件收件人的地址
    .Subject =bt           '邮件的标题
    .Body =nr              '邮件的内容
    .MailFormat=0
    .BodyFormat=0
    .Send                  '执行邮件发送
     End With
    Set objMail = Nothing  '关闭对象
end sub
%>

