首頁 > 開發者 > ASP

發郵件的asp(CDONTS.NewMail)_應用技巧

來源：互聯網
上載者：User
創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！
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
%>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

相關關鍵詞：
asp or asp net asp to asp net asp net and asp asp language asp tags newline asp substring asp
相關文章
ASP學習總結：錯誤碼
反爬蟲：利用ASP.NET MVC的Filter和緩衝（入坑出坑）
ASP.NET Core 2.0利用MassTransit整合RabbitMQ
實戰中的asp.net core結合Consul叢集&Docker實現服務治理
asp DateDiff實現文字在特定時間後消失
設定和讀取ASP.Net全域變數的方法

聯繫我們

該頁面正文內容均來源於網絡整理，並不代表阿里雲官方的觀點，該頁面所提到的產品和服務也與阿里云無關，如果該頁面內容對您造成了困擾，歡迎寫郵件給我們，收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容，歡迎發送郵件至： info-contact@alibabacloud.com 進行舉報並提供相關證據，工作人員會在 5 個工作天內聯絡您，一經查實，本站將立刻刪除涉嫌侵權內容。

熱門內容

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More