📄 trust_score.asp
字号:
<%@ codepage ="936" %>
<%
if Request.Cookies("globalec")("globalecmaster")="" or Request.Cookies("globalec")("masterflag")="" then
response.write "<script language='javascript'>"
response.write"this.location.href='../login.asp';</SCRIPT>"
response.end
end if
if instr(Request.Cookies("globalec")("masterflag"),"33")=0 then
response.redirect "../err.asp"
response.end
end if
%>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.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>
</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 class="forumRowHighlight" colspan=2><p><B>注意</B>：<BR>
<font color=red>①因商贸通指数直接影响到商贸通会员的相关服务优势，应该尽快的审核会员评价。</font><BR>
<font color=blue>②会员评价<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%" class=forumRowHighlight><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>
<br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder">
<tr>
<th class="tableHeaderText" height=25>会员评论列表</th>
<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 trustadv"
if action=1 then sql=sql&" where pass=0"
if action=2 then sql=sql&" where 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>"
else
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>
<td width="84%" height="25" valign="top" class=forumRowHighlight>
评价人：
<%set rs1=conn.execute("select id,qymc,trust_score from corporation where id="&rs("pjrid")&"")%>
<a href="../user/edit.asp?id=<%=rs1("id")%>"><%=rs1("qymc")%></a> <IMG src="../../images/trust1.gif" alt="商贸通会员" width=22 height=14 border=0 align=top> <%=rs1("trust_score")%>
； 评价身份：<%=rs("role")%>； 评价类型：<font color="#FF0000"><%=rs("type")%></font></td>
<td width="10%" align="center" valign="top" class="forumRow">
<%if rs("type")="好评" then%>
<%if rs("pass")=true 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 rs("pass")=true 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%>"><font color=red>删除</a></td>
</tr>
<tr>
<td height="25" colspan="3" valign="top" class="forumRow"><font color="#FF0000">被评人：</font>
<%set rs2=conn.execute("select id,qymc,trust_score from corporation where id="&rs("bprid")&"")%>
<a href="../user/edit.asp?id=<%=rs2("id")%>"><font color="#FF0000"><%=rs2("qymc")%></font></a> <IMG src="../../images/trust1.gif" alt="商贸通会员" width=22 height=14 border=0 align=top> <%=rs2("trust_score")%></td>
</tr>
<tr>
<td height="45" colspan="3" class=forumRowHighlight>评价内容：<%=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" class=forumrowHighLight>
<b><%=listPages("trust_score.asp?action="&action&"")%></b>
</td>
</tr>
</table>
</td>
</tr>
</table>
</BODY>
</HTML>
<br>
<!--#include file="../copy.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -