<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<!--#include file="IncAsp/WrzcNethtml_email.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("WrzcNethtml")("admin_class")<>0 and Request.Cookies("WrzcNethtml")("admin_class")<>1 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
if request("action")="addfu" then
fu=request.form("fu")
set rs=server.createobject("adodb.recordset")
sql="select * from WrzcNethtml_comment where id="&request("id")
rs.open sql,conn,1,3
rs("adminfu")=fu
rs("c_c")=1
rs.Update
Comment=rs("Comment")
fu=rs("adminfu")
tomail=rs("mail")
daten=rs("date")
dateid=rs("dateid")
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from WrzcNethtml_hw where hw_id="&dateid&"" ,conn,1,1
hw_name=rs2("hw_name")
rs2.close
set rs2=nothing
mailsubject = "您在"&sitename&"关于"&hw_name&"的咨询回复"
mailbody = "<p>"&tomail&"您好：<p>您在"&sitename&"关于“"&hw_name&"”的咨询管理员已经进行了回复；<p>咨询："&Comment&"；<p>回复："&fu&"；"
mailbody = mailbody&"<p>详情请登录 <a href="&web&"/views.asp?hw_id="&dateid&" target=_blank>"&web&"/views.asp?hw_id="&dateid&"("&hw_name&")</a>查看；"
mailbody = mailbody&"<p>"&sitename&"感谢您的支持"&web
strToEmail=tomail
if E_SendManType=1 then
SendEmail ""&strToEmail&"",""&mailsubject&"",""&mailbody&"","Jmail"
elseif E_SendManType=2 then
SendEmail ""&strToEmail&"",""&mailsubject&"",""&mailbody&"","ObjCDOMail"
elseif E_SendManType=3 then
SendEmail ""&strToEmail&"",""&mailsubject&"",""&mailbody&"","Aspemail"
elseif E_SendManType=4 then
SendEmail ""&strToEmail&"",""&mailsubject&"",""&mailbody&"","Cdom"
end if
rs.close
set rs=nothing


call addok(addt,"ad_fuly.asp?id="&request("id"),"ad_mly.asp")

end if
set rs=server.createobject("adodb.recordset")
sql="select * from WrzcNethtml_comment where id="&request("id") 
rs.open sql,conn,1,1
id=rs("id")
Comment=rs("Comment")
fu=rs("adminfu")
daten=rs("date")
rs.close
set rs=nothing
%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
  <form name="form1" method="post" action="ad_fuly.asp?action=addfu&id=<%=id%>">
  <tr><td align="center" class="s1"> 内容：</td><td class="s1"><%=Comment%></td></tr>
  <tr><td align="center" class="s0"> 时间：</td><td class="s0"><%=daten%></td></tr>
  <tr><td valign="top" align="center" class="s1">回复：</td>
	<td valign="top" class="s1"><textarea rows="15" name="fu" cols="55"><%=fu%></textarea></td></tr>
  <tr align="center"><td colspan="2" class="s0"><input type="submit" name="Submit" value="添加"></td></tr>
  </form>
</table><!--#include file="ad_bottom.asp"-->
