muserlist.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
FunCode="F306"
session("title")="会员清单"
session("headline")="首页 -> 注册系统 -> 会员清单"
%>
<!--#include file="../inc/head2.asp"-->
<%

call List()

sub List()
username=request("username")
chname=request("chname")
chcity=request("chcity")
email=request("email")


sql = "select * from [user] where (username like '%"&username&"%' and chname like '%"&chname&"%' and chcity like '%"&chcity&"%' and email like '%"&email&"%') and (username in (select username from [user] where manageuser='"&session("username")&"')) order by regtime desc"
set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
call  PrintSetPage(rs,pagecount)
call PrintRecNum(rs)
%>

<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=90% class='size09' align='center'>
<form method="POST" action="muserlist.asp">
<tr><td colspan="10" bgcolor="#efefef" height="28" align="center" class='color01'><b>用户管理</b></td></tr>
<tr>
<td class='color01' bgcolor='#efefef'>
	
		用户名&nbsp;<input type="text" name="username" size="10" class="form" value="<%=username%>">
		中文名&nbsp;<input type="text" name="chname" size="10" class="form"  value="<%=chname%>">
        中文城市&nbsp;<input type="text" name="chcity" size="10" class="form"  value="<%=chcity%>">
		电子邮件&nbsp;<input type="text" name="email" size="10" class="form"  value="<%=email%>">
					&nbsp;&nbsp;<input type='submit' class='form' value='搜索符合条件的记录' name='B1'></td></form> </tr>

</table>

<table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=90% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>用户ID</td><td class='color01' bgcolor='#efefef'>用户名</td><td class='color01' bgcolor='#efefef'>中文名</td><td class='color01' bgcolor='#efefef'>联系电话</td><td class='color01' bgcolor='#efefef'>用户组</td><td class='color01' bgcolor='#efefef'>级别</td><td class='color01' bgcolor='#efefef'>注册日期</td><td class='color01' bgcolor='#efefef'>管理</td></tr>

<% 
i=1
do while not rs.eof %> 
<tr>
<form method='POST' action='musermanage.asp' target='_blank'>
<input type='hidden' value='<%=rs("username")%>' name='username'>
<td><%=rs("ID")%></td><td><a href='../userself/userinfo.asp?username=<%=rs("username")%>' target='_blank'><%=rs("username")%></a></td><td><%=rs("chname")%></td><td><%=rs("telephoneno")%></td><td><%=rs("menu")%></td><td><%=rs("level")%></td><td><%=rs("regtime")%></td>
<td><select size='1' name='slt' > 
<option selected value='0'>-请选择动作-</option>
<option value='del'>删除会员</option>
<option value='pass_pre'>修改密码</option>
<option value='fun'>资金查询</option>
</select>&nbsp;<input type="Submit" value="执行" class="form"></td></form>
</tr>
<% i=i+1                                                                                                  
          rs.movenext                                                                                                  
          if i>rs.PageSize then exit do 
		  loop                                                                    
           %>
</table>

<%
URL = "muserList.asp?agent="&agent&"&common="&common&"&username="&username&"&chname="&chname&"&chcity="&chcity&"&email="&email&"&flag="&flag
call PrintPage(pagecount, rs, URL)

rs.close                                                                                                
          set rs=nothing                                                                                                
          conn.close                                                                                                
          set conn=nothing
end sub

%>
<!--#include file="../inc/bottom2.asp"-->