CDONTS.NewMail发送邮件完整版

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

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

时间: 2024-09-13 18:38:05

CDONTS.NewMail发送邮件完整版的相关文章

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

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

求完整版的电脑版的商城平台---eclipse可以使用的

问题描述 求完整版的电脑版的商城平台---eclipse可以使用的 20C 直接复制到eclipse里就可以使用的商城平台,不需要太复杂的. 解决方案 http://download.csdn.net/download/surblue/3763533http://download.csdn.net/download/www478347671/5296633http://download.csdn.net/detail/f524089156/2962689 解决方案二: http://www.sh

js分页-java js完整版分页后台

问题描述 java js完整版分页后台 求完整版js分页代码,最好是从action中带参数的用hibernate分页 解决方案 用js插件........

Ajax创建XMLHttpRequest完整版

ajax|request|xml|xmlhttprequest|创建 以下就是创建XMLHttpRequest完整版的代码,希望对大家有用~ function createXMLHttpRequest(){   if(window.ActiveXObject)  {    try {                 xmlHttpRequest = new ActiveXObject("Msxml3.XMLHTTP");        } catch (e) {    try {   

MicrosoftVBscript运行时错误(完整版)共121个

vbscript|错误|vbscript MicrosoftVBscript运行时错误(完整版)共121个 MicrosoftVBscript运行时错误(0x000A0005) 无效的过程调用或参数 MicrosoftVBscript运行时错误(0x000A0005) 无效的过程调用或参数 MicrosoftVBscript运行时错误(0x000A0006) 溢出 MicrosoftVBscript运行时错误(0x000A0007) 内存不够 MicrosoftVBscript运行时错误(0x0

全球IP地址查询完整版

ip地址 全球IP地址查询完整版 突然在某某网站看到IP地址查询,于是心血来潮做了一个.这是用asp查询全球IP地址的程式,由于类似的的用Asp查询IP的速度不是很理想,本人使用的也是宏志宏的IP地址数据库,只是对它进行了改进. 本人在 win98+pws+access2000上测试通过,效果比较理想. 数据库的设计在一个软件中的比例,毫不夸张的说占60%,虽然这是一个小的程式,但也得到一定的体现. 有任何错误或建议请一定要给我发E-mail: ljz811@163.com  ,我也不了解"追捕

多文件上载系统完整版

<?php //多文件上载系统完整版 //功能强大,可任意控制上载文件数,是否覆盖 include("../include/common.inc"); $title = "多个文件的上载程序"; include("../include/header.inc"); //定义允许上载文件的数目 define("UPLOAD_NO", 10); echo("<p align='center'><fo

php多文件上载系统完整版

<?php //多文件上载系统完整版 include("../include/common.inc"); $title = "多个文件的上载程序"; include("../include/header.inc"); //定义允许上载文件的数目 define("UPLOAD_NO", 10); echo("<p align='center'><font size='4' color='#000