📄 membersavemoney.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")
sql="select * from adminuser where username='"& username &"' and id=" & id &""
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
%>
<html>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<body bgcolor="#FFFFFF" style="background-color: #D6DFF7">
<div align="center">
<center>
<table width="98%" border="1" cellpadding="5" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<tr>
<td background="images/admin/admin_bg_1.gif">
<p align="center">添加和扣除会员存款</td>
</tr>
<tr>
<td bordercolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="membersavemoney.asp?cmd=search">
<tr>
<td><div align="center">会员名称：
<input name="membername" type="text" id="membername" size="20">
<input type="submit" name="Submit" value="列出">
</div></td>
</tr>
</form>
</table>
<br>
<br>
<%
if request.querystring("cmd")="search" then
user_name=request.form("membername")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from savemoney where user_name='"& user_name &"'"
rs.open sql,conn,3,3
if rs.eof then
%>
<div align=center class=f1>此会员账面没有加入过存款！请在下面添加。<br>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<form name="form2" method="post" action="addmembersavemoney.asp">
<tr>
<td><div align="center">会员名称：
<input name="user_name" type="text" id="user_name" size="10">
</div></td>
</tr>
<tr>
<td><div align="center">添加金额：
<input name="savemoney" type="text" id="savemoney" size="10">
</div></td>
</tr>
<tr>
<td><div align="center">会员类型：
<select name="usertyp" id="usertyp">
<option value="企业" selected>-企业-</option>
<option value="个人">-个人-</option>
</select>
</div></td>
</tr>
<tr>
<td><div align="center">
<input type="submit" name="Submit3" value="添加">
</div></td>
</tr>
</form>
</table>
</div>
<% else %>
<table width="100%" border="1" cellpadding="4" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<tr>
<td background="images/admin/admin_bg_1.gif"><div align="center">会员[
<font color="#FF0000"> <%=user_name%></font> ]的财务状况</div></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><div align="center">账面余额：￥<span class="f1"><%=rs("savemoney")%></span></div></td>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td>域名注册财务发生细目：<br>
<br>
<% Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from domainshopping where user_name='"& user_name &"'"
rs1.open sql1,conn,3,3
if rs1.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center" class="f1">此会员没有发生过域名业务！</div></td>
</tr>
</table>
<% else
do while not rs1.eof
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="15%"><div align="center" class="f1">订单名：</div></td>
<td><div align="center"><%=rs1("id")%></div></td>
<td width="20%"><div align="center" class="f1">总金额/年限</div></td>
<td width="15%"><div align="center">￥<%=rs1("money")%>/<%=rs1("years")%></div></td>
<td width="20%"><div align="center" class="f1">结算情况：</div></td>
<td width="15%"><div align="center"><%=rs1("bolo")%></div></td>
</tr>
</table>
<% rs1.movenext
loop
rs1.close
set rs1=nothing
end if
%>
<br>
空间租用财务发生细目： <br>
<br>
<% Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from hostshopping where user_name='"& user_name &"'"
rs2.open sql2,conn,3,3
if rs2.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center" class="f1">此会员没有发生过空间业务！</div></td>
</tr>
</table>
<% else
do while not rs2.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15%"><div align="center" class="f1">订单名：</div></td>
<td><div align="center"><%=rs2("id")%></div></td>
<td width="20%"><div align="center" class="f1">总金额/年限</div></td>
<td width="15%"><div align="center">￥<%=rs2("money")%>/<%=rs2("years")%></div></td>
<td width="20%"><div align="center" class="f1">结算情况：</div></td>
<td width="15%"><div align="center"><%=rs2("bolo")%></div></td>
</tr>
</table>
<% rs2.movenext
loop
rs2.close
set rs2=nothing
end if
%>
<br>
<br>
邮局租用财务发生细目：<br>
<br>
<% Set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select * from mailshopping where user_name='"& user_name &"'"
rs3.open sql3,conn,3,3
if rs3.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center" class="f1">此会员没有发生过邮局业务！</div></td>
</tr>
</table>
<% else
do while not rs3.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15%"><div align="center" class="f1">订单名：</div></td>
<td><div align="center"><%=rs3("id")%></div></td>
<td width="20%"><div align="center" class="f1">总金额/年限</div></td>
<td width="15%"><div align="center">￥<%=rs3("money")%>/<%=rs3("years")%></div></td>
<td width="20%"><div align="center" class="f1">结算情况：</div></td>
<td width="15%"><div align="center"><%=rs3("bolo")%></div></td>
</tr>
</table>
<% rs3.movenext
loop
rs3.close
set rs3=nothing
end if
%>
</td>
</tr>
</table>
<br>
<br>
<div align="center">
<center>
<table width="50%" border="1" cellpadding="3" cellspacing="0" bordercolor="#6687BA" style="border-collapse: collapse">
<tr bordercolor="#FFFFFF" bgcolor="#f1f1f1">
<td bgcolor="#EAF1FB"><div align="center"><a href="sys_savemoney.asp?cmd=save&user_name=<%=user_name%>">添加存款</a></div></td>
<td bgcolor="#EAF1FB"><div align="center"><a href="sys_savemoney.asp?cmd=del&user_name=<%=user_name%>">扣除存款</a></div></td>
</tr>
</table> <br>
</center>
</div>
<% end if %>
<% end if %>
</td>
</tr>
</table>
</center>
</div>
</center>
</div>
<p><br>
</p>
</body>
</html>
<%
end if
rs.close
set rs=nothing
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -