发邮件的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

%>

时间: 2024-11-10 07:16:06

发邮件的asp(CDONTS.NewMail)的相关文章

发邮件的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&

winform发邮件失败(asp.net中可以成功)

问题描述 由于特殊原因把asp.net上的一段发邮件的代码放到winform中但却报错说未指定Smtp主机这是我的代码有知道马上告诉我,我马上结分MailAddressM_From=newMailAddress("information@ebuyjp.com","information@ebuyjp.com");MailAddressM_To=newMailAddress("Beckham6230@hotmail.com","Beckh

使用asp的jmail组件发邮件

JMail 组件 Dimac 公司的邮件收发组件,这是一个非常成熟和强大的邮件组件.它不但可以完成发邮件的工作,还可以POP收信,并支持收发邮件时的PGP加密,内置一个群发邮件的对象,可以使群发编程更简单. 即使是很多其他组件也都能完成的发邮件功能,JMail 的完成也可以称得上最出色的,除了常见的抄送暗送等多收件人功能外,它还支持添加嵌入式图片附件,并且可以从URL读取文件作为附件. JMail 的免费版本拥有全部完成的发邮件功能,只在收邮件和加密邮件等我们不常用到的方面进行了限制. 免费版下

C#利用CDOSYS组件发邮件的一些小结

发邮件 建立 ASP.NET WEB项目. using System.Web.Mail; 首先看看利用Inter网上的SMTP服务器来发邮件,现在普遍是登陆SMTP需要验证的.这里我们使用的是网易的邮件服务器. private void SendMailBySMTP(){ // 使用一个SMTP的服务器,并且通过验证 MailMessage mailobj = new MailMessage(); mailobj.From = "username@126.com"; mailobj.T

cdo组件发邮件

发邮件 原来用cdonts组件来发邮件,自从服务器用了2003系统以后,发现原来的功能不灵了,页面提示说是创建对象不成功.于是我查了一下IIS的帮助,帮助里面明确的写着在2003系统中,cdonts的组件被删除了,只保留了cdo组件.CDO组件是cdonts的父级组件.但是网上很多地方说是用cdo组件发邮件的例子,其实都是cdonts组件的例子. 下面我来列一下cdo组件的例子set cdomail=server.CreateObject ("CDO.Message") 这个是关键,创

php入门教程-PHP上传文件和发邮件

/* 至于发邮件就更加简单,可以使用mail()函数mail("收件人地址","主题","正文","From:发件人 Reply-to:发件人的地址"); 不过mail()需要服务器的支持,在WINDOWS下还需要配置SMTP服务器,一般来说外面的LINUX空间都行. 好像上传文件和发邮件比ASP简单很多,只要调用函数就可以了.ASP还需要用到服务器的不同组件比如FSO.JMAIL什么的. 下面来看文件上传实例 传文件表单必须

Windows 2003下不注册组件用ASP发邮件

window|发邮件|注册组件 其实ASP可以做很多事,只是大家不知道怎么用而以.微软为asp提供了非常多的现成有用的组件,而这些组件却没有人知道,如用CDO.Message发送邮件. 什么是CDO.Message?在winnt和win2k下发送邮件要用CDONTS.NewMail,CDONTS.NewMail组件是需要注册的,很简单,只要在服务器上运行命令行regsvr32Cdonts.dll,在弹出的对话框中确定即可,使用CDONTS.NewMail服务还需安装有iis自带的smtp.到了w

在win2003上用cdo代替CDONTS发邮件

发邮件|发邮件 Introduction CDONTS was actually replaced by CDO already in Windows 2000 and Windows XP. But these Operating Systems supported CDONTS, and you could use CDONTS. Windows Server 2003 does not support CDONTS, and we are forced to use CDO. This t

ASP实现在提交表单到数据库的同时发邮件通知

发邮件|数据|数据库|提交表单 <%  dim  objCDOMail  Set  objCDOMail  =  Server.CreateObject("CDONTS.NewMail")  objCDOMail.From  ="xxx@hotmail.com"          objCDOMail.To  =xxx@hotmail.com  '接收人的邮箱(将表单内容发邮件到一固定地址)      objCDOMail.Subject  ="邮件