发邮件的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-12-21 10:38:21

发邮件的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.net c#)_实用技巧

-----------注册页前台 复制代码 代码如下: <%@ Page Language="C#" AutoEventWireup="true" CodeBehind="Registe.aspx.cs" Inherits="CSDN博客.Registe" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" &

asp.net自定义控件回发数据实现方案与代码_实用技巧

在实现asp.net的自定义控件中,若要实现数据的回发或者post数据,那自义控件必须实现IPostBackDataHandler接口, 在该接口中有两个方法一个是LoadPostData,另一个是RaisePostDataChangedEvent.第一个方法用于在回发数据时,填充自定义控件的相关属性,第二个方法用于激发控件相关的事件.也就是说这两个方法,应该是在提交数据的时候进行调用的. 可是,我们在实现自己的控件时,虽然继承了 IPostBackDataHandler,但是在提交数据的时候确

asp实现新评论自动发短信提示的代码_应用技巧

我很想自己写一个这样的程序,不过wordpress是php的,我blog是ASP的,只好用ASP写代码了.经过一番折腾测试,终于让我的梦想变为现实. 程序的流程是这样的,当有人发表评论的时候就会把那条评论发到我手机上,是通过过一个网站的api接口实现信息发送的,其实就是飞信的api.飞信不是可以自己发信息给自己吗?原理其实很简单. 提醒:你手机必须开通飞信功能. 例子: ====A.ASP==== 复制代码 代码如下: <FORM name="form2" action=&quo

用asp实现网址和邮件地址的转换函数_应用技巧

网址和邮件地址的转换函数<% function URLconvert(str)  convertstr=str urlLocation=instr(convertstr,"http://") if (urlLocation=0) and (mailLocation=0) then  URLconvert=convertstr exit function end if if urlLocation<>0 then rightstr=str Do while urlLoc

创建基于ASP.NET的SMTP邮件服务的具体方法_实用技巧

首先,我们创建一个继承命名空间System.Net.Sockets的TcpClient类的类.TcpClient类提供简单的方法用于连接,发送,接收网络的数据流.GetStream方法用于创建一个网络流(NetworkStream).读和写网络流(NetworkStream)的方法用于发送数据给远程主机和从远程主机接收网络流. 复制代码 代码如下: public class ClientConnection : TcpClient{private NetworkStream _NetworkSt

Bat自动解压缩发布asp.net程序_实用技巧

1解压缩压缩包 2替换文件 3停止服务 4重建虚拟目录 5重启服务 @echo 1.Zipexe 好压压缩程序集路径 @echo 2.zipFileName 压缩文件的路径 @echo 3.ylxt 解压缩文件的路径 @echo 3.webconstant 发布目录中不会修改的文件.和文件夹,需要和虚拟目录的目录结构保持一致 @echo 4.PubparentFolder 虚拟目录的父目录 @echo 5.PubFolderName 虚拟目录名 set Zipexe="C:\Program Fi

判断Email地址是否正确的几个函数(asp/php/javascript)_相关技巧

用js判断 复制代码 代码如下: function is_email( str ){ p = /^([\w\.-]+)@([a-zA-Z0-9-]+)(\.[a-zA-Z\.]+)$/; if(str.search(p) == -1){ return false; }else{ return true; } } 用PHP判断 复制代码 代码如下: function is_email($email){ $pattern="/^([\w\.-]+)@([a-zA-Z0-9-]+)(\.[a-zA-Z