首页 网页制作网络编程脚本专栏数据库网站运营网络安全平面设计CMS教程

发邮件的asp(CDONTS.NewMail)

所属分类： 网络编程 / ASP编程 阅读数： 462
收藏 0 赞 0 分享
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">姓&nbsp; 名：</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">性&nbsp; 别：</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">年&nbsp; 龄：</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>&nbsp;</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
%>
更多精彩内容其他人还在看

asp知识整理笔记4（问答模式）

这是关于asp知识整理的最后一份笔记，希望大家仔细阅读。
收藏 0 赞 0 分享

ASP基础知识VBScript基本元素讲解

这篇文章主要介绍了ASP基础知识VBScript基本元素的相关资料，需要的朋友可以参考下
收藏 0 赞 0 分享

ASP编码和解码函数详解

这篇文章主要介绍了ASP编码和解码函数的相关资料，需要的朋友可以参考下
收藏 0 赞 0 分享

ASP显示页面执行时间的方法

这篇文章主要介绍了ASP显示页面执行时间的方法，在本地测试一下输出页面需要多少时间，需要的朋友可以参考下
收藏 0 赞 0 分享

ASP基础入门第一篇(ASP技术简介)

本文将以 Active Server Pages 为中心，向你全面展示制作动态商业网站的步骤和技巧并通过大量的实例，让你在不断的理论和实践之中笑傲“网络”……
收藏 0 赞 0 分享

ASP基础入门第二篇(ASP基础知识)

这篇文章是ASP基础入门第二篇，第一篇展示了ASP动态网站设计的一些最基本的方法，相信通过实践各位对 ASP 已经有了最基本的了解，本文将进一步介绍ASP动态网站的一些基本技巧，需要的朋友可以参考下
收藏 0 赞 0 分享

ASP基础入门第三篇(ASP脚本基础)

通过前两篇的学习，相信各位已经对 ASP 的动态网站设计有了一个基本的概念和整体的印象。从本篇开始作者将从脚本语言的使用着手，由浅入深地带领大家探索 ASP 动态网站设计的真正奥秘。
收藏 0 赞 0 分享

ASP基础入门第四篇(脚本变量、函数、过程和条件语句)

大家在学习了脚本语言 VBScript 的变量、常量和过程的基本概念后，本期将继续向各位介绍 VBScript 的函数和语法。
收藏 0 赞 0 分享

ASP基础入门第五篇（ASP脚本循环语句）

在本文上两篇中，我们学习了脚本语言 VBScript 的变量、函数、过程和条件语句，本篇将继续给大家介绍 VBScipt 的循环语句，并对脚本语言在 ASP 中的应用加以总结。 　
收藏 0 赞 0 分享

ASP基础入门第六篇（ASP内建对象Request）

从本篇开始作者从 ASP 内建对象着手，为大家详细剖析 ASP 的六个内建对象和各种组件的特性和方法，需要的朋友可以参考下
收藏 0 赞 0 分享
查看更多

网络赚钱

更多

站长故事

更多
建站极客
合作伙伴
在线工具
建站极客移动版
聚合全网技术文章，根据你的阅读喜好进行个性推荐
© 2012 - 2020 www.zhanzhang360.cn Some Rights Reserved.
沪ICP备13040166号-22