  <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="52"
	dir="../err.asp" 
  %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>会员升级</title>
<!--#include file="../head.asp"-->
<%
if issession=0 then
 if Request.Cookies("username")="" or   Request.Cookies("usernames")="" or  Request.Cookies("userlist")="" or  Request.Cookies("userlists")="" then
	
	response.write"<script >window.location.href='"&HOPE_InstallDir&"admin';</script>" 
	response.end 
 end if
end if
gradeid=replace_text(request("gradeid"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from Websen_corporation where gradeid="&gradeid&" and leixing=1"
rs.open sql,conn,1,3
if not rs.eof  then
%>
<LINK href="../../<%=lujing%>css/style.css" rel=stylesheet type=text/css>
</head>
<body> 
<form name="form_reg" method="post" action="baocun.asp">
 <table cellpadding=2 cellspacing=1 border=0 width=99% class=tableBorder align=center>
  <tr>
      <tH height="22" colspan="8" align="center" class=forumRow><input type="hidden" name="bb" id="bb" value="<%=gradeid%>">
        <input type="hidden" name="aa" id="aa" value="<%=request("gradename")%>">
        [<%=request("gradename")%>]信息管理</tH>
    </tr>
    <tr class=bodytitle>
      <td width="5%" align="center">&nbsp;</td>
      <td width="7%" align="center"><font color="ff6600">用户名称</font></td>
      <td width="12%" align="center"><font color="ff6600">注册时间</font></td>
      <td width="18%" align="center"><font color="ff6600">申请时间</font></td>
      <td width="12%" align="center"><font color="ff6600">升级类型要求</font></td>
      <td width="14%" align="center"><font color="ff6600">审核</font></td>
      <td width="14%" align="center">升级操作</td>
      <td width="14%" align="center" class=forumrowHighLight><font color="ff6600"><font color='ff6600'>删 除</font></td>
    </tr>
    <%
	
	page=request.QueryString("page")
	if IsNumeric(page) then 
page=cint(page) 
if page<1 then page=1 
else 
end if 
if  rs("leixing")=0  then 
rs.close 
set rs=nothing 

response.write "未添加数据" 
response.end()
else 
rs.pagesize=10 
dim intReCun,intPaCun 
intReCun=rs.Recordcount  
intPage=rs.pagecount 
if page>intPage then page=intPage  end if
rs.absolutepage=page 
i=1
do while not rs.eof and i<=10
wz_Application=rs("user")
wzlx_id=rs("idate")
wz_id=rs("wenjian")
ll=rs("titlt")

%>

    <tr>
      <td width="5%" height="22" align="center" class=forumRow>&nbsp;</td>
      <td width="7%" align="center" class=forumRow><font color="#135294"><%=wz_Application%></font></td>
      <td align="center" class=forumRow><font color="#135294"><%=wzlx_id%></font></td>
      <td align="center" class=forumRow  id="aaa"><font color="#135294"><%=rs("sqdate")%></font></td>
      <td align="center" class=forumRow><font color="#135294"><%=rs("Demand")%></font></td>
      <td align="center" class=forumRow><input type="button" value="取消审核" style="color:#135294"  title="不做任何操作" onClick="window.location.href='quxiao.asp?id=<%=rs("id")%>&bb=<%=gradeid%>&aa=<%=request("gradename")%>'"/></td>
      <td align="center" class=forumRow><input name="button" type="button" style="color:#135294" title="升级会员" onclick="window.location.href='baocun.asp?userid=<%=rs("id")%>&bb=<%=gradeid%>&aa=<%=request("gradename")%>'" value="升级操作" /></td>
      <td align="center" class=forumRow>
<input type="button" value="删除会员" style="color:#135294"  title="删除数据不可恢复" onClick="window.location.href='delete.asp?id=<%=rs("id")%>&bb=<%=gradeid%>&aa=<%=request("gradename")%>'"/>	  </td>
    </tr>  
    <%
	i=i+1
	rs.movenext
    loop 
	end if
	rs.close
response.write "<table width='100%'  border='0' align='right' cellpadding='0' cellspacing='0'><tr><td height='21'><div   align='right'>" 
if page<>1 then 
response.write"<br>"
response.write "<a href='websen_shengcheng.asp?id="&id&"&page=1'><font color='#135294'>第一页</font></a>&nbsp;<a href='websen_shengcheng.asp?id="&id&"&page="&page-1&"'><font color='#135294'>上一页</font></a>&nbsp;" 
end if 
if page<>intPage then 
response.write "<a  href='websen_shengcheng.asp?id="&id&"&page="&page+1&"''><font color='#135294'>下一页</font></a>&nbsp;<a href='websen_shengcheng.asp?id="&id&"&page="&intPage&"'><font color='#135294'>最后一页</font></a>"
end if
response.write "<span class='size121'><font color='#135294'>共</font>"&"<font color='#135294'>"&intReCun&"</font>"&"<font color='#135294'>条</font>&nbsp;<font color='#135294'>"&page&"</span>/"&intPage&"</font><font color='#135294'>页</font><a  href='../../admin/vipgrade/chun.asp'><font color='#135294'>&lt;&lt; 返回上一页</font></a></div></td></tr></table>"
	%>
  </table>
  <p>
    <input name="aa" id="aa" type="hidden" value="<%=rss("gradename")%>" />
  </p>
</form>
<%
else
response.write "<script >alert('暂无"&request("gradename")&"要求申请升级');window.location.href='"&HOPE_InstallDir&lujing&"vipgrade/chun.asp';</script>" 
end if
rs.close
%>
</body>
</html>