<%@ Language = VBScript %> <% action=request("action") if action="ok" then '================================================== ' 参数设置开始，请修改相应参数 smtpserver = "127.0.0.1" '发送邮件所使用的SMTP服务器，例如smtp.163.com，请修改 smtpuser = "11" '与SMTP服务器对应的邮箱用户名，请修改 smtppwd = "11" '与SMTP服务器对应的邮箱密码，请修改 '如果SMTP服务器需要发信认证，则设置登录SMTP服务器的用户名和密码 '与相应SMTP服务器对应的邮件地址 '注意：很多SMTP服务器除了要验证用户名和密码外，还要验证发件人地 '址，比如163.com的SMTP服务器在检查发信人邮件地址是不是以163.com '结尾，否则不予发送，因此，使用相应的信箱做为发信人信箱是必要的 smtpemail = "11@127.0.0.1" 'SMTP服务器发信邮箱，请修改 myemail="sales@sjl.com.cn" '用来接收邮件的邮箱，请修改,可以与SMTP服务器发信邮箱不同 ' 参数设置结束 '================================================== sendname = trim(Request("name")) '发件人名字 email = trim(Request("email")) '发件人邮箱 topic = trim(Request("topic")) body = trim(Request("body")) if sendname="" or email="" or topic="" or body="" then response.write "请填写每一项!返回上一页" response.end end if mailbody=mailbody &"" mailbody=mailbody &"

" mailbody=mailbody &"您好!我是"&sendname&"，寻价公司：：："&topic&"

" mailbody=mailbody &"寻价内容是：：：：： "&body&"

" mailbody=mailbody &"*************************************************************************************" 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="

信息发送成功，我们会尽快和您联系，或请您直接联系我们021-51087903。

" else msg = "

信息发送失败，请您直接联系我们021-51087903。

" end if jmail.Close set jmail = nothing end if end if %>

<%if msg<>"" then%>
<%=msg%> <%else%> <%end if%>