<%@ Language=VBScript %>

<%if Session("weight")=0 then 
Response.Redirect "error.asp?cause=4"
 end if 
%>
<html>
<head>
<!--#include file="const.asp" -->
<title><%=rs("title")%>---<%=rs("lovetitle")%></title>
<link rel="stylesheet" href="../images/css.css" type="text/css">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0" >
<object runat=server id=conn1 progid="adodb.connection"></object><%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock

%>
<table align="center" cellpadding="0" cellspacing="0" width="770" bordercolordark="black" bordercolorlight="black">
    <tr>
        <td width="769"><!--#include file="top.asp" --></td>
    </tr>
    <tr>
        <td width="769"><TABLE cellSpacing=0 cellPadding=0 width="770" align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width="189">
      <TABLE cellSpacing=0 cellPadding=0 width=185 border=0>
        <TBODY>
        <TR>
          <TD height=5></TD></TR></TBODY></TABLE>
<!--#include file="left.asp"--></TD>
    <TD width="1">&nbsp;</TD>
    <TD vAlign=top width="777">
                                    <div align="right">
                                    <table class="border_yellow1" cellpadding="0" cellspacing="0" width="568">
                                        <tr>
                                            <td width="568" height="21" bgcolor="#FFB252"><font size="4" color="#FF9933"><b>&nbsp;<img border="0" src="images/a0.gif" WIDTH="13" HEIGHT="13" align="absmiddle">&nbsp;</b></font><font color="white"><b>管理网友评分</b></font></td>
                                        </tr>
                                        <tr valign="top">
                                            <td width="568" height="0">		

   <table WIDTH="95%" BORDER="0" CELLSPACING="0" CELLPADDING="0" >
	<tr>
		<td align="center" >   
 
  <%set rs1=server.CreateObject ("ADODB.recordset")
sql="select mark.*,user.nickname,user.sex from mark,user where mark.who_mark=user.user_name and mark.user_name='"&session("Current_user")&"'"
 sql=sql&" order by mark_time desc"

 rs1.Open sql,conn1,3
 rs1.PageSize=15
if session("currentpage")="" then
	session("currentpage")=1
end if

if Request("move")=1 then
	session("currentpage")=1
end if
if Request("move")=2 then
	session("currentpage")=session("currentpage")-1
end if
if Request("move")=3 then
	session("currentpage")=session("currentpage")+1
end if
if Request("move")=4 then
	session("currentpage")=rs1.PageCount
end if
if session("currentpage")<1 then
session("currentpage")=1
end if
if session("currentpage")>rs1.PageCount then
session("currentpage")=rs1.PageCount
end if

 


%>
 <table width=100% cellpadding=3 cellspacing=1 class=color_1>
 
<tr bgcolor="#FFF8E1"><td colspan=6  align=center>
 共有<%=rs1.RecordCount%> 条评分记录，&nbsp;&nbsp;这是第<%=session("currentpage")%>页/共<%=rs1.PageCount%>页
 </td>
 </tr>
 <A NAME="mybook"></A>	 
<tr bgcolor="#FFE28C">
	<td  align=center class=sp width=40><b>编号</b></td>
	<td  align=center class=sp><b>昵称</b></td>
	<td  align=center class=sp><b>性别</b></td>
	<td  align=center class=sp><b>给分</b></td>
	<td  align=center class=sp><b>时间</b></td>
	<td  align=center class=sp><b>操作</b></td></tr>
<%if rs1.RecordCount<>0 then
rows=1
rs1.AbsolutePage=session("currentpage")
	while not rs1.EOF and rows<=rs1.PageSize 
	if rs1("sex")="男" then
		temp_sex="他"
	else
		temp_sex="她"
	end if
   
%>


<%if rows mod 2 then 
%>

<tr bgcolor="#FFF8E1">
<td  align=center class=sp><%=rows%></td>
<td  align=center class=sp><a href="show_user.asp?user_name=<%=rs1("who_mark")%>" target="_blank"><%=rs1("nickname")%></a></td>
<td  align=center class=sp><%=rs1("sex")%></td>
<td  align=center class=sp><%=rs1("mark")%></td>
<td  align=center class=sp><%=rs1("mark_time")%></td>
<td  align=center class=sp><a href="show_user_del_mark.asp?id=<%=rs1("id")%>">[删除]</a><a  href="#mybook"
                  onclick="javascript:window.open('leaveword.asp?user_name=<%=rs1("who_mark")%>&nickname=<%=rs1("nickname")%>','email2friend','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=yes,width=418,height=379');">[给<%=temp_sex%>写信]</a></td>
</tr>
<%else%>

<tr bgcolor="#FFF3C7">
<td  align=center class=sp><%=rows%></td>
<td  align=center class=sp><a href="show_user.asp?user_name=<%=rs1("who_mark")%>" target="_blank"><%=rs1("nickname")%></a></td>
<td  align=center class=sp><%=rs1("sex")%></td>
<td  align=center class=sp><%=rs1("mark")%></td>
<td  align=center class=sp><%=rs1("mark_time")%></td>
<td  align=center class=sp><a href="show_user_del_mark.asp?id=<%=rs1("id")%>">[删除]</a><a  href="#mybook"
                  onclick="javascript:window.open('leaveword.asp?user_name=<%=rs1("who_mark")%>&nickname=<%=rs1("nickname")%>','email2friend','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=yes,width=418,height=379');">[给<%=temp_sex%>写信]</a></td>
</tr>

<%end if%>	
<%rs1.MoveNext
  rows=rows+1
  wend
%>
	
	
	
 <tr bgcolor="#FFF8E1"><td colspan=6  align=center>
 <%'if session("currentpage")>1then %>
<a href="show_user_mark_manage.asp?move=1">首页</a>　
<a href="show_user_mark_manage.asp?move=2">上一页</a>
<%'end if%>
<%'if session("currentpage")<rs1.PageCount  then %>
<a href="show_user_mark_manage.asp?move=3">下一页</a>　
<a href="show_user_mark_manage.asp?move=4">末页</a>
 <%'end if %>

</td>
 </tr>
 <%else%>
 <tr bgcolor="#FFF3C7">
	<td  align=center class=sp></td><td  align=center class=sp></td><td  align=center class=sp></td><td  align=center class=sp></td><td  align=center class=sp></td><td  align=center class=sp></td>
</tr>
 <%end if
conn1.Close
%>
</table>
 
     
</TD>                                            
                      </TR></TABLE>

 
</td>
                                        </tr>
                                        <tr>
                                            <td width="568" height="2" bgcolor="#FF9E8C">
                                                <p></p>
                                            </td>
                                        </tr>
                                        <tr>
                                            <td width="568" height="14" bgcolor="#FF9E8C"><a href="join_vip.asp"><IMG height=42 src="images/pic_shop.gif" 
          width=568 border="0" alt="升级成为VIP会员"></a></td>
                                        </tr>
                                    </table>
                                    </div>
</TD></TR>
</TBODY></TABLE></td>
    </tr>
    <tr>
        <td width="769"><p align="center"><!--#include file="../copyright.asp" --></td>
    </tr>
</table>
<p>&nbsp;</p>
</body>
</html>
