• 主网站
    • 网站案例
    • 域名主机
    • 网站建设
    • 网站推广
    • 系统开发
    • 设计文章
    • 联系我们
    • 网站制作教程
    • ASP+CSS实现网页随机背景
    • 文字在网页上面的应用
    • 用CSS实现无图片圆角效果
    • 什么样是合理的网页设计
    • CSS样式表的优化与技巧
    • CSS样式表的命名规范
    • XHTML代码的基本应用
    • 内容自动添加到指定的JS
    • 一组常用的弹出窗口
    • 查看网站更新的代码
    • JS刷新页面
    • 突破IIS6上传文件尺寸限制
    • 批量处理数据库
    • 用ASP判断Email地址
    • 新闻内容分页
    • ASP邮件发送程序
    • 网页防盗代码
    • ASP时间代码
    • 开始→运行→命令集锦!
    • 会员登陆的检测代码
    • Win2003的远程桌面连接端口
    • 更改apache的默认页
    • 网站制作中常用的CSS
    • DOC下常见的端口
    • xp下安装sql2000企业版
    • Thumbs.db文件是什么
    • msn随outlook启动
    • js调用ASP程序
    • 常用的JS代码!
    • 在网站制作中flash背景透明
    • 如何制作网站??
    • 限制数据库文件大小的方法
    • MYSQL中对数据库的操作
    • 保护邮件地址防垃圾有巧招
    • 解决MSSQL占用过多内存
    • ASP邮件发送程序 -- (网站制作教程)

    •     以XML样式显示

      <%
      dim xingming,sex,san,renshu,mudidi,tianshu,feiyong,tel,email

      xingming=request("name")
      sex=request("sex")
      san=request("san")
      rensh=request("rensh")
      shouru=request("shouru")
      mudidi=request("mudidi")
      tianshu=request("tianshu")
      feiyong=request("feiyong")
      tel=request("tel")
      email=request("email")

      %>
      <%


      On error resume next
      Dim JMail, contentId
      Set JMail = Server.CreateObject("JMail.Message")
      JMail.Charset = "gb2312" ' 邮件字符集,默认为"US-ASCII"
      ' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码,默认为True

      ' 发送者信息(可用变量方式赋值)
      JMail.From = "njbxhome@163.com" ' 发送者地址
      JMail.FromName = "第三方旅游" ' 发送者姓名
      JMail.Subject = "订单来啦!" ' 邮件主题

      ' 身份验证
      JMail.MailServerUserName = "njbxhome" ' 身份验证的用户名
      JMail.MailServerPassword = "huajian" ' 身份验证的密码

      ' 设置优先级,范围从1到5,越大的优先级越高,3为普通
      JMail.Priority = 3

      JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

      ' 加入一个收件人【变量email:收件人地址】可以同一语句重复加入多个
      JMail.AddRecipient(""&request("youjian")&"")

      ' 加入附件【变量filename:附件文件的地址,确保用户IUSR_机器名有访问的权限】
      ' 【参数设置是(True)否(False)为Inline方式】
      'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)

      ' 邮件主体(HTML(注意信件内链接附件的方式))
      JMail.HTMLBody = "需求人姓名:"&xingming&"<br>性别:"&sex&"<br>团体/散客:"&san&"<br>人数:"&renshu&"<br>目的地:"&mudidi&"<br>天数:"&tianshu&"<br>费用:"&feiyong&"<br>联系电话:"&tel&"<br>电子邮箱:"&email&"<BR>"

      ' 邮件主体(文本部分)
      JMail.Body = "见HTML"

      ' 发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】
      JMail.Send("smtp.163.com")

      ' 关闭并清除对象
      JMail.Close()
      Set JMail = Nothing

      if err.number<>0 then
       Response.write "<script>alert('邮件发送失败!');</script>"
      Response.write "<script>history.go(-1);</script>"
      else
       Response.write "<script>alert('恭喜!邮件发送成功!');</script>"
      Response.write "<script>history.go(-1);</script>"
      end if
      %>

      <%else
      Response.write "<script>alert('资料填写不全!');</script>"
      Response.write "<script>history.go(-1);</script>"
      %>

      <%end if%>