<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"


zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"


%>
<html>
<head>
<title><%=Application("zhbg_chatroomname")%>会员查询程序</title>
<link href="../../../css.css" rel="stylesheet" type="text/css">
<body 
leftmargin="0" topmargin="0">
<p align="center">

<table width="585" border="3" align="center" cellpadding="8" cellspacing="8" bordercolor="#cccccc">
  <tr>
    <td height="55" align="center" > 感谢这些朋友对我们国度的大力支持！<br>
</td>
  </tr>
<tr>    
    <td colspan="2" align="center" ><a href="javascript:this.location.reload()">【刷新】</a> <a href="javascript:history.go(-1)">【返回】</a> 
    </td>    
</tr> 
</table>

<table width="556" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#cccccc">
  <tr align="center">
    <td width="486" height="26" align="center" valign="middle"><div align="center"><img border="0" src="hy.gif"></div></td>
</tr>
<tr align="center">
<td>
<table width="587" border="1" cellpadding="0" cellspacing="0" bordercolor="#cccccc" height="13">
        <tr>
<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "SELECT * FROM 用户 where 状态='正常' and 会员等级>0 order by 会员日期 ",conn
%>
<td width="50" height="18">
<div align="center">ID</div>
</td>
<td width="94" height="18">
<div align="center">姓名</div>
</td>
<td width="38" height="18">
<div align="center">性别</div>
</td>
<td width="83" height="18">
<div align="center">门派</div>
</td>
<td width="68" height="18">
<div align="center">身份</div>
</td>
          <td width="59" height="18" bgcolor="#99CC00"> 
            <div align="center">会员级</div>
</td>
<td width="84" height="18">
<div align="center">会员结束日期</div>
</td>
<td width="58" height="18">
<div align="center">国度等级</div>
</td>
<td width="33" height="18">
<div align="center">登录</div>
</td>
</tr>
<%
dengji1=0
dengji2=0
dengji3=0
dengji4=0
dengji5=0
do while not rs.bof and not rs.eof
Select Case rs("会员等级")
Case 1
	dengji1=dengji1+1
case 2
	dengji2=dengji2+1
case 3
	dengji3=dengji3+1
case 4
	dengji4=dengji4+1
case 5
	dengji5=dengji5+1
end select
%>
<tr>
<td width="50" height="30">
<div align="center"><%=rs("ID")%></div>
</td>
<td width="94" height="30">
<div align="center"><a href="../../yamen/mt.asp?action=<%=rs("姓名")%>"><%=rs("姓名")%></a></div>
</td>
<td width="38" height="30">
<div align="center"><%=rs("性别")%></div>
</td>
<td width="83" height="30">
<div align="center"><%=rs("门派")%></div>
</td>
<td width="68" height="30">
<div align="center"><%=rs("身份")%></div>
</td>
<td width="59" height="30">
<div align="center"><%=rs("会员等级")%></div>
</td>
<td width="84" height="30">
<div align="center"><%=rs("会员日期")%></div>
</td>
<td width="58" height="30">
<div align="center"><%=rs("等级")%></div>
</td>
<td width="33" height="30">
<div align="center"><%=rs("times")%></div>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</td>
</tr>
<tr align="center">
    <td width="486" height="2" align="center" valign="middle"><%=Application("zhbg_chatroomname")%>版权所有</td>
</tr>
</table>
<table width="591" border="3" align="center" cellpadding="8" cellspacing="8" bordercolor="#cccccc">
  <tr>    
    <td colspan="2" align="center" >一级用户：<b><%=dengji1%></b>人 二级会员:<b><%=dengji2%></b>人 
  三级会员：<b><%=dengji3%></b>人 四级会员：<b><%=dengji4%></b>人 五级会员：<b><%=dengji5%></b>人<br>
  会员总数：<b><%=(dengji1+dengji2+dengji3+dengji4+dengji5)%></b>人</td>    
</tr> 
</table></body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>