发邮件的asp(CDONTS.NewMail)

宇彤宇博我的宝

宇彤宇博我的宝

2016-02-19 09:40

今天图老师小编要跟大家分享发邮件的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" style="text-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=leftfont size="2" color="#0000FF"姓  名:/font /div/td
              td width="56%"
                div align=leftfont size="2" color="#0000FF"
                  input name=姓名
              /font /div/td
            /tr
            tr
              td width="44%"
                div align=leftfont size="2" color="#0000FF"性  别:/font /div/td
              td width="56%"
                div align=leftfont 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=leftfont size="2" color="#0000FF"年  龄:/font /div/td
              td width="56%"
                div align=leftfont size="2" color="#0000FF"
                  input name=年龄
                  */font /div/td
            /tr
            tr
              td width="44%"
                div align=leftfont size="2" color="#0000FF"联系电话:/font /div/td
              td width="56%"
                div align=leftfont size="2" color="#0000FF"
                  input name=联系电话
                  */font /div/td
            /tr
            tr
              td width="44%"
                div align=leftfont 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="请输入详细内容"
              /fontfont color="#0000FF" /font/td
            /tr
            tr
              td width="44%"
                div align=leftfont size="2" color="#0000FF"定餐:/font /div/td
              td width="56%"
                div align=leftfont 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
              tdfont size="2" color="#0000FF"
                input name=定导游 id="定导游" value="请输入您想定的导游条件"
              /font /td
            /tr
            tr
              td class="unnamed1"font color="#0000FF"定酒店:/font/td
              tdfont size="2" color="#0000FF"
                input name=定酒店 id="定酒店" value="请输入详细内容"
              /font/td
            /tr
            tr
              td colspan=2
                div style="text-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=javascriptalert('请用正确的方式发送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=javascriptalert('发送失败');window.close();/script")
  else
    response.Write("script language=javascriptalert('发送成功');window.close();/script")
  end if
%
展开更多 50%)
分享

猜你喜欢

发邮件的asp(CDONTS.NewMail)

Web开发
发邮件的asp(CDONTS.NewMail)

如何用MAPI和CDONTS来发邮件

电脑网络
如何用MAPI和CDONTS来发邮件

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

利用CDONTS发送邮件的ASP函数

ASP
利用CDONTS发送邮件的ASP函数

实现ASP文件在线发邮件

ASP
实现ASP文件在线发邮件

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

简单快捷实现ASP在线发邮件

ASP
简单快捷实现ASP在线发邮件

简单快捷实现ASP在线发邮件功能

ASP
简单快捷实现ASP在线发邮件功能

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

一个jdbc 测试程序代码

一个jdbc 测试程序代码

java tapestry5 布局 参数的处理

java tapestry5 布局 参数的处理
下拉加载更多内容 ↓