<% 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%>