管理资源吧首页>>>教程>>>编程>>>ASP教程>>>

发邮件的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="[email protected]">

　　<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

　　%>

教程首页 更多教程