北京:    东京:    伦敦:    芝加哥:
<% if request("email")<>"" then dim user,messget,class1,add,mail,phone,sex,readme,name user=request("user") class1=request("class") add=request ("address") mail=request ("email") phone=request ("phone") sex=request ("sex") readme=request("readme") name=request ("name") messget="此为客户在网站提交的邮件
"&" 客户邮箱: "&mail&"
邮件类型: "&class1&"
客户姓名: "&name&"
客户联系电话: "&phone&"
客户性别: "&sex&"
邮件内容:
"&readme Set msg = Server.CreateObject("JMail.Message") msg.silent = true msg.Logging = true msg.Charset = "gb2312" msg.ContentType ="text/html" msg.MailServerUserName = "webmaster@hnjjhs.com" msg.MailServerPassword = "hnjjhswl" msg.from = "webmaster@hnjjhs.com" msg.ReplyTo = mail msg.AddRecipient "807451898@qq.com" msg.Subject ="公司网站反馈邮件: 类型("&class1&" )"'set the subject line msg.Body =messget msg.Send ("mail.hnjjhs.com") Set msg = Nothing 'then de %> <%else%>
总 经 理 信 箱




你的邮件类型:* 您的姓名:
您的电子信箱:* 您的电话:
您的邮件正文:* 【请填写在下面方框内】 用户性别: 先生 女士


 
("*"为必填项) <%end if%>