<%
dim cls
if session("admin")="" then
Response.Redirect("index.asp?err=4")
else
if session("flag")<>"0" then
cls = Instr(session("flag"), "feedback")
if cls <= 0 then
%>
<%
end if
end if
end if
%>
管理中心——>留言管理
<%
set rs=server.createobject("adodb.recordset")
sql = " select * from feedback where del=false and ID="&request("userid")
rs.open sql,conn,1,3
if err.number<>0 then
response.write "数据库操作失败：" & err.description '错误描述
err.clear
else
'-----------------------------------------使用CDONTS.Newmail发送电子邮件开始-------------------------
'address=rs("usermail")
'object=""&rs("username")&":您在本站的的留言是:"&rs("comments")&"我们的回复如下:"&rs("replay")&""
'set mymail=server.createObject("CDONTS.Newmail")
'mymail.from="web@wxweb.cn"
'mymail.to=address
'mymail.subject="顾客："&rs("username")&"您的留言已经回复!"
'mymail.body=object
'mymail.send
'set mymail=nothing
'----------------------------------------------CDONTS发送邮件结束------------------------------------------
'----------------------------------------------下面是使用JMAIL发送邮件--------------------------------------
dim Subject,Content,Email,Fromer,MailAddress
Subject = ""&rs("username")&"您的留言回复!"
Content = "