发邮件的asp(CDONTS.NewMail)

formmail.htm


代码如下:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>提交表单发送邮件</title>
</head>

<body>
<table width="97%" border="1" cellspacing="5" cellpadding="1" align="center" bgcolor="#EEFFF4" height="630">
  <tr>
    <td height="440">
      <form action="sendMail.asp" target="_blank" method=post>
        <input name="mailTo" type=hidden value="dayechg@163.com">
        <input name="title" type="hidden" id="title" value="网上预定">
        <table border=0 cellpadding=9 cellspacing=0 
                                width="100%">
          <tbody>
            <tr>
              <td width="44%">
                <div align=left><font size="2" color="#0000FF">姓  名：</font> </div></td>
              <td width="56%">
                <div align=left><font size="2" color="#0000FF">
                  <input name=姓名>
              </font> </div></td>
            </tr>
            <tr>
              <td width="44%">
                <div align=left><font size="2" color="#0000FF">性  别：</font> </div></td>
              <td width="56%">
                <div align=left><font size="2" color="#0000FF">男
                      <input CHECKED 
                                name=性别 type=radio value=男>
                  女
                  <input name=性别 
                                type=radio value=女>
              </font> </div></td>
            </tr>
            <tr>
              <td width="44%">
                <div align=left><font size="2" color="#0000FF">年  龄：</font> </div></td>
              <td width="56%">
                <div align=left><font size="2" color="#0000FF">
                  <input name=年龄>
                  *</font> </div></td>
            </tr>
            <tr>
              <td width="44%">
                <div align=left><font size="2" color="#0000FF">联系电话：</font> </div></td>
              <td width="56%">
                <div align=left><font size="2" color="#0000FF">
                  <input name=联系电话>
                  *</font> </div></td>
            </tr>
            <tr>
              <td width="44%">
                <div align=left><font size="2" color="#0000FF" class="unnamed1">E-mail：</font> </div></td>
              <td width="56%">
                <div align=left>
                  <p class="unnamed1"><font size="2" color="#0000FF">
                    <input name=Email>
                    * </font> </p>
              </div></td>
            </tr>
            <tr>
              <td width="44%"><font size="2" color="#0000FF">定票 ：</font></td>
              <td width="56%"> <font size="2" color="#0000FF">
                <input name=定票 id="定票" value="请输入详细内容">
              </font><font color="#0000FF"> </font></td>
            </tr>
            <tr>
              <td width="44%">
                <div align=left><font size="2" color="#0000FF">定餐：</font> </div></td>
              <td width="56%">
                <div align=left><font size="2" color="#0000FF">
                  <input name=定餐 id="定餐" value="请输入详细内容">
              </font> </div></td>
            </tr>
            <tr>
              <td width="44%" class="unnamed1"><font color="#0000FF">定交通工具：</font></td>
              <td width="56%"><font size="2" color="#0000FF">
                <input name=定交通工具 id="定交通工具" value="请输入详细内容">
              </font></td>
            </tr>
            <tr>
              <td width="44%" class="unnamed1"><font color="#0000FF">定房：</font></td>
              <td width="56%"><font size="2" color="#0000FF">
                <input name=定房 id="定房" value="请输入详细内容">
              </font></td>
            </tr>
            <tr>
              <td class="unnamed1"><font color="#0000FF">定导游：</font> </td>
              <td><font size="2" color="#0000FF">
                <input name=定导游 id="定导游" value="请输入您想定的导游条件">
              </font> </td>
            </tr>
            <tr>
              <td class="unnamed1"><font color="#0000FF">定酒店：</font></td>
              <td><font size="2" color="#0000FF">
                <input name=定酒店 id="定酒店" value="请输入详细内容">
              </font></td>
            </tr>
            <tr>
              <td colspan=2>
                <div align=center><font size="2" color="#0000FF">
                  <input name=Submit type=submit value=确认>
                  <input name=reset type=reset value=取消>
              </font> </div></td>
            </tr>
          </tbody>
        </table>
        <p> </p>
    </form></td>
  </tr>
</table>
</body>
</html>

sendmail.asp


代码如下:

<%
  function SendMail(mailTo,mailFrom,title,content)
'    on error resume next
    dim objCDOMail
    Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
    With objCDOMail
      .From =mailFrom
      .To =mailTo
      .Subject =title
      .Body =content
      .BodyFormat =0
      .MailFormat =0
      .Send
    End With
    Set objCDOMail = Nothing
    if err then
      SendMail=False
      err.Clear
    else
      SendMail=True
    end if
  end function

if request.Form<>"" then
      mailTo=trim(Request.form("mailTo"))
      mailForm=trim(Request.form("email"))
      title=trim(Request.form("title"))
      content=""
      for each mailKey in Request.form
        content=content&"<br>" & mailKey & "：" & trim(Request.form(mailKey))
      next
  elseif request.QueryString<>"" then
      mailTo=trim(Request.QueryString("mailTo"))
      mailForm=trim(Request.QueryString("email"))
      title=trim(Request.QueryString("title"))
      content=""
      for each mailKey in Request.QueryString
        content=content&"<br>" & mailKey & "：" & trim(Request.QueryString(mailKey))
      next
  else
    response.Write("<script language=javascript>alert('请用正确的方式发送Email');window.close();</script>")
    response.end
  end if
