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="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">姓nbsp; 名：/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">性nbsp; 別：/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">年nbsp; 齡：/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>nbsp;/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
%>
