|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的jmail|mail组件|函数|在线<%ByDickyQQ:25941
FunctionJMail(Send_From,Send_To,Send_Subject,Send_Body)
挪用JMail组件
发送E-mail函数
担
Send_From-l送者信箱
Send_To-承受者信箱
Send_Subject-]件主}
Send_Body-]件内容
DimJMail
SetJMail=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()
SetJMail=Nothing
EndFunction
FunctionSend_Mail(Send_From,Send_To,Send_Subject,Send_Body)
挪用Windows自带NewMail组件
发送E-mail函数
担
Send_From-l送者信箱
Send_To-承受者信箱
Send_Subject-]件主}
Send_Body-]件内容
DimmailObject
SetmailObject=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()
SetmailObject=Nothing
IfErrThen
Response.Write"<scriptlanguage=javascript>alert(Error:"&Err.Number&Err.Description&"Σ黄穑]件l送掉。。海);</script>"
Else
Response.Write"<scriptlanguage=javascript>alert(祝贺,]件l送乐成!^_^);</script>"
EndIf
EndFunction%>
</p>国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了 |
|