'  response.Write(content)
'  response.End()
  pdSendMail=SendMail(mailTo,mailForm,title,content)
  if not pdSendMail then
    response.Write("<script language=javascript>alert('发送失败');window.close();</script>")
  else
    response.Write("<script language=javascript>alert('发送成功');window.close();</script>")
  end if
%>

赞 (0)

相关推荐

  • 发邮件的asp(CDONTS.NewMail)

    formmail.htm 复制代码 代码如下: <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>提交表单发送邮件</title> </head> <body> <table width="97%" border="1&

  • asp jmail发邮件 详细解析第1/2页

    发个个比较详细的asp与jmail 实现发送邮件的代码,前一段时间有发过一个简单的JMAIL邮件发邮件的代码,今天就把这个代码做一个具体的注解,并增加了另外两个格式的代码,并举几个简单的例子: 首先是jmail.smtpmail的核心代码:   复制代码 代码如下: <%   Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象   jmail.silent = true 'JMAIL不会抛出例外错误,返回的

  • asp.net发邮件的几种方法汇总

    MailMessage提供属性和方法来创建一个邮件消息对象.通常可以先构建好MailMessage对象,然后设置它的属性的方式来构建邮件程序. 常用的属性:From -- 发送邮件的地址To -- 接受邮件的地址Subject -- 邮件的标题Priority -- 邮件的优先级(有效值为High,Low,Normal)Attachments -- 返回一个集合,代表附件Bcc -- 密送地址Cc -- 抄送地址Body -- 获取或是设置电子邮件消息的内容BodyFormat -- 获取或是设

  • Jmail发邮件的例子

    在Asp程序中用Jmail发邮件的比较多,主要是因为多数虚拟主机支持他,其它的支持的较少. 下面是一个Jmail发邮件的例子代码:  如果您在自己的机器上试,请下载 Jmail.dll ,下载解压后,双击Setup.bat 即可完成安装!  复制代码 代码如下: <% On error resume next Dim JMail, contentId Set JMail = Server.CreateObject("JMail.Message")  JMail.Charset =

  • PHP模拟登陆163邮箱发邮件及获取通讯录列表的方法

    本文实例讲述了PHP模拟登陆163邮箱发邮件及获取通讯录列表的方法.分享给大家供大家参考.具体实现方法如下: 复制代码 代码如下: <?php     header("Content-Type: text/html; charset=UTF-8");     error_reporting(0);     /**      * 登陆      * $user 163用户名      * $pass 密码     **/     function login($user,$pass

  • 功能强大的PHP发邮件类

    本文示例为大家分享了强大的PHP发邮件类,供大家参考,具体内容如下 <?php class smtp { var $smtp_port; var $time_out; var $host_name; var $log_file; var $relay_host; var $debug; var $auth; var $user; var $pass; var $sock; function smtp($relay_host = "", $smtp_port = 25,$auth

  • CodeIgniter基于Email类发邮件的方法

    CodeIgniter基于Email类发邮件的方法

    本文实例讲述了CodeIgniter基于Email类发邮件的方法.分享给大家供大家参考,具体如下: CodeIgniter拥有功能强大的Email类.以下为利用其发送邮件的代码. 关于CI的Email类的详情请参考:http://codeigniter.org.cn/user_guide/libraries/email.html 文件路径为/application/controllers/welcome.php <?php if ( ! defined('BASEPATH')) exit('No

  • PHP使用pear自带的mail类库发邮件的方法

    本文实例讲述了PHP使用pear自带的mail类库发邮件的方法.分享给大家供大家参考.具体如下: 这里用pear自带的mail类库发邮件,可以用pear install 命令来安装对应的库 body = "<a href='http://www.baidu.com/' target='_blank'>点我重新生成密码</a>"; sendMail_smtp("xxxxxxxx@qq.com",'测试',$body); function sen

  • Python自动发邮件脚本

    Python自动发邮件脚本

    缘起 这段时间给朋友搞了个群发邮件的脚本,为了防止进入垃圾邮件,做了很多工作,刚搞完,垃圾邮件进入率50%,觉得还不错,如果要将垃圾邮件的进入率再调低,估计就要花钱买主机了,想想也就算了,先发一个月,看看效果再拓展吧. 脚本主要是通过Python写的,调的smtplib库,这些是基础,大家在网上一搜一大堆,今天主要给大家讲解下如何避免进入垃圾邮件系统,以及整个系统搭建时的一些思想.可能刚搞Python不久,有很多可能是错误的写法望大家提出来哈~ 配置 CentOS7.0系统 Python 3.4

  • Python实现向QQ群成员自动发邮件的方法

    本文实例讲述了Python实现向QQ群成员自动发邮件的方法.分享给大家供大家参考.具体实现方法如下: 原理: 我们需要先获取QQ群中的所有成员并保存到一个txt文本中去,然后再由python读取文件然后进行批量邮件发送了,具体解决方案如下: 1. 获取QQ群成员QQ号码,QQ群成员信息可以在如下网页中获取,选择全部成员保存在txt中即可 http://qun.qzone.qq.com/group#!/123456/member (这里的123456为QQ群号码) 2. 解析获取的QQ群成员列表l

随机推荐