<%@ codepage ="936" %>
  <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="18"
	dir="../err.asp" 
  %>
  <!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
 <!--#include file="../rolecheck.asp"-->

<HTML><HEAD><TITLE>会员评价</TITLE>
<META content=zh-cn http-equiv=Content-Language>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="../css/style.css" rel=stylesheet type=text/css>

<script language="javascript">
function deltrue()
{
var i=confirm("你确定要删除吗?")
if(i)
{
return true;
}
else
{
return false;
}
}

</script>
<style type="text/css">
<!--
.STYLE2 {color: #0099CC}
-->
</style>
</HEAD>
<BODY>
<table width="98%" border="0" cellspacing="0" cellpadding="0"  align=center class="tableBorder">
<tr> 
<th class="tableHeaderText" colspan=2 height=25>会员评论管理</th>
</tr>
<tr>
<td height="20"   colspan=2><font color="#666666">温馨提示： 
 ①因商务指数直接影响到会员的相关服务优势，应该尽快的审核会员评价。 
 ②会员评价<font color=red>好评加分</font>、<font color=red>批评减分</font>、<font color=red>建议不加减分</font>。</font></td>
</tr>
<tr>
<td width="12%" height=25 class="forumRowHighlight">
<B>管理操作选项</B></td>
<td width="88%" bgcolor="#E0EEF5" ><a href="trust_score.asp?action=2">已<font color=red>处理</font>评论</a> | <a href="trust_score.asp?action=1">未<font color=red>处理</font>评论</a> | [<a href="javascript:location.reload()">刷新页面</a>]</td>
</tr>
</table>
 <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder">
   <tr> 
                <td> 
<%
if request("action")="" then
response.write "<script language='javascript'>"
response.write "alert('您提交的信息不符合规范！');"
response.write"javascript:history.back(-1)</SCRIPT>"
response.end
end if

if request("action")<>"" then
if Chkrequest(request("action")) then
action=replace_text(request("action"))
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
end if

sql="select * from Websen_trustadv"
if action=1 then sql=sql&" where pass=0"
if action=2 then sql=sql&" where abs(pass)=1"
sql=sql&" order by ID desc"


Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
msg_per_page=10 '定义每页显示记录条数
%>
<!--#include file="../../inc/headpage.asp"--> 
<%
if rs.eof then
response.write"<br><br><div align=center>暂无数据信息</div><br><br>"
end if
if not rs.eof then
do while not rs.eof and rowcount > 0
%>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="2"></td>
  </tr>
</table>

<table width="100%" border="0" cellspacing="2" cellpadding="0" align="center" style="word-wrap: break-word; word-break: break-all;">
        <tr bgcolor="#E7EFF7"> 
                      <td width="84%" height="25" valign="top" >  
                        评价人：
						
						<%set rs1=server.CreateObject("adodb.recordset")
						rs1sql="select id,qymc,trust_score from Websen_corporation where id="&rs("pjrid")
						rs1.open rs1sql,conn,1,1
						if not rs1.eof then
						%> 
						 
						
						
						<a href="../vipgrade/useredit.asp?id=<%=rs1("id")%>"><%=rs1("qymc")%></a>  (指数： <font  color="#FF0000"><%=rs1("trust_score")%></font>)； 评价身份：<%=rs("role")%>； 评价类型：<font color="#FF0000"><%=rs("type")%></font>
						<%end if%>
						
		  </td>
										
          <td width="10%" align="center" valign="top" class="forumRow"> 
            <%if rs("type")="好评" then%>
			<%if abs(rs("pass"))=1 then %>
            <a href="pass.asp?id=<%=rs("id")%>&bprid=<%=rs("bprid")%>&type=<%=rs("type")%>&action=<%=action%>"><font color=red>取消该加分</font></a>
            <%else%>
            <a href="pass1.asp?id=<%=rs("id")%>&bprid=<%=rs("bprid")%>&type=<%=rs("type")%>&action=<%=action%>"><font color=red>执行该加分</font></a>
            <%end if%>
			<%elseif rs("type")="批评" then%>
			<%if abs(rs("pass"))=1 then %>
            <a href="pass.asp?id=<%=rs("id")%>&bprid=<%=rs("bprid")%>&type=<%=rs("type")%>&action=<%=action%>"><font color=red>取消该减分</font></a>
            <%else%>
            <a href="pass1.asp?id=<%=rs("id")%>&bprid=<%=rs("bprid")%>&type=<%=rs("type")%>&action=<%=action%>"><font color=red>执行该减分</font></a>
            <%end if%>
			<%end if%>
          </td>
          <td width="6%" align="center" valign="top"  class="forumRow"><a href="del.asp?id=<%=rs("id")%>&action=<%=action%>" onClick="return deltrue();"><font color=red>删除</font></a></td>
        </tr>
        <tr>
          <td height="25" colspan="3" valign="top" class="forumRow"><font color="#FF0000">被评人：</font>
		  
		  
		  
            <%set rs2=server.CreateObject("adodb.recordset")
			rs2sql="select id,qymc,trust_score from Websen_corporation where id="&rs("bprid")
			rs2.open rs2sql,conn,1,1
			if not rs2.eof then 
			
			%>
			
			
			
            <a href="../vipgrade/edit.asp?id=<%=rs2("id")%>"><font color="#FF0000"><%=rs2("qymc")%></font></a>  (指数： <font color="red"><%=rs2("trust_score")%></font>)
			
			<%end if%>
		  </td>
        </tr>
        <tr bgcolor="#E7EFF7">
          <td height="45" colspan="3" bgcolor="#E7EFF7" ><span class="STYLE2">评价内容</span>：<%=rs("content")%></td>
        </tr>
                  </table>
                  <hr>
                  <% 
  rowcount=rowcount-1
  rs.movenext
  loop
  end if
  
%>
<table width="100%" border="0" cellspacing="2" cellpadding="2" align="center">
                    <tr> 
                      <td width="6%" valign="top" align="center" >
                        <b><%=listPages("trust_score.asp?action="&action&"")%></b>
                      </td>
                    </tr>
                    
                  </table>

                </td>
  </tr>
</table>
</BODY>
</HTML>
<br>
<!--#include file="../copy.asp"-->