<!-- #include file="setup.asp" -->
<%
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXX                                      XXX 
'XXX         XXXXXXXX      XXXXXX         XXX
'XXX            XX       XX               XXX 
'XXX            XX       XX               XXX
'XXX            XX       XX               XXX
'XXX            XX         XXXXXX         XXX
'XXX                                      XXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'#------------------------------------------#
'#　　    　TCbbs for BBSXP                 #
'#　　　　　　　　　　　　　　　　　　　　　#
'#　　本插件由同策论坛花之残制作如果有错，  #
'#  请通知我吧，请保留版权信息！    　　　  #
'#　　　　　　　QICQ:2724816                #
'#　　　　　　　谢谢您使用本程序 花之残     #
'#　　　　　　　E-mail:lxb830125@163.com    #
'#　　　　　　　http://www.tcbbs.com.cn     #
'#                                          #
'#------------------------------------------#
top
if Request.Cookies("username")=empty then error("<li>您还未<a href=login.asp>登录</a>社区")
if Request.Cookies("username")="禁止进入的用户1" or Request.Cookies("username")="禁止进入的用户2" then error2("对不起，您的存款已被冻结，如有疑义，请和区长联系。")'禁止进入银行的用户名单，多个用户请参照此格式
sql="select * from [user] where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1,3
if rs("membercode")<2 then
if rs("magicpower")<100 or rs("power")<100 then error2("您的魅力值或威望值还未到100，无法进入银行！")
end if
accrual=fix(rs("savemoney")/1000*(now-rs("savetime")))


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

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

<br>
<table width="<%=dkuan%>"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="39%"><table width="86%"  border="0" cellspacing="0" cellpadding="0" align="center">
      <tr>
        <td valign="middle" align="center" height="160"><img src="images/plus/BANK.GIF"></td>
      </tr>
      <tr>

        <td>　<table border="0" cellpadding="4" cellspacing="1" class=a2>

<tr>
<td colspan="2" class=a1 align="center"><b>您的银行账号</b></td>
</tr>
<tr class=a4>
<td width="31%" align="center">现金：</td>
<td width="69%"><b><font color="aa0000"><%=rs("money")%> </font>金币</b></td>
</tr>
<tr class=a4>
<td align="center">利息：</td>
<td><b><font color="aa0000"><%=accrual%></font> 金币</b></td>
</tr>
<tr class=a4>
<td align="center">存款：</td>
<td><b><font color="aa0000"><%=rs("savemoney")%></font> 金币</b></td>
</tr>
<tr class=a4>
<td align="center">总共：</td>
<td><b><font color="aa0000"><%=rs("savemoney")+rs("money")+accrual%></font>金币</b></td>
</tr>
<tr class=a4>
<td align="center">存款时间：</td>
<td><%=rs("savetime")%></td>
</tr>
<tr class=a4>
<td colspan="2">本银行的利息为每天 <font color="#FF0000"><b>0.1%</b></font>，每次存款、取款自动结算利息。</td>
</tr>
</table></td>
      </tr>
   </table></td>

<td width="61%" valign="bottom">

<TABLE cellSpacing=1 cellPadding=1 width="97%" border=0 class=a2 align=center>
<td class=a1 height="25" align=center>&nbsp; <b>银行存取情况 </td>
<tr class=a4>
<td height="30" align="left">
<form action="bank.asp" method="post"><input type=hidden name=menu value="save">
　<font face=Wingdings>v</font>&nbsp;<b>我要存款</b>&nbsp; 我要存
<input size="10" value="1000" name="qmoney" MAXSIZE="32"><b> 金币</b><input type="submit" value=" 存 了 " name="B2">&nbsp; 您有现金 <%=rs("savemoney")%><b>金币</b></td> </form>
</tr>

<tr class=a4>
<td height="30" align="left">
<form action="bank.asp" method="post"><input type=hidden name=menu value="draw">
　<font face=Wingdings>v</font>&nbsp;<b>我要取款</b>&nbsp; 我要取
<input size="10" value="1000" name="qmoney" MAXSIZE="32"><b> 金币</b><input type="submit" value=" 取 了 " name="B2">&nbsp; 您有存款 <%=rs("savemoney")%><b>金币</b></td> </form>
</tr>

<tr class=a4>
<td height="30" align="left">
<form action="bank.asp" method="post"><input type=hidden name=menu value="virement">
　<font face=Wingdings>v</font>&nbsp;<b>我要转帐</b>&nbsp; 我要将 
<input size="5" value="100" name="qmoney" MAXSIZE="32"><b> 金币</b> 转到<input size="10" name="dxname" MAXSIZE="32"> 的账户<input type="submit" value=" 确 定 " name="B2"></td> </form>
</table>

<br>
<TABLE cellSpacing=1 cellPadding=1 width="97%" border=0 class=a2 align=center>
<TR>
<td height=22 colspan="2" class=a1 align="center"><b>银行行长</b></td>
</TR>
<TR height=28 class=a4> 
<TD align=middle> <p align=center><font color="#FF0000"><%
Sql="Select username,userface FROM [user] Where membercode=6  Order by savemoney Desc,username"
Set Rs = Conn.Execute(Sql)
i=1
Do While Not Rs.Eof
%>
<a href="profile.asp?username=<%=rs("username")%>"><b><font color="#FF0000"><%= rs("username") %></font></b></a><img border=0 src="<%= rs("userface") %>" onload='javascript:if(this.width>60)this.width=60'>
<%Rs.Movenext
i=i+1
Loop
%> </font>
</TD>
</TR>
</TABLE>
<br>


<TABLE cellSpacing=1 cellPadding=1 width="98%" border=0 class=a2 align=center>
<tr>
<td width="50%" colspan="4" class=a1 align="center"><b><%=clubname%>十大财富人物</b></td>
</tr>
<td height="62" class=a4 align="center" valign="middle"><%
Sql="Select username,savemoney FROM [user] Where savemoney>10000 Order by savemoney Desc,username"
Set Rs = Conn.Execute(Sql)
i=1
Do While Not RS.EOF
%>
<a href="profile.asp?username=<%=rs("username")%>"><b><%= rs("username") %></b>：</a>[<font color="#FF0000"><%=rs("savemoney")%></font>]元
<%RS.MoveNext
i=i+1
loop   
%>
</td>
</table>


</td>
  </tr>
</table>
<br>



<%
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 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>您输入的是自己的账号？")

totalpost= rs("postrevert")+rs("posttopic")
if totalpost<100 then error("<li>您的发帖量不够100还不能使用银行转帐功能！")


qmoney=int(Request("qmoney"))
if qmoney>rs("savemoney") then error"<li>您的帐户余额不够！！"
if qmoney<100 then error"<li>转帐不能低于100！"
if rs("savemoney")-qmoney <50 then error("<li>对不起，必须得留下50元来支付转帐手续费！")
If conn.Execute("Select id From [user] where username='"&dxname&"'" ).eof Then error("<li>查无"&dxname&"的账号")

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

conn.execute("update [user] set [savemoney]=[savemoney]+"&qmoney&" where username='"&dxname&"'")
sql="insert into message(author,incept,content) values ('"&Request.Cookies("username")&"','"&dxname&"','<font color=0000FF>【系统消息】："&Request.Cookies("username")&"转给你"&qmoney&"金币，请在银行存款中查收！</font>')"
conn.Execute(SQL)
conn.execute("update [user] set newmessage=newmessage+1 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


%>
