<% action=request("action") if action="ok" then '================================================== Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = " itcenter@huanangroup.com " objMail.To = " itcenter@huanangroup.com " '================================================== sendname = trim(Request("sendname")) corp = trim(Request("corp")) tel = trim(Request("tel")) mobile = trim(Request("mobile")) fax = trim(Request("fax")) website = trim(Request("website")) address = trim(Request("address")) email = trim(Request("email")) topic = trim(Request("topic")) abody = trim(Request("abody")) if sendname="" or email="" or topic="" then response.write "请正确填写每一项!返回上一页" response.end end if set jmail= server.CreateObject ("jmail.message") jmail.Silent = true jmail.Charset = "gb2312" JMail.ContentType = "text/html" mailbody=mailbody &"—————————————————————————————————————————" mailbody=mailbody & chr(13) mailbody=mailbody &"姓名:"&sendname&"" mailbody=mailbody & chr(13) mailbody=mailbody &"手机:"&mobile&"" mailbody=mailbody & chr(13) mailbody=mailbody &"Mail:"&email&"" mailbody=mailbody & chr(13) mailbody=mailbody &"公司:"&corp&"" mailbody=mailbody & chr(13) mailbody=mailbody &"电话:"&tel&"" mailbody=mailbody & chr(13) mailbody=mailbody &"传真:"&fax&"" mailbody=mailbody & chr(13) mailbody=mailbody &"地址:"&address&"" mailbody=mailbody & chr(13) mailbody=mailbody &"网址:"&website&"" mailbody=mailbody & chr(13) mailbody=mailbody &"—————————————————————————————————————————" mailbody=mailbody & chr(13) mailbody=mailbody &"主题:"&topic&"" mailbody=mailbody & chr(13) mailbody=mailbody &"具体内容:"&abody&"" mailbody=mailbody & chr(13) mailbody=mailbody &"—————————————————————————————————————————" mailbody=mailbody & chr(13) mailbody=mailbody &"此邮件由华南集团网站在线咨询系统发送，请勿直接回复此邮件！" mailbody=mailbody & chr(13) mailbody=mailbody &"该发件人邮箱为"&email&"" mailbody=mailbody & chr(13) mailbody=mailbody &"如果需要回复，请发邮件至"&email&"。" mailbody=mailbody & chr(13) mailbody=mailbody &"—————————————————————————————————————————" if sendname <> "" and email <> "" then jmail.From = smtpemail jmail.FromName = sendname jmail.ReplyTo = email jmail.Subject = topic jmail.AddRecipient myemail 'jmail.Body = mailbody jmail.MailServerUserName = smtpuser jmail.MailServerPassWord = smtppwd isgo = jmail.Send(smtpserver) if isgo then msg="邮件发送成功！谢谢你的支持。" else msg = "邮件发送失败！请检查您的邮件地址是否正确！" end if 'jmail.Close 'set jmail = nothing objMail.Subject = topic objMail.Body = mailbody objMail.Send Set objMail = Nothing end if end if %> HUANAN Group : 首页 > 咨询合作 <%if msg<>"" then%>
<%=msg%>返回首页 <%else%>


希望您能完整填写以下信息以便我们及时与您联系。

带*号为必填项目
您的姓名： *            您的手机：
您的E-mail： *            联系电话：
公司名称：               公司传真：
地址：               公司网址：
主题(subject)： *
咨询或洽谈内容： *
 
<%end if%>
© 2007 HUANAN Group All Rights Reserved