📄 list_member.asp
字号:
<%'创建时间:2004/07/05
'创建人:
'功能:显示属于此代理的会员列表
%>
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Islogin.asp"-->
<html>
<head>
<link href="include/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员列表</title>
</head>
<body style="background-color: #F2F2F2">
<table border="1" width="739" cellspacing="0" cellpadding="0" bordercolor="#E0E0E0" style="border-collapse: collapse" height="10%">
<tr>
<td width="731" valign="top">
<center>
<table width="704" height="77" align="center" border="1" cellspacing="1" bordercolor="#F2F2F2" bordercolorlight="#F2F2F2" bordercolordark="#9D9CA4">
<tr bgcolor="#CCCCCC">
<td height="36" colspan="7" bgcolor="#F2F2F2" width="696"><form name="form1" method="post" action="">
快速查找:
<input name="username" type="text" id="username" size="15" class=input>
<input type="submit" name="Submit" value=".搜索." class=input>
<a href="List_Member.asp">显示全部下线</a>|<a href="A_Add_Member.asp">增加会员</a>
</form></td>
</tr>
<tr align="center" bgcolor="#CCCCCC">
<td height="19" bgcolor="#BCD5E4" width="101"><span class="style6">用户名</span></td>
<td width="67" bgcolor="#BCD5E4"><span class="style6">真实姓名</span></td>
<td width="84" bgcolor="#BCD5E4"><span class="style6">会员等级</span></td>
<td width="90" bgcolor="#BCD5E4"><span class="style6">资金上限</span></td>
<td width="80" bgcolor="#BCD5E4"><span class="style6">可用资金</span></td>
<td width="173" bgcolor="#BCD5E4"><span class="style6">注册时间</span></td>
<td width="71" bgcolor="#BCD5E4"><span class="style6">操作</span></td>
</tr>
<%
M_rank=checkstr(request.querystring("M_rank"))
Member_name=checkstr(request.form("username"))
set M_rs=server.createobject("adodb.recordset")
M_sql="select Member_id,Member_name,Member_second,Member_realname,Member_rank,Member_total,Member_restart,Member_regtime from Member where Member_second='"&session("A_name")&"'"
If Member_name<>"" Then
M_sql=M_sql+"and Member_name='"& Member_name&"'"
End If
if M_rank<>"" then
M_sql=M_sql+"and Member_rank='"&M_rank&"'"
end if
M_sql=M_sql+" order by Member_id"
M_rs.open M_sql,conn,1,1
If M_rs.eof then
Response.write " <tr bgcolor='#f2f2f2' ><td>记录暂无!</td></tr>"
else
M_rs.pagesize=20
disnum=M_rs.pagesize
dispage=M_rs.pagecount
page=request.QueryString("page")
if page="" then
page=1
end if
M_rs.absolutepage=page
end if
Do While Not M_rs.EOf and disnum>0
%>
<tr bgcolor="#f2f2f2">
<td height="18" width="101"><a href="Person_detail.asp?name=<%=M_rs("Member_name")%>">投注情况</a> <span class="style6"><%=M_rs("Member_name")%></span></td>
<td align="center" width="67"><span class="style6"><%=M_rs("Member_realname")%></span> </td>
<td align="center" width="84"><span class="style6"><%=M_rs("Member_rank")%></span> </td>
<td align="center" width="90"><span class="style6"><%=M_rs("Member_restart")%></span> </td>
<td align="center" width="80"><span class="style6"><%=M_rs("Member_total")%></span> </td>
<td align="center" width="173"><span class="style6"><%=M_rs("Member_regtime")%></span> </td>
<td align="center" width="71"><span class="style6"><a href="A_Edit_Member.asp?id=<%=M_rs("Member_id")%>" target="_self">修改</a>/<a href="Del_Member.asp?id=<%=M_rs("Member_id")%>&name=<%=m_rs("member_name")%>" >删除</a></span></td>
</tr>
<%M_rs.movenext
disnum=disnum-1
loop%>
</table>
<br>
<center><table width="80%" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td align="right"> <%
for i=1 to dispage
%>
[<a href=list_Member.asp?page=<%=i%> target="_self"><%=i%></a>]
<%next
M_rs.close
set M_rs=nothing
conn.close
%></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -