<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%titlename="信用评价管理"%>
<body onLoad="show(A123),show(A124)">
<!--#include file="top.asp"-->
<!--#include file="../include/page.asp"-->
<html><head>
<meta http-equiv=Content-Type content='text/html; charset=gb2312'>
<link href="/include/css.css" rel="stylesheet" type="text/css">
<title><%=my_name%>-----会员中心</title></head>
<%
hy "login.asp"
if request("pid")<>"" and request("pingjia")<>"" Then
If shopnet("p")=1 then
conn.execute("Update list set sellxinyong="&shopnet("pingjia")&" where id="&shopnet("pid")&"")
else
conn.execute("Update list set buyxinyong="&shopnet("pingjia")&" where id="&shopnet("pid")&"")
End if
conn.execute("Update huiyuan set xinyong=xinyong+"&shopnet("pingjia")&" where huiyuan='"&shopnet("phuiyuan")&"'")

response.Write("<Script>alert('评价成功!!谢谢您!');window.location='?id="&shopnet("p")&"';</script>")
end if%>

<table width="762" border="0" align="center" cellpadding="2" cellspacing="0" style='BORDER-COLLAPSE: collapse;MARGIN: 3px'>
  <tr> 
    <td height="22" colspan="2">您的位置： <A href="../index.asp">首页</A> &gt;&gt; <a href="index.asp">会员中心</a>&nbsp;&gt;&gt; <%if shopnet("id")="2" then%>评价买家<%else%>评价卖家<%end if%> </td>
  </tr>
  <tr> 
    <td width="180" valign="top">
<!--#include file="left.asp"-->
    </td>
<td width="582" height="280" valign="top">
<script type="text/javascript" src="../include/click.js"></script>
<%If shopnet("id")="1" then%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><table border="0" align="left" cellpadding="0" cellspacing="0">
      <tr>
        <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
        <td width="120" align="center" background="../images/mytaobaobj1_4.gif">评价卖家<font color="#FFFFFF" span class="C">&nbsp;</font></td>
        <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
      </tr>
    </table>
        <%If request.Cookies(Rikee)("myuserid")<>"" then%><table border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
            <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="pingjiabuysell.asp?id=2">评价买家</a></span></font></td>
            <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
          </tr>
        </table><%End if%>
      <table border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
            <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="../renzhengshow.asp?huiyuan=<%=Request.Cookies(Rikee)("huiyuan")%>">您的信用</a></span></font></td>
            <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
          </tr>
      </table></td>
  </tr>
</table><%else%><table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><table border="0" align="left" cellpadding="0" cellspacing="0">
      <tr>
        <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
        <td width="120" align="center" background="../images/mytaobaobj1_4.gif">评价买家<font color="#FFFFFF" span class="C">&nbsp;</font></td>
        <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
      </tr>
    </table>
        <table border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
            <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="pingjiabuysell.asp?id=1">评价卖家</a></span></font></td>
            <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
          </tr>
        </table>
      <table border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
            <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="../renzhengshow.asp?huiyuan=<%=myhuiyuan%>">您的信用</a></span></font></td>
            <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
          </tr>
      </table></td>
  </tr>
</table><%end if%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="4" bgcolor="1E88C1"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
</table><br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef" id="data">
<%
Set rs=Server.CreateObject("ADODB.Recordset")
If shopnet("id")="1" then
sql="select * from list where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and over= 1 and sellxinyong=2 order by id desc"

Else
sql="select * from list where userid="&myuserid&" and over = 1 and buyxinyong=2 order by id desc"
End if
rs.open sql,conn,1,1 

page1("10")
%>
        <tr align="center" valign="middle" bgcolor="#f7f7f7">
          <td width="180" height="21" background="../image/bk.gif"><div align="center">商品名称</div></td> 
          <%If shopnet("id")="1" then%>
		  <td width="190" height="21" background="../image/bk.gif"><div align="center">商户/负责人</div></td>
          <td width="80" height="21" background="../image/bk.gif"><div align="center">购买日期</div></td>
		  <%else%>
	      <td width="190" height="21" background="../image/bk.gif"><div align="center">客户</div></td>
          <td width="80" height="21" background="../image/bk.gif"><div align="center">出售日期</div></td>
<%end if%>
          <td width="80" height="21" background="../image/bk.gif"><div align="center">价格</div></td>
          <td width="85" height="21" background="../image/bk.gif"><div align="center">评价</div></td>
        </tr>
<%
if rs.eof then
  response.write "<tr><td colspan=5 align=center bgcolor=white height=21 valgin=bottom >目前您没有需要评价的对象!</td></tr>"

else
i=1
do while not rs.eof and i<=rs.pagesize
%>

        <tr valign="middle" bgcolor="#FFFFFF">
          <td><div align="center"><%=rs("mc")%>/<%=rs("bh")%>
          </div></td> 
          <td>
		    <div align="center">
<%
set pingjia = conn.execute("select * from shop where id="&rs("userid")&"")
phuiyuan=pingjia("huiyuan")
shopname=pingjia("name")
pingjia.close
set pingjia=Nothing
If shopnet("id")="1" Then%>
              <%=shopname%>/<%=phuiyuan%>
		      <%Else%>
		      <%=phuiyuan%>
		      <%End if%>
	      </div></td>
          <td height="20" align="center"><div align="center"><%=rs("sj")%></div></td>
          <td><div align="center"><%=rs("jg2")%>元</div></td>
          <td>
            <div align="center"></div>
		  <CENTER>
		    <div align="center"></div>
		  <form name="myform" id="myform" method="post" action="pingjiabuysell.asp?pid=<%=rs("id")%>&p=<%=shopnet("id")%>&phuiyuan=<%=phuiyuan%>">
		 <select class="go-wenbenkuang" name="pingjia" id="pingjia">
            <option value="1">好评</option>
            <option value="-1">差平</option>
            <option value="0">中评</option>
           </select>
          <input class="go-wenbenkuang" type="submit" name="Submit" value="OK" /></CENTER></td></form>
        </tr>

<p>
  <%
i=i+1
rs.movenext
loop
%>
        <tr valign="middle" bgcolor="#FFFFFF">
          <td height="21" colspan="8" background="../image/bk1.gif" align=center> <%page2("rq1="&request("rq1")&"&rq2="&request("rq2")&"&")%></td>
        </tr> 

<%rs.close
set rs=nothing
end if 
%></table>
</p>
</td>
  </tr>
</table>
<!--#include file="../bottom.asp"-->
