发邮件的asp(CDONTS.NewMail)

【 tulaoshi.com - Web开发 】

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
%