📄 member_money.asp
字号:
<!--#include file="conn.asp"-->
<%
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
if session("usertyp")="企业" then
sql="select * from userentreg where login_name='"& username &"' and id=" & id &""
end if
if session("usertyp")="个人" then
sql="select * from userpersreg where login_name='"& username &"' and id=" & id &""
end if
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from sys_moneyaction where member_name='"& username &"' and actions='收入' order by id desc"
rs1.open sql1,conn,3,3
Set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select * from hostshopping where user_name='"& username &"' and user_id="& id &" and bolo='已结算'"
rs3.open sql3,conn,3,3
Set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="select * from mailshopping where user_name='"& username &"' and user_id="& id &" and bolo='已结算'"
rs4.open sql4,conn,3,3
Set rs5 = Server.CreateObject("ADODB.Recordset")
sql5="select * from domainshopping where user_name='"& username &"' and user_id="& id &" and bolo='已结算'"
rs5.open sql5,conn,3,3
%>
<html>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<body>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td><div align="center">会员<%=session("username")%>的财务收支记录</div></td>
</tr>
<tr>
<td height="473" valign="top" bordercolor="#FFFFFF">
<div align="center">
<center>
<table width="90%" border="1" cellpadding="3" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<tr>
<td bgcolor="#EAF1FB">存款入账细目：</td>
</tr>
<tr>
<td bordercolor="#FFFFFF">
<% if rs1.eof then
response.write""
else %>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="33%"><div class="f2">项 目 类 型</div></td>
<td width="33%"><div class="f2">存 入 金 额</div></td>
<td width="33%"><div class="f2">存 入 日 期</div></td>
</tr>
</table>
<%
do while not rs1.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="33%"><div class="f1"><%=rs1("actions")%></div></td>
<td width="33%"> ￥<span class="f1"><%=rs1("savemoney")%></span></td>
<td width="33%"><div class="f1"><%=rs1("date")%></div></td>
</tr>
</table>
<% rs1.movenext
loop
end if
%></td>
</tr>
</table>
</center>
</div>
<br>
<div align="center">
<center>
<table width="90%" border="1" cellpadding="3" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<tr>
<td bgcolor="#EAF1FB">存款支出细目：<br>
<br>
<span class="f1">（注：产品续费不另作支出账，自动在相应产品的原始支出记录上添加相应金额）</span></td>
</tr>
<tr>
<td bordercolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="33%"><div class="f2">项 目 类 型</div></td>
<td width="33%"><div class="f2">支 出 金 额</div></td>
<td width="33%"><div class="f2">支 出 日 期</div></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="5" cellspacing="0">
</table>
<table width="100%" border="0" cellpadding="5" cellspacing="0">
<tr>
<td> 空间购买支出：<br>
<br>
<%
if rs3.eof then
response.write""
else
do while not rs3.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="33%"><div class="f1"><a href="member_uphostshopping.asp?hostid=<%=rs3("id")%>"><%=rs3("hostname")%></a> </div></td>
<td width="33%">￥<span class="f1"><%=rs3("money")%></span></td>
<td width="33%"><div class="f1"><%=rs3("date")%></div></td>
</tr>
</table>
<% rs3.movenext
loop
end if
%>
<br>
邮局购买支出：<br>
<br>
<%
if rs4.eof then
response.write""
else
do while not rs4.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="33%"><div class="f1"><%=rs4("mailname")%></div></td>
<td width="33%">￥<span class="f1"><%=rs4("money")%></span></td>
<td width="33%"><div class="f1"><%=rs4("date")%></div></td>
</tr>
</table>
<% rs4.movenext
loop
end if
%>
<br>
域名购买支出：<br>
<br>
<%
if rs5.eof then
response.write""
else
do while not rs5.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="33%">
<div class="f1"><a href="member_showdomainshopping.asp?id=<%=rs5("id")%>"><%=rs5("id")%></a></div>
</td>
<td width="33%">￥<span class="f1"><%=rs5("allmoney")%></span></td>
<td width="33%"><div class="f1"><%=rs5("date")%></div></td>
</tr>
</table>
<% rs5.movenext
loop
end if
%>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="5" cellspacing="0">
<tr>
<td height="29"> </td>
</tr>
</table> </td>
</tr>
</table> </center>
</div>
</td>
</tr>
</table>
<br>
<br>
</body>
</html>
<%
end if
rs.close
set rs=nothing
rs1.close
set rs1=nothing
rs3.close
set rs3=nothing
rs4.close
set rs4=nothing
rs5.close
set rs5=nothing
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -