<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
if qx14<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_guestshop where id="&request("id"),conn,3,2
if request("action")<>"save" then
%>
<html>
<head>
<title>网软志成在线购物系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<SCRIPT language=JavaScript>

function CheckInput(){

	if(form.reply.value==''){
		alert("回复内容不能为空！");
		form.reply.focus();
		return false;
	}
	if(form.reply.value.length>500){
		alert("回复内容不能超过500个字符！");
		form.reply.focus();
		return false;
	}
	
	return true;
}
</SCRIPT>
<link href="../css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {
	color: #000000;
	font-weight: bold;
}
.style21 {color: #FF0000}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
}
-->
</style>
</head>

<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="1%" height="28">&nbsp;</td>
    <td width="99%"><table width="100%" border="0" cellspacing="0" cellpadding="5">
      <tr>
        <td width="77%" height="27" style="font-size:14px;color:#ffffff">&nbsp;<strong><font color="#000000">网软志成购物后台管理系统 &gt;&gt; 系统管理 &gt;&gt; 留言回复 </font></strong></td>
        <td width="23%" style="font-size:14px;color:#ffffff"><span class="style21">* 为必添项目</span></td>
      </tr>
    </table></td>
  </tr>
</table>
<form action="web_guestbook_reply.asp?action=save&id=<%=request("id")%>" method="post" name="form" id="form">
  <table  width="95%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#999999" class=log_titlewidth="100%">
    <tr> 
      <td height="25" bgcolor="#cccccc">&nbsp; &nbsp;回复 <font color="<%=flzhzt%>"><%=rs("name")%></font> 
        <%if rs("sex")="boy" then%>
        先生 
        <%else%>
        小姐 
        <%end if%>
      留言：</td>
    </tr>
    <tr> 
      <td height="25" bgcolor="#F3F3F3"> 
        <%
Function unHtml(content)
	ON ERROR RESUME NEXT
	unHtml=content
	IF content <> "" Then
		unHtml=Server.HTMLEncode(unHtml)
		unHtml=Replace(unHtml,vbcrlf,"<br>")
		unHtml=Replace(unHtml,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;")
		unHtml=Replace(unHtml," ","&nbsp;")
	End IF
	IF Err.Number <>0 Then
		unHtml= "HTML转换中出错请联系管理员<br>"
		Err.Clear
	End IF
End Function
%>
      &nbsp;&nbsp;&nbsp;<font color="#FF0000"><%=unHtml(rs("content"))%></font></td>
    </tr>
    <tr> 
      <td height="25" bgcolor="#F3F3F3"><strong>&nbsp;&nbsp;&nbsp;管理员回复 </strong></td>
    </tr>
    <tr> 
      <td height="25" bgcolor="#F3F3F3">&nbsp;&nbsp;&nbsp;回复内容： <br> 
        &nbsp;&nbsp;&nbsp; <textarea name="reply" cols="100" rows="8" class="wenbenkuang" id="textarea"></textarea>
      <input name="hfr" type="hidden" value=<%=session("adminid")%>></td>
    </tr>
    <tr> 
      <td height="25" bgcolor="#F3F3F3">&nbsp;&nbsp;&nbsp;回复<font color="#990033"><%=rs("name")%></font>的留言</td>
    </tr>
    <tr> 
      <td height="25" bgcolor="#F3F3F3">&nbsp;&nbsp;&nbsp; 
        <input type="submit" class="go-wenbenkuang" value="回复" name="button"> 
      &nbsp;&nbsp; <input name="Submit2" type="reset" class="go-wenbenkuang" id="Submit23" value="重置">      </td>
    </tr>
  </table>
</form>
<%
else
if request.form("reply")="" then
response.write"<SCRIPT language=JavaScript>alert('对不起，公告内容不能为空！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
rs("reply")=Server.HTMLEncode(request.form("reply"))
rs("hfr")=request.form("hfr")
rs.update
rs.close
set rs=nothing
response.redirect "web_guestbook.asp"
end if
end if
%>
<!--#include file="copyright.asp"-->
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>
