<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<HTML><HEAD><TITLE>会员管理</TITLE>
<LINK 
href="css/default.css" rel=stylesheet>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2505.0" name=GENERATOR></HEAD>
<BODY > 
<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%set rs1=server.CreateObject ("ADODB.recordset")
   sql="select * from vip_user where checked=0"
   rs1.Open sql,conn1,3,2
 %>
<div align="center"><BR>
  <BR>
  <BR>
  <BR>
  <BR>
</div>
<p align="center"> <B><font size=4  color=#ff9933>VIP会员升级 </font></b></p>
<table bgColor="#FFCC33" border="0" cellPadding="3" cellSpacing="1" width="100%">
  <tr >
            
    <td width="100%" colspan="6" bgcolor="#FFFBE7"><b><font color="#008000"><u>有<%=rs1.recordcount%>个人申请VIP会员</u></font></b></td>
          </tr>
          <tr bgColor="#FFE28C">
            <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" bgcolor="#FFE28C">提出申请的时间</td>
			<td  align="center" style="border-bottom-style: solid">升级为VIP会员</td>
			<td  align="center" style="border-bottom-style: solid">取消升级</td>
          </tr>
          <%rows=1
          do while not(rs1.eof)
			if rs1("last_time")=1 then
				last_time="3个月"
			elseif rs1("last_time")=2 then
				last_time="6个月"
			elseif rs1("last_time")=3 then
				last_time="9个月"
			elseif rs1("last_time")=4 then
				last_time="12个月"
			end if
          %>
          
  <tr bgcolor="#FFFBE7"> 
    <td  align="center"  bgcolor="#FFFBE7"><%=rows%></td>
            
    <td  align="center" ><A  href="../love/show_user.asp?user_name=<%=rs1("user_name")%>"
            target=_blank><%=rs1("user_name")%></A></td>
            
    <td  align="center" ><%=last_time%></td>
            
    <td  align="center" ><%=rs1("start_date")%></td>
            
    <td  align="center" ><a href="after_upgrade.asp?user_name=<%=rs1("user_name")%>" >升 
      级</a></td>
            
    <td  align="center" ><a href="del_upgrade.asp?user_name=<%=rs1("user_name")%>" >删 
      除</a></td>
          </tr>
          <%rows=rows+1
          rs1.movenext%>
          <%loop%>
          
  <tr bgcolor="#FFFBE7"> 
    <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>
          </tr>
 </table>



</BODY></HTML>