繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 发邮件的asp(CDONTS.NewMail)
- ASP
- ASP技巧：在Access数据库中重命名表
- 用ASP编程实现网络内容快速查找
- 比较ASP生成静态HTML文件的几种方法
- ASP实例：实现邮件发送普通附件和嵌入附件
- 如何用ASP实现去掉三个最高分和三个最低分
- ASP实例：Access为后台数据库的网站统计系统
- 用标签替换的方法生成静态网页
- 例程：用ASP判断文件地址是否有效
- 学ASp动态网页必备：常用的38个函数
- ASP教程：初次接触学习ASP脚本程序
- ASPJPEG水印中关于文字水印的帮助文档(中英文对照)
- ASP例子：ASP把汉字转化为拼音的函数
- ASP教程：学习ASP应用Cookies的技巧
- ASP入门：认识ASP程序所使用的几种脚本语言
- 初学者的ASP教程：常用ASP内置函数
- ASP初级教程之ASP对表单和用户输入的处理
- 学习ASP文件引用的方法
- 用ASP编写更人性化的弹出窗口程序
- 谈谈学习ASP动态网页制作技术的编程心得
- 用ASP程序实现网站在线人数统计
ASP 中的 发邮件的asp(CDONTS.NewMail)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 38 ::
收藏到网摘: 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
%>
评论 (0) All
