<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<HTML><HEAD><TITLE>会员管理</TITLE>
<LINK href="css/css.css" rel=stylesheet>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2505.0" name=GENERATOR></HEAD>
<BODY text=#000000>
<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%if Request("last_time")=1 then
	temp_time="3个月"
  elseif Request("last_time")=2 then
  temp_time="6个月"
  elseif Request("last_time")=3 then
	temp_time="9个月"
elseif Request("last_time")=4 then
	temp_time="12个月"
  end if
'////////////////////////////////////

set rs1=server.CreateObject ("ADODB.recordset")
   sql="select * from vip_user where checked=1 and last_time="&Request("last_time")
temp_order=1
  if request("my_order")<>"" then
	temp_order=request("my_order")
  end if
 if temp_order=1  then
  sql=sql&" order by end_date asc"
  elseif temp_order=2  then
   sql=sql&" order by end_date desc"
  end if
'////////////////////////////////////////  
  
   rs1.Open sql,conn1,3,2
 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
	
 %>
<BR><BR><BR><BR><BR>
<table bgColor="#ffdfef" border="0" cellPadding="3" cellSpacing="1" width="100%">
           <tr>
            <td width="522" colspan="6">
<FORM action="hylist1.asp?last_time=<%=Request("last_time")%>" method=POST id=form1 name=form1 >
排序方式：
<%if temp_order=1 then%>
<SELECT id=select1 name=my_order onchange="javascript:form1.submit();">
<OPTION value=1 selected>按到期时间升序排序</OPTION>
<OPTION value=2>按到期时间降序排序</OPTION>

</SELECT>
<%else%>
<SELECT id=select1 name=my_order onchange="javascript:form1.submit();">
<OPTION value=1>按到期时间升序排序</OPTION>
<OPTION value=2 selected>按到期时间降序排序</OPTION>

</SELECT>
<%end if%>
</form>
</td>
        <td></td>
          </tr>
          <tr>
            <td width="522" colspan="6"><b><font color="#008000"><u>有<%=rs1.recordcount%>个<%=temp_time%>型VIP会员</u></font></b></td>
        <td></td>
          </tr>
          <tr bgColor="#ffa6c2">
            <td  align="center" style="border-bottom-style: solid">编号</td>
            <td  align="center" style="border-bottom-style: solid">用户名</td>
            <td  align="center" style="border-bottom-style: solid">到期时间</td>
            <td  align="center" style="border-bottom-style: solid">留言</td>
			<td  align="center" style="border-bottom-style: solid">修改</td>
			<td  align="center" style="border-bottom-style: solid">解除VIP会员</td>
        <td></td>
          </tr>
          <%rows=1
          if rs1.RecordCount<>0 then
          rs1.AbsolutePage=session("currentpage")
          end if
	while not rs1.EOF and rows<=rs1.PageSize 
          %>
          <tr>
            <td  align="center" bgcolor="#EEEEEE" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#FFFFFF"><%=rows%></td>
            <td  align="center" bgcolor="#EEEEEE" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#FFFFFF"><%=rs1("user_name")%></td>
            <td  align="center" bgcolor="#EEEEEE" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#FFFFFF"><%=rs1("end_date")%></td>
            <td  align="center" bgcolor="#EEEEEE" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#FFFFFF"><a href="manager_leaveword.asp?user_name=<%=rs1("user_name")%>" target=_blank >留言</a></td>
            
            <td  align="center" bgcolor="#EEEEEE" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#FFFFFF"><a href="modify_user.asp?user_name=<%=rs1("user_name")%>&id=1" >修 改</a></td>
            <td  align="center" bgcolor="#EEEEEE" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#FFFFFF"><a href="del_user_vip.asp?last_time=<%=Request("last_time")%>&user_name=<%=rs1("user_name")%>&id=1" >解除VIP会员</a></td>
        <td></td>
          </tr>
          <%rows=rows+1
          rs1.movenext%>
          <%wend%>
          <tr>
            <td align="center">&nbsp;</td>
            <td  align="center"></td>
            <td  align="center"></td>
            <td align="center"></td>
            <td align="center"></td>
            <td align="center"></td>
        <td></td>
          </tr>
 
  <tr bgcolor=#FFF7FD><td colspan=7  align=center>
 <% 'if session("currentpage")>1then %>
<a href="hylist1.asp?move=1&last_time=<%=Request("last_time")%>">首页</a>　
<a href="hylist1.asp?move=2&last_time=<%=Request("last_time")%>">上一页</a>
<% 'end if%>
<% 'if session("currentpage")<rs1.PageCount  then %>
<a href="hylist1.asp?move=3&last_time=<%=Request("last_time")%>">下一页</a>　
<a href="hylist1.asp?move=4&last_time=<%=Request("last_time")%>">末页</a>
 <% 'end if %>

</td>
 </tr>
 <tr bgcolor=#FFF7FD><td colspan=7  align=center>
 第<%=session("currentpage")%>页/共<%=rs1.PageCount%>页
 </td>
 </tr>
 </table>



<p align=center> <B><FONT color=#ffffff>Copyright@2002-2030
      &nbsp;福建交友热线  All Right Reserved.
</FONT></B></p>
</BODY></HTML>