当前位置：首页 -> 技术开发 -> ASP专区 -> ASP在线发E-mail的2个函数

ASP在线发E-mail的2个函数

时间： 2021-07-31 作者：daque

<%'by dicky qq:25941function jmail(send_from,send_to,send_subject,send_body)'挪用jmail组件'发送e-mail因变量'參數：'send_from-發送者邮箱'send_to-接收者邮箱'send_subject-郵件主題'send_body-郵件实质 dim jmail set jmail = server.createobject("jmail.message")

jmail.charset = "gb2312" ' 邮件字符集，默许为"us-ascii" ' jmail.isoencodeheaders = false ' 能否举行iso源代码，默许为true

' 发送者消息（可用变量办法赋值） jmail.from = send_from ' 发送者邮箱 jmail.fromname = "处置员" ' 发送者全名 jmail.subject = send_subject ' 邮件中心

' 身份考证 'jmail.mailserverusername = "user" ' 身份考证的用户名 'jmail.mailserverpassword = "password" ' 身份考证的暗号

' 树立优先级，范畴从1到5，越大的优先级越高，3为普遍 jmail.priority = 3

jmail.addheader "originating-ip", request.servervariables("remote_addr")

' 介入一个收件人【变量send_from：收件人地方】不妨同一语句反复介入多个 jmail.addrecipient(send_from) ' 邮件主体（html(提防函件内链接附属类小部件的办法)） jmail.htmlbody = ubbcode(send_body) jmail.body = htmldecode(ubbcode(send_body))

' 发送【挪用方法：objjmail.send([username:password@]smtpserveraddress[:port])】 'jmail.send("user:password@smtp.21cn.com") sendinfo=jmail.send(send_to)

' 封闭并废除东西 jmail.close() set jmail = nothingend function

function send_mail(send_from,send_to,send_subject,send_body) '挪用windows自带newmail组件'发送e-mail因变量'參數：'send_from-發送者邮箱'send_to-接收者邮箱'send_subject-郵件主題'send_body-郵件实质 dim mailobject set mailobject = server.createobject("cdonts.newmail") mailobject.bodyformat = 0 mailobject.mailformat = 0 mailobject.from = send_from mailobject.to = send_to mailobject.subject = send_subject mailobject.body = send_body mailobject.send() set mailobject = nothing

if err then response.write "<script language=javascript>alert('error:"& err.number & err.description &"對不起，郵件發送失敗！：（');</script>" else response.write "<script language=javascript>alert('祝贺，郵件發送胜利！^_^');</script>" end ifend function %>

ASP在线发E-mail的2个函数

相关推荐

推荐下载

热门阅览

最新排行