发邮件的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 %>

　　推荐阅读

　　用ASP+XML打造留言本

用ASP+XML打造留言本一、读者指引读者指引帮助你掌握本文的梗概。以免你看了大半才明白这编文章不适合你，给你造成视觉污染。如果你正在用ASP+XML写一些程序，或者你正在学XML那就值得一看。阅读本文须具备的>>>详细阅读

本文标题：发邮件的asp(CDONTS.NewMail)

地址：http://www.17bianji.com/kaifa2/ASP/33169.html

1/2 1