<!--#include file="down_conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="down_function.asp" -->
<%
dim sqlp,uid,rs_u,i,j
Dvbbs.LoadTemplates("index")
Dvbbs.Stats="<a href=down_default.asp>下载中心</a>-收费用户面板"
Dvbbs.Nav()'输出头
Dvbbs.Head_var 2,0,Dvbbs.Stats,""
if not dvbbs.founduser then
FoundErrs  "<br>"+"<li>您没有进入付费用户控制面版的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
ShowErrs(Dvbbs.Stats)
end if
if session("payuser")<>Dvbbs.membername then
FoundErrs  "<br>"+"<li>您没有进入付费用户控制面版的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
ShowErrs(Dvbbs.Stats)
end if

sqlp="select * from [user] where username='"&Dvbbs.membername&"'"
set rs=conndown.execute(sqlp)
uid=rs("id")
set rs_u=conn.execute("select userwealth from [DV_user] where username='"&Dvbbs.membername&"'")
%>

<table  width="<%= Dvbbs.mainsetting(0) %>"  class="tableborder2" align=center cellpadding="1" cellspacing="1">
  <tr>
    <td width="27%">
    <table class="singleborder" cellspacing=1 width="100%" align=center>
        <tr>
          <th valign=middle height=25 width="100%" colspan="2">用户基本信息
		</th></tr>
		<tr><td class=tablebody1 align=center height=22 width="50%">账号状态：</td><td class=tablebody1 align=left height=22>&nbsp;&nbsp;<%if rs("lockuser")=1 then%>正常<%else%>已被锁定<%end if%></td></tr>
		<tr><td class=tablebody1 align=center height=22 width="50%">用户名：</td><td class=tablebody1 align=left height=22>&nbsp;&nbsp;<%=rs("username")%></td></tr>
		<tr><td class=tablebody1 align=center height=22 width="50%">注册时间：</td><td class=tablebody1 align=left height=22>&nbsp;&nbsp;<%=rs("regtime")%></td></tr>
		<tr><td class=tablebody1 align=center height=22 width="50%">现有现金：</td><td class=tablebody1 align=left height=22>&nbsp;&nbsp;<b><font color=red><%=rs_u(0)%> 
            </font></b></td></tr>
<tr><td class=tablebody1 align=center height=22 width="50%">累积花费点数：</td><td class=tablebody1 align=left height=22>&nbsp;&nbsp;<b><font color=red><%=rs("allpoint")%> 
            </font></b></td></tr>
	</table>
   
<table class="singleborder" cellspacing=1 width="100%" align=center>
        <tr>
          <th valign=middle height=25 width="100%" colspan="2">
		</th></tr>
		<tr><td class=tablebody1 align=center height=22 width="100%"><a href=down_default.asp>返回下载中心</a>
	</td></tr>
	</table>
    </td>
    <td width="73%" valign="top" align="left">
    <table class="singleborder" cellspacing=1 width="100%" align=center>
        <tr>
          <th valign=middle height=25 width="100%">下载信息
		</th></tr><tr><td class=tablebody1 align=center>
		<table border="0" width="97%" cellspacing="1" align=center >
		<%sql="select top 10 * from [downevent] where userid="&uid&" order by addtime desc"
		set rs=conndown.execute(sql)
		i=0
		if rs.eof and rs.bof then
		%>
		<tr>
		<td class=tablebody1 align=center height=22><b>没有您的购买信息</b></td>
		</tr>
		<%else
		do while not rs.eof and i<10 
		%>
		<tr>
		<td class=tablebody1 align=left height=22><font color=red>☆</font><%=rs("buydown")%>   <b>——<%=rs("addtime")%>——<font color=red><%=rs("buypoint")%>点</font><b></b></b></td>     
		</tr>
		<%rs.movenext
		i=i+1
		loop
		end if
		rs.close
		%>
		</table>
		</td></tr>
	  </table>
		<br>
		<table class="singleborder" cellspacing=1 width="100%" align=center>
        <tr>
          <th valign=middle height=25 width="100%">用户操作信息
		</th></tr><tr><td class=tablebody1 align=center>
		<table border="0" width="97%" cellspacing="1" align=center >
		<%sql="select top 10 * from [userevent] where userid="&uid&" order by addtime desc"
		set rs=conndown.execute(sql)
		j=0
		if rs.eof and rs.bof then
		%>
		<tr>
		<td class=tablebody1 align=center height=22><b>没有您的购买信息</b></td>
		</tr>
		<%else
		do while not rs.eof and j<10 
		%>
		<tr>
		<td class=tablebody1 align=left height=22><font color=red>☆</font><%=rs("userevent")%>   <b>——<%=rs("addtime")%>——</b>（操作人：<%=rs("conuser")%>）</td>     
		</tr>
		<%rs.movenext
		j=j+1
		loop
		end if
		rs.close
		%>
		</table>
		</td></tr>
		</table>

    　</td>
  </tr>
</table>
<%Dvbbs.footer()%>




