useraccount.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M1010" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<%
UserID=Request.QueryString("UserID")
strSQL="Select a.UserName,a.HaveMoney,a.AllMoney,a.OverMoney,b.LevelName from T_DNS_UserInfo a, T_DNS_UserLevel b Where a.LevelCode=b.LevelCode and a.UserID=" & UserID
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open strSQL,Cn
if Rs.Eof then
	Response.Write "<br><br><br><p align='center'>无法读取用户记录！</p>"
	Call PrintPageBottom
	Response.End
else
	HaveMoney=Rs("HaveMoney")
	OverMoney=Rs("OverMoney")
	AllMoney=Rs("AllMoney")
	LevelName=Rs("LevelName")
	UserName=Rs("UserName")
end if
Rs.Close
strSQL="Select Sum(Abs(UAMoney)) as NoMoney from T_DNS_UserAccount Where UserID=" & UserID & " and UAType='1' and UAStat='2'"
Rs.Open strSQL,Cn
if Rs.Eof then
	NoMoney=0
else
	if ISNULL(Rs("NoMoney")) or Rs("NoMoney")="" then
          NoMoney=0
    else
          NoMoney=Rs("NoMoney")
    end if
end if
Rs.Close
Cn.Close
%>
<br><br>
<table width="500" cellspacing="0" cellpadding="0" border="0" align="center">
  <tr>
    <td>
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong><%=UserName%>的帐户情况:</strong></font>
    </td>
  </tr>
  <tr>
    <td>
	<TABLE border="0" cellPadding="3" cellSpacing="1" width="100%" bgcolor="<%=Opt_Table_BGColor%>"> 
	<TBODY>
	  <TR>
	    <TD width="120" bgcolor="<%=Opt_TR_BGColor%>">目前身份:</TD>
	    <TD colSpan="3" width="358" bgcolor="<%=Opt_TD_BGColor2%>">
	    <%=LevelName%>
	    </TD>
	  </TR>
	  <TR>
	  <TD width="120" bgcolor="<%=Opt_TR_BGColor%>">帐户余额:</TD>
	  <TD width="110" bgcolor="<%=Opt_TD_BGColor2%>">
	  <%=HaveMoney%> 元</TD>
	  <TD width="98" bgcolor="<%=Opt_TR_BGColor%>">未审核款项:</TD>
	  <TD width="130" bgcolor="<%=Opt_TD_BGColor2%>"><%=NoMoney%> 元</TD></TR>
	  <TR>
	  <TD width="120" bgcolor="<%=Opt_TR_BGColor%>">信用额度:</TD>
	  <TD width="110" bgcolor="<%=Opt_TD_BGColor2%>">
	  <%=OverMoney%> 元
	  </TD>
	  <TD width="98" bgcolor="<%=Opt_TR_BGColor%>">可使用金额:</TD>
	  <TD width="130" bgcolor="<%=Opt_TD_BGColor2%>">
	  <%=CCur(OverMoney) + CCur(HaveMoney)%> 元</TD></TR>
	  <TR>
	  <TD width="120" bgcolor="<%=Opt_TR_BGColor%>">已消费总额:</TD>
	  <TD colSpan="3" width="358" bgcolor="<%=Opt_TD_BGColor2%>">
	  <%=AllMoney%> 元
	  </TD></TR>
	</TBODY>
	</TABLE>
    </td>
  </tr>
</table>
<%
Call PrintPageBottom
%>