<!--#include file="include/conn.asp"-->
<%Call limsss(sQxa,"$$lstuser$$")%>
<html>
<title>会员列表</title>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="../css/lst.css" rel="stylesheet" type="text/css" />
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="31" border="0" cellpadding="0" cellspacing="0" class="left_topbg" id="table2"><tr><td height="31"><div class="titlebt">会员列表</div></td></tr></table>
<table border="1" width="100%" cellpadding="2" style="border-collapse: collapse" bordercolor="#B5D0D9" bgcolor="#FFFFFF">
	<tr>
		<td>
			<table border="1" width="100%" id="table3" cellspacing="0" style="border-collapse: collapse" bordercolor="#F6F6F6" cellpadding="0">
			<tr>
			<td height="30" align="center" bgcolor="#F6F6F6"><b>用户名</b></td>
			<td height="30" align="center" bgcolor="#F6F6F6"><b>电话</b></td>
			<td height="30" align="center" bgcolor="#F6F6F6"><b>积分</b></td>
			<td height="30" align="center" bgcolor="#F6F6F6"><b>状态</b></td>
			<td height="30" align="center" bgcolor="#F6F6F6"><b>注册时间</b></td>
			<td height="30" align="center" bgcolor="#F6F6F6"><b>IP地址</b></td>
			<td height="30" align="center" bgcolor="#F6F6F6">查看</td>
			<td height="30" align="center" bgcolor="#F6F6F6">操作</td>
			</tr>
			<%
			sSql="select * from [LstUser] order by Id"
			Set oRs = Server.CreateObject("ADODB.Recordset")
			oRs.Open sSql, oconn, 1, 1
			If oRs.eof and oRs.bof then
			Response.Write ""
			Else
			Call PageNum(25)
			for i=1 to mypage%>
			<tr>
			<td height="30" align="center" bgcolor="#FFFFFF"><%=oRs("UserName")%></td>
			<td height="30" align="center" bgcolor="#FFFFFF"><%=oRs("UserTel")%></td>
			<td height="30" align="center" bgcolor="#FFFFFF"><%=oRs("UsrMoney")%></td>
			<td height="30" align="center" bgcolor="#FFFFFF"><%=oRs("UsrState")%></td>
			<td height="30" align="center" bgcolor="#FFFFFF"><%=oRs("UserAddtime")%></td>
			<td height="30" align="center" bgcolor="#FFFFFF"><%=oRs("UsrIP")%></td>
			<td height="30" align="center" bgcolor="#FFFFFF"><a href="Lstuserinfo.asp?Id=<%=oRs("Id")%>"><img src=../images/ico/look.gif></a></td>
			<td height="30" align="center" bgcolor="#FFFFFF"><a href="?action=deluser&Id=<%=oRs("Id")%>"><img src=../images/ico/del.gif></a></td>
			</tr>
			<%
			oRs.MoveNext
			Next
			End If
			%>
			</table>
			<table border="0" width="100%" cellspacing="3" cellpadding="3">
				<tr>
					<td align="center" height="30"><%Call PageUrl("?g=z",25)%></td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</body>
</html>
<%
'删除
If action="deluser" then
	set ors=Server.CreateObject("ADODB.Recordset")
	sSql="delete * from LstUser WHERE Id = "&Id&" "
	ors.open sSql,oconn,1,3
	set ors=nothing
	call alert("删除成功!","Lstuser.asp")
End if
%>