b2b_repl.asp

小型网上购物网站

<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'限制添加权限管理员
if session("rank")=2 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if

dim reviewid,action
reviewid=SafeRequest("id",1)
action=Request.Form("action")
select case action
case "save"
set rs=server.CreateObject("adodb.recordset")
rs.open "select replyto,audit from review where reviewid="&reviewid,conn,1,3
rs("replyto")=trim(request.form("replyto"))
rs("audit")=trim(request.form("audit"))
rs.update
rs.close
set rs=nothing
conn.close
set conn = nothing
response.write "<script language=javascript>alert('回复成功！');history.go(-1);</script>"
response.End
case ""
%>
<% set rs=server.CreateObject("adodb.recordset")
rs.open "select review.*,product.name from review inner join product on product.id=review.id  where reviewid="&reviewid,conn,1,1

%>

	
<style type="text/css">
<!--
.STYLE3 {color: #0000FF}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE1 {color: #000000;
	font-weight: bold;
}
.style4 {color: #FF0000}
-->
</style>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
  <tr>
    <td background="images/topbg.gif"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -&gt; <span class="style4">评论回复</span></span></td>
  </tr>
  <tr>
    <td valign="top" bgcolor="#FFFFFF"><table width="98%" border="2" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
      <form action="b2b_repl.asp?id=<% = reviewid %>" method="post" name="form1" id="form1">
        <tr height="25">
          <td width="10%" height="25" align="right" background="images/topbg.gif" bgcolor="#f7f7f7" >评论商品：</td>
          <td height="25" bgcolor="#FFFFFF" ><%if len(rs("name"))>20 then
			response.write "<a href=../b2b_cpinfo.asp?id="&rs("id")&" target=_blank>"&left(trim(rs("name")),18)&"...</a>"
			else
			response.write "<a href=../b2b_cpinfo.asp?id="&rs("id")&" target=_blank>"&trim(rs("name"))&"</a>"
			end if
			%></td>
        </tr>
        <tr height="25">
          <td height="25" align="right" background="images/topbg.gif" bgcolor="#f7f7f7" >评论时间：</td>
          <td height="25" bgcolor="#FFFFFF" ><% = trim(rs("reviewdtm"))%></td>
        </tr>
        <tr height="30">
          <td height="25" align="right" valign="middle" background="images/topbg.gif" bgcolor="#f7f7f7" >审核状态：</td>
          <td height="25" bgcolor="#FFFFFF" ><a href="mailto:<% = trim(rs("messemail"))%>">
            <select name="audit" id="audit">
              <option value="0" <% if rs("audit")=0 Then Response.write("Selected") %>>未审核</option>
              <option value="1" <% if rs("audit")=1 Then Response.write("Selected") %>>已审核</option>
            </select>
          </a></td>
        </tr>
        <tr height="30">
          <td height="25" align="right" valign="middle" background="images/topbg.gif" bgcolor="#f7f7f7" >留言内容：</td>
          <td height="25" bgcolor="#FFFFFF" ><%=trim(rs("reviewcontent"))%></td>
        </tr>
        <tr height="25">
          <td height="25" align="right" valign="middle" background="images/topbg.gif" bgcolor="#f7f7f7" >来访 IP：</td>
          <td height="25" bgcolor="#FFFFFF" ><%=trim(rs("ipaddr"))%></td>
        </tr>
        <tr>
          <td align="right" valign="top" background="images/topbg.gif" bgcolor="#f7f7f7" >回　　复：</td>
          <td bgcolor="#FFFFFF" ><textarea name="replyto" cols="80" rows="6"><%=trim(rs("replyto"))%></textarea></td>
        </tr>
        <tr>
          <td colspan="2"  align="center" bgcolor="#FFFFFF"><input name="action" type="hidden" value="save" />
              <input type="submit" name="Submit" value="回 复" /></td>
        </tr>
      </form>
    </table></td>
  </tr>
</table>
<%
rs.close
set rs=nothing 
conn.close
set conn = nothing%>
 
<% end select %>