Jmail发送邮件实例
今天帮阿文做了个发送邮件的页面.就是在网页中填写表单后发送到指定邮箱.看下面代码.
表单页面我就不贴出来了.下面代码是处理表单数据与发送邮件.

  1. email.asp-处理数据部分
  2. sex = Request.Form("sex") '没有用到任何安全过滤函数.因为是发送到邮箱.
  3. Contact = Request.Form("contact")
  4. Email = Request.Form("email")
  5. Message = Request.Form("message")
  6. Str =  "<div style=""height:22px; font-size:12px;"">Sex:" & sex & "</div>"
  7. Str = Str & "<div style=""height:22px; font-size:12px;"">Contact Number:" & contact & "</div>"
  8. Str = Str & "<div style=""height:22px; font-size:12px;"">Email:" & email & "</div>"
  9. Str = Str & "<div style=""height:22px; font-size:12px; padding:5px 0;"">Message:" & message & "</div>"

  1. email.asp-发送数据到邮箱部分
  2. Set jmail = Server.CreateObject("JMAIL.Message")   '建立发送邮件的对象
  3. jmail.silent = true    '屏蔽例外错误,返回FALSE跟TRUE两值j
  4. jmail.logging = true   '启用邮件日志
  5. jmail.Charset = "utf-8"     '邮件的文字编码为国标
  6. jmail.ContentType = "text/html"    '邮件的格式为HTML格式
  7. jmail.AddRecipient ("******@qq.com")     '邮件收件人的地址
  8. jmail.From = "******@163.com"   '发件人的E-MAIL地址
  9. jmail.MailServerUserName = "******"     '登录邮件服务器所需的用户名
  10. jmail.MailServerPassword = "******"     '登录邮件服务器所需的密码
  11. jmail.Subject ="邮件的标题"    '邮件的标题
  12. jmail.Body = Str      '邮件的内容
  13. jmail.Send("smtp.163.com")     '执行邮件发送(通过邮件服务器地址)
  14. jmail.Close()   '关闭对象

发送完邮件后对这个空白页面怎么处理尼?

  1. 处理发送邮件页面部分
  2. <script type="text/javascript">
  3. alert("发送成功!");
  4. location.href('message.asp') //跳转页面
  5. window.opener=null;window.close(); //关闭页面.怎么处理还是看你自己所要的.
  6. </script>

, , , , ,

Del.icio.us Google书签 Digg Live Bookmark Technorati Furl Yahoo书签 Facebook 百度搜藏 新浪ViVi 365Key网摘 天极网摘 和讯网摘 博拉网 POCO网摘 添加到饭否 QQ书签 Digbuzz我挖网

Leave a reply?