ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
ASP在线发E-mail的2个函数(使用JMail和NewMail组件)

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

<%'By Dicky QQ:25941
Function 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:[email protected]]SMTPServerAddress[:Port])】
     'JMail.Send("user:[email protected]")
     SendInfo=JMail.Send(Send_To)

     ' 关闭并清除对象
     JMail.Close()
     Set JMail = Nothing
End 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 If
End Function %>




相关文章

相关软件