bank.asp

很漂亮

<!-- #include file="setup.asp" -->
<%
top
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")

sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3

accrual=fix(rs("savemoney")/1000*(now-rs("savetime")))


select case Request.Form("menu")
case "save"
save
case "draw"
draw
case "virement"
virement
end select

%>

<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25>&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → 
<a href="bank.asp">社区银行</a></td>
</tr>
</table><br>




<center>
<table border="0" width="97%">
	<tr>
		<td width="50%" align="center" valign="top">

<img src="images/plus/bank.gif"><br>
　<table border="0" cellpadding="4" cellspacing="1" width="377" class=a2>
<tr>
<td width="50%" colspan="4" class=a1 align="center">您的银行账号</td>
</tr>
<tr class=a4>
<td width="16%" align="center">现金：</td>
<td width="28%"><b><font color="aa0000"><%=rs("money")%> </font>
金币</b></td>
<td width="16%" align="center">利息：</td>
<td width="31%"><b><font color="aa0000"><%=accrual%></font> 金币</b></td>
</tr>
<tr class=a4>
<td width="16%" align="center">存款：</td>
<td width="28%"><b><font color="aa0000"><%=rs("savemoney")%></font> 金币</b></td>
<td width="16%" align="center">总共：</td>
<td width="31%"><b><font color="aa0000"><%=rs("savemoney")+rs("money")+accrual%></font>
金币</b></td>
</tr>
<tr class=a4>
<td width="23%" align="center">存款时间：</td>
<td width="68%" colspan="3"><%=rs("savetime")%></td>
</tr>
<tr class=a4>
<td width="91%" colspan="4">本银行的利息为每天 <font color="#FF0000"><b>0.1%</b></font>，每次存款、取款自动结算利息。</td>
</tr>
</table>
		</td>
		<td align="center">
		
<table cellSpacing="1" cellPadding="3" border="0" width="377" height="47" class=a2><tr>
<td class=a1 height="25">&nbsp; <b>我要存款</b>&nbsp;</td>
<td class=a1 height="25" align="center">您有现金 <b><%=rs("money")%></b> <b>金币</b></td></tr><tr class=a4>
<td height="25" align="center">
<form action="bank.asp" method="post"><input type=hidden name=menu value="save">&nbsp; 我要存
<input size="10" value="1000" name="qmoney" MAXSIZE="32"><b> 金币</b>
</td>
<td height="25" align="center">
<input type="submit" value=" 存 了 " name="B2"></td></tr></table></form>

<table cellSpacing="1" cellPadding="3" border="0" width="377" height="47" class=a2><tr>
<td class=a1 height="25">&nbsp; <b>我要取款</b>&nbsp;
</td>
<td class=a1 height="25" align="center">您有存款 <b><%=rs("savemoney")%></b> <b>金币</b></td></tr><tr class=a4>
<td height="25" align="center">
<form action="bank.asp" method="post"><input type=hidden name=menu value="draw">&nbsp; 我要取
<input size="10" value="1000" name="qmoney" MAXSIZE="32"><b> 金币</b>
</td>
<td height="25" align="center">
<input type="submit" value=" 取 了 " name="B2"></td></tr></table></form>
		
		
<table cellSpacing="1" cellPadding="3" border="0" width="377" height="47" class=a2><tr>
<td class=a1 height="25">&nbsp; <b>我要转帐</b>&nbsp;
</td>
<td class=a1 height="25" align="right">最低转账金额为 <b>1000</b> <b>金币</b></td></tr><tr class=a4>
<td height="25" align="center" colspan="2">
<form action="bank.asp" method="post"><input type=hidden name=menu value="virement">&nbsp; 我要将
<input size="5" value="1000" name="qmoney" MAXSIZE="32"><b> 金币</b> 转到
<input size="10" name="dxname" MAXSIZE="32"> 的账户
<input type="submit" value=" 确 定 " name="B2"></td>
</tr></table></form>
		
		</td>
	</tr>
	</table>






<%
rs.close
htmlend

sub save
qmoney=int(Request("qmoney"))
if qmoney > rs("money") then error("<li>您的现金没有这么多吧！")
if qmoney<1 then error("<li>存款不能为零！")

rs("savemoney")=rs("savemoney")+qmoney+accrual
rs("money")=rs("money")-qmoney
rs("savetime")=now()
rs.update
rs.close
message="<li>存款成功<li><a href=bank.asp>返回银行</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(message&"<meta http-equiv=refresh content=3;url='bank.asp'>")
end sub


sub draw
qmoney=int(Request("qmoney"))
if qmoney>rs("savemoney") then error("<li>您的存款不够！")
if qmoney<1 then error("<li>取款不能为零！")

rs("savemoney")=rs("savemoney")-qmoney+accrual
rs("money")=rs("money")+qmoney
rs("savetime")=now()
rs.update
rs.close
message="<li>取款成功<li><a href=bank.asp>返回银行</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(message&"<meta http-equiv=refresh content=3;url='bank.asp'>")
end sub

sub virement
dxname=HTMLEncode(Request("dxname"))

if dxname=Request.Cookies("username") then error("<li>您输入的是自己的账号？")


qmoney=int(Request("qmoney"))
if qmoney>rs("savemoney") then error"<li>您的帐户余额不够！！"
if qmoney<1000 then error"<li>转帐不能低于1000！"
If conn.Execute("Select id From [user] where username='"&dxname&"'" ).eof Then error("<li>查无"&dxname&"的账号")

rs("savemoney")=rs("savemoney")-qmoney+accrual
rs("savetime")=now()
rs.update
rs.close

conn.execute("update [user] set [money]=[money]+"&qmoney&" where username='"&dxname&"'")

message="<li>转账成功<li><a href=bank.asp>返回银行</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(message&"<meta http-equiv=refresh content=3;url='bank.asp'>")
end sub


%>