發(fā)郵件的asp(CDONTS.NewMail)
更新時(shí)間：2006年08月25日 00:00:00 作者：
formmail.htm
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>提交表單發(fā)送郵件</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="網(wǎng)上預(yù)定">
<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">聯(lián)系電話：</font> </div></td>
<td width="56%">
<div align=left><font size="2" color="#0000FF">
<input name=聯(lián)系電話>
*</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="請(qǐng)輸入詳細(xì)內(nèi)容">
</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="請(qǐng)輸入詳細(xì)內(nèi)容">
</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="請(qǐng)輸入詳細(xì)內(nèi)容">
</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="請(qǐng)輸入詳細(xì)內(nèi)容">
</font></td>
</tr>
<tr>
<td class="unnamed1"><font color="#0000FF">定導(dǎo)游：</font> </td>
<td><font size="2" color="#0000FF">
<input name=定導(dǎo)游 id="定導(dǎo)游" value="請(qǐng)輸入您想定的導(dǎo)游條件">
</font> </td>
</tr>
<tr>
<td class="unnamed1"><font color="#0000FF">定酒店：</font></td>
<td><font size="2" color="#0000FF">
<input name=定酒店 id="定酒店" value="請(qǐng)輸入詳細(xì)內(nèi)容">
</font></td>
</tr>
<tr>
<td colspan=2>
<div align=center><font size="2" color="#0000FF">
<input name=Submit type=submit value=確認(rèn)>
<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('請(qǐng)用正確的方式發(fā)送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('發(fā)送失敗');window.close();</script>")
else
response.Write("<script language=javascript>alert('發(fā)送成功');window.close();</script>")
end if
%>
復(fù)制代碼 代碼如下:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>提交表單發(fā)送郵件</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="網(wǎng)上預(yù)定">
<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">聯(lián)系電話：</font> </div></td>
<td width="56%">
<div align=left><font size="2" color="#0000FF">
<input name=聯(lián)系電話>
*</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="請(qǐng)輸入詳細(xì)內(nèi)容">
</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="請(qǐng)輸入詳細(xì)內(nèi)容">
</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="請(qǐng)輸入詳細(xì)內(nèi)容">
</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="請(qǐng)輸入詳細(xì)內(nèi)容">
</font></td>
</tr>
<tr>
<td class="unnamed1"><font color="#0000FF">定導(dǎo)游：</font> </td>
<td><font size="2" color="#0000FF">
<input name=定導(dǎo)游 id="定導(dǎo)游" value="請(qǐng)輸入您想定的導(dǎo)游條件">
</font> </td>
</tr>
<tr>
<td class="unnamed1"><font color="#0000FF">定酒店：</font></td>
<td><font size="2" color="#0000FF">
<input name=定酒店 id="定酒店" value="請(qǐng)輸入詳細(xì)內(nèi)容">
</font></td>
</tr>
<tr>
<td colspan=2>
<div align=center><font size="2" color="#0000FF">
<input name=Submit type=submit value=確認(rèn)>
<input name=reset type=reset value=取消>
</font> </div></td>
</tr>
</tbody>
</table>
<p> </p>
</form></td>
</tr>
</table>
</body>
</html>
sendmail.asp
復(fù)制代碼 代碼如下:
<%
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('請(qǐng)用正確的方式發(fā)送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('發(fā)送失敗');window.close();</script>")
else
response.Write("<script language=javascript>alert('發(fā)送成功');window.close();</script>")
end if
%>
相關(guān)文章
在asp中通過(guò)getrows實(shí)現(xiàn)數(shù)據(jù)庫(kù)記錄分頁(yè)的一段代碼
在asp中通過(guò)getrows實(shí)現(xiàn)數(shù)據(jù)庫(kù)記錄分頁(yè)的一段代碼...2006-11-11
asp #include命令...2007-09-09
對(duì)于ASP編碼問(wèn)題的深入研究與最終解決方案
對(duì)于ASP編碼問(wèn)題的深入研究與最終解決方案...2007-05-05
這篇文章主要介紹了Asp中使用JQuery的AJAX提交中文亂碼解決方法,使用Asp中的unescape() 和escape() 函數(shù)即可解決亂碼問(wèn)題,需要的朋友可以參考下2014-07-07
利用ASP從遠(yuǎn)程服務(wù)器上接收XML數(shù)據(jù)的方法
利用ASP從遠(yuǎn)程服務(wù)器上接收XML數(shù)據(jù)的方法...2007-01-01
asp中最新新聞顯示new圖片的實(shí)現(xiàn)代碼
很多朋友想在最新新聞顯示new圖片，以便訪客快速找到新更新的內(nèi)容，原理就是通過(guò)判斷日期2012-03-03
asp類加存儲(chǔ)過(guò)程分頁(yè)方法，查詢使用非常方便 new 一個(gè)類，加幾個(gè)參數(shù)，就可以分頁(yè)顯示、多條件查詢、多個(gè)字段排序等功能、連表查詢等，一氣呵成！2008-12-12
在asp中使用js的encodeURIComponent方法
encodeURIComponent 方法返回一個(gè)已編碼的 URI。如果您將編碼結(jié)果傳遞給 decodeURIComponent，那么將返回初始的字符串2012-03-03
asp下的一個(gè)檢測(cè)鏈接是否正常的函數(shù)
很簡(jiǎn)單的函數(shù)，用來(lái)檢測(cè)網(wǎng)站域名是否能正常訪問(wèn)。2008-07-07
ASP利用Google實(shí)現(xiàn)在線翻譯功能
ASP利用Google實(shí)現(xiàn)在線翻譯功能...2006-09-09