<%
emailflag=1
sub Jmail(email)
Dim JMail,SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=fromEmail
JMail.Subject=topic
JMail.Body=mailbody
JMail.AddRecipient email
JMail.Priority=3
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
sub Cdonts(email)
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =fromEmail
objCDOMail.To =email
objCDOMail.Subject =topic
objCDOMail.Body =mailbody
objCDOMail.Send
Set objCDOMail = Nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
sub aspemail(email)
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
recipient=email
sender=fromEmail
subject=topic
message=mailbody
mailserver=SMTPServer
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
%>
<% if request("action")="sendto" then
'email=request("sendto")
email=trim(request("sendtos "))
if trim(request("Email"))<>"" then
fromemail=request("Email")
else
fromemail="webmaster@twsky.com"
end if
topic="网上客房预定信息"
mailbody="到达日期："&request.form("go_date")&" "
mailbody=mailbody&"离开日期："&request.form("to_date")&" "
mailbody=mailbody&"单间数："&request.form("single")&" "
mailbody=mailbody&"双人间数："&request.form("doubles")&" "
mailbody=mailbody&"套间数："&request.form("taojian")&" "
mailbody=mailbody&"特殊需求："&request.form("tequ")&" "
mailbody=mailbody&"姓名："&request.form("user_name")&" "
mailbody=mailbody&"身份证："&request.form("user_code")&" "
mailbody=mailbody&"E-mail:"&request.form("Email")&" "
mailbody=mailbody&"公司名："&request.form("user_company")&" "
mailbody=mailbody&"地址："&request.form("user_address")&" "
mailbody=mailbody&"城市："&request.form("user_city")&" "
mailbody=mailbody&"州或省："&request.form("user_prov")&" "
mailbody=mailbody&"邮编："&request.form("user_post")&" "
mailbody=mailbody&"国家："&request.form("user_county")&" "
mailbody=mailbody&"电话："&request.form("tel1")&request.form("tel2")&request.form("tel3")&" "
mailbody=mailbody&"传真："&request.form("fax1")&request.form("fax2")&request.form("fax3")&" "
mailbody=mailbody&"信用卡："&request.form("card_sort")&" "
mailbody=mailbody&"卡号："&request.form("v_code")&" "
mailbody=mailbody&"持卡人姓名："&request.form("card_name")&" "
mailbody=mailbody&"失效日期："&request.form("lost_date")&" "
mailbody=mailbody&"预定时间："&formatdatetime(now(),1)&" "
EmailFlag=1
if EmailFlag=0 then%>
