<!--#include file="include/conn.asp"-->
<%Call limsss(sQxa,"$$Lstusermoney$$")%>
<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>
</tr>
<%
sSql="select * from [LstUserMoney] 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"><%=USERNAME(oRs("UserId"))%></td>
<td height="30" align="center" bgcolor="#FFFFFF"><%=oRs("UserMoney")%></td>
<td height="30" align="center" bgcolor="#FFFFFF"><%=oRs("UserTime")%></td>
<td height="30" align="center" bgcolor="#FFFFFF"><%=oRs("UserNUM")%></td>
<td height="30" align="center" bgcolor="#FFFFFF"><img src="../images/ico/del.gif" class="input" onclick="{if(confirm('你是否确定删除？')){location.href='?action=delusermoney&Id=<%=oRs("Id")%>';}return false;}"></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="delusermoney" then
		set ors=Server.CreateObject("ADODB.Recordset")
		sSql="delete * from [LstUserMoney] WHERE Id = "&Id&" "
		ors.open sSql,oconn,1,3
		set ors=nothing
		call backurl("Lstusermoney.asp")
End If
%>