阳湖工具-专业生产电动工具

<%@ Language = VBScript %> <% action=request("action") if action="ok" then '================================================== ' 参数设置开始，请修改相应参数 smtpserver = "smtp.tom.com" '发送邮件所使用的SMTP服务器，例如smtp.163.com，请修改 smtpuser = "yanghutools" '与SMTP服务器对应的邮箱用户名，请修改 smtppwd = "www12345" '与SMTP服务器对应的邮箱密码，请修改 '如果SMTP服务器需要发信认证，则设置登录SMTP服务器的用户名和密码 '与相应SMTP服务器对应的邮件地址 '注意：很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地 '址，比如163.com的SMTP服务器在检查发信人邮件地址是不是以163.com '结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的 smtpemail = "yanghutools@tom.com" 'SMTP服务器发信邮箱，请修改 myemail="cz_yanghu@126.com" '用来接收邮件的邮箱，请修改,可以与SMTP服务器发信邮箱不同 ' 参数设置结束 '================================================== sendname = trim(Request("name")) '发件人名字 email = trim(Request("email")) '发件人邮箱 topic = trim(Request("topic")) body = trim(Request("body")) tel = trim(Request("tel")) fax = trim(Request("fax")) add = trim(Request("add")) lname = trim(Request("lname")) zip = trim(Request("zip")) top = trim(Request("top")) mailbody=mailbody &"" mailbody=mailbody &"

" mailbody=mailbody &"您好!我是"&sendname&"

" mailbody=mailbody &"联系人:"&lname&"

" mailbody=mailbody &"地址:"&add&"

" mailbody=mailbody &"邮编:"&zip&"

" mailbody=mailbody &"电话:"&tel&"

" mailbody=mailbody &"传真:"&fax&"

" mailbody=mailbody &"留言内容:"&body&"

" mailbody=mailbody &"*************************************************************************************" mailbody=mailbody &"
该邮件的发件人为"&sendname&" 发件人邮箱为"&email&"
" mailbody=mailbody &"如果需要回复，请发邮件至"&email&"，切记！" mailbody=mailbody &"*************************************************************************************" mailbody=mailbody &"

" if sendname <> "" and email <> "" then set jmail= server.CreateObject ("jmail.message") jmail.Silent = true jmail.Charset = "gb2312" JMail.ContentType = "text/html" 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 end if end if %> 阳湖工具-专业生产电动工具

首页 > 客户留言

公司名称：
E-mail：
标题：
联系人：
地址：
邮编：
电话：
传真：
留言内容：