www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_fuly.asp
<!--#include file="conn.asp"--> <!--#include file="ad_chk.asp"--> <!--#include file="../IncAsp/venshop_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("venshop")("admin_class")<>0 and Request.Cookies("venshop")("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 venshop_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 venshop_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" 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 venshop_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"-->