当前位置: 首页 > 图文教程 > 网络编程 > ASP > 发邮件的asp(CDONTS.NewMail)

ASP
ASP 3.0高级编程（二十七）
ASP 3.0高级编程（二十八）
ASP 3.0高级编程（二十九）
ASP 3.0高级编程（三十）
ASP中时间函数的使用(一)
ASP中时间函数的使用(二)
ASP中时间函数的使用(三)
.NET之ASP WebApplication快速入门(1)
.NET之ASP WebApplication快速入门(2)
.NET之ASP WebApplication快速入门(3)
.NET之ASP WebApplication快速入门(4)
.NET之ASP WebApplication快速入门(5)
asp.NET特写
ASP 3.0高级编程（七）
ASP 3.0高级编程（八）
ASP.NET 入门的五个步骤
ASP 组件指南
XML 数据的编码方式
ASP 3.0高级编程（九）
ASP 3.0高级编程（十）

No. « 147 148 149 150 »

技术文章搜索

关键字

ASP 中的 发邮件的asp(CDONTS.NewMail)

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-13   浏览: 72 ::
收藏到网摘: n/a

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
%>