投诉回复

<% '强制浏览器重新访问服务器下载页面，而不是从缓存读取页面 end if Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" '以下为电子邮件发送代码 action=Trim(Request.QueryString("action")) if action="sendmail" then Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from sendmail" rs.open sql,conn,1,1 if rs("open1")=0 then mailaddress=rs("mailaddress") mailusername=rs("mailusername") mailuserpass=rs("mailuserpass") mailsend=rs("mailsend") '发送邮件 On Error Resume Next '发送推荐邮件 topic=Trim(Request.Form("subject")) mailbody="
" mailbody=mailbody & "投诉回复信息" mailbody=mailbody & "
" mailbody=mailbody & "

" mailbody=mailbody & "
" mailbody=mailbody & Trim(Request.Form("message")) mailbody=mailbody & "

" mailbody=mailbody & "
" mailbody=mailbody & "
" rs.close Set JMail=Server.CreateObject("JMail.Message") JMail.Charset="gb2312" JMail.ContentType = "text/html" jmail.from = mailsend jmail.silent = true jmail.Logging = true jmail.FromName = topic jmail.mailserverusername = mailusername jmail.mailserverpassword = mailuserpass jmail.AddRecipient Trim(Request.Form("email")) jmail.body=mailbody JMail.Subject=topic if not jmail.Send ( mailaddress ) then SendMail="" else SendMail="OK" end if if SendMail="OK" then sendmsg="回复已经发往投诉人的邮箱" else sendmsg="系统出错，推荐信息资料未能发送到投诉人的邮箱!" end if response.write"
" else rs.close response.write"
" end if end if '邮件发送代码完毕 %>

投诉信息回复

收件人 | " alt="email" />
信件标题 | '的回复">
内容 |