<!--#include file=conn.asp-->
<!-- #include file="inc/const.asp" -->
<!--#include file=bank_data.asp-->
<!-- #include file="bank/bank_const.asp" -->
<!--#include file="bank/bank_accrual.asp"-->
<%
'=========================================================
' file: bank_main.asp
' Version:2.1 for Dvbbs7.0
' date: 2004-1-7
' script modified by winriver from yaoyue Version
'=========================================================
' copyright (c) 2004 黄河论坛 all rights reserved.
' web: http://www.paperbridge.net http://www.winriver.org
' email: huanghetv@163.com winriver2002@yahoo.com
'=========================================================
Dvbbs.LoadTemplates("")
If Not IsObject(Conn) Then ConnectionDatabase
dim sql,rs,founderr,i,errmsg
founderr=false

dim nowtime
if not Dvbbs.FoundUser then
    errmsg=errmsg+errmsg6+"您还没有登录或注册，请先<a href=login.asp>登录</a>或<a href=reg.asp>注册</a>。"
    founderr=true
    Dvbbs.Stats="钱庄错误信息"
    call Dvbbs.Nav()
	call new_head()
    Response.redirect "showerr.asp?ErrCodes="&errmsg&"&action=OtherErr"
	call Dvbbs.ActiveOnline()
	call Dvbbs.Footer()
	response.end
end if
if not foundbankuserid then
    founderr=true
    errmsg=errmsg+errmsg6+"您还没有在钱庄开户。"
    Dvbbs.Stats="钱庄错误信息"
    call Dvbbs.Nav()
	call new_head()
    Response.redirect "showerr.asp?ErrCodes="&errmsg&"&action=OtherErr"
end if
if not foundbankid then
    founderr=true
    errmsg=errmsg+errmsg6+"没有这个钱庄；或者该钱庄还没有开放。"
    Dvbbs.Stats="钱庄错误信息"
    call Dvbbs.Nav()
	call new_head()
    Response.redirect "showerr.asp?ErrCodes="&errmsg&"&action=OtherErr"
end if
if userfreeze then
    founderr=true
    errmsg=errmsg+errmsg6+"你在本钱庄的帐号已经被冻结，请联系钱庄掌柜。"
    Dvbbs.Stats="钱庄错误信息"
    call Dvbbs.Nav()
	call new_head()
    Response.redirect "showerr.asp?ErrCodes="&errmsg&"&action=OtherErr"
end if

Dvbbs.Stats=bankname
call Dvbbs.Nav()
	call new_head()
call main()
call Dvbbs.ActiveOnline()

if founderr then
Dvbbs.Stats="钱庄错误信息"
Response.redirect "showerr.asp?ErrCodes="&errmsg&"&action=OtherErr"
end if
call Dvbbs.Footer()

sub main()
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
  <tr>
    <th width="100%" height=25 colspan=2><%=bankname%>柜台</td>
  </tr>
  <tr>
    <td width="100%" colspan=2 class=tablebody2><center>
      <marquee scrollamount=2 width=80% onmouseover='this.stop()' onmouseout='this.start()'><%if isbankmaster then%><a href=bank_masterwork.asp?bankid=<%=bankid%>>欢迎总掌柜光临，若有需要，请<font color=#ff0000>点击进入帐房</font>。</a><%else%>欢迎您光迎<font color=#ff0000><b><%=bankname%></b></font>，本钱庄将竭诚为您服务。本钱庄简介：<%=msg%><%end if%></marquee></center>
    </td>
  </tr>
  <tr>
    <td width="40%" class=tablebody2 rowspan=<%if everybody then%>
7<%else%>6<%end if%> valign=top>
      <table border="0" width="100%" cellspacing="3">
        <tr>
          <td width="50%" valign=top>
          <%
call bankdetail()
          %>
          </td>
        </tr>
        <tr>
          <td width="100%" align=center colspan=2>
<br>
<%call tradeinfo()
          %>
          </td>
        </tr>
        <tr>
          <td width="100%" align=center colspan=2>
<br>
<%call personalinfo()%>
          </td>
        </tr>
        <tr>
          <td width="100%" colspan=2><br>
<%call top10()%>
          </td>
        </tr>
        <tr>
          <td width="100%" colspan=2></td>
        </tr>
        <tr>
          <td width="100%" colspan=2></td>
        </tr>
      </table>
    </td>
    <td width="60%" class=tablebody1 valign=top>

<%
nowtime=hour(now())
'response.write nowtime
if nowtime>=cint(split(openclosetime(0),"|")(0)) and nowtime<cint(split(openclosetime(0),"|")(1)) then
%>

      <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          <font style=color:green;font-size:26px><b>①</b></font>号柜台　<img src=bank/images/bank.gif height=16 width=16> <font color=green><b>活期存取</b></font> <img src=bank/images/bank.gif height=16 width=16>　　本台兼办<a onclick="return confirm('这将把你所有的存款和累计利息加到你的现金上，如果你在本钱庄有贷款，必须先还贷款以后才能销户。如果您有定期存款，请到期再销户。本钱庄销户手续费为<%=log_on%><%=curr%>。您是否真的要销户？');" href="bank_ebank.asp?bankid=<%=bankid%>&action=off"><font color=#cc0000><b>销户</b></font></a>　　<b>营业时间</b>：<%=split(openclosetime(0),"|")(0)%>:00－<%=split(openclosetime(0),"|")(1)%>:00
          <hr>
          </td>
        </tr>
        <tr>
        <form action=bank_ebank.asp?bankid=<%=bankid%>&action=c_d_1 method=post>
          <td width="100%">
          　存入现金：<input type=text name=c_d_1_1 size=16>　<input type=submit name=submit value=存入 <%if stockpile < 10000 then%>onclick="return confirm('该钱庄的库存金额已经只剩下<%=stockpile&curr%>了，你是否还要在该钱庄存款？');"<%end if%>>　<input type=reset name=reset value=重填>
          </td>
          </form>
        </tr>
        <tr>
        <form action=bank_ebank.asp?bankid=<%=bankid%>&action=c_d_2 method=post>
          <td width="100%">　取出现金：<input type=text name=c_d_2_1 size=16>　<input type=submit name=submit value=取出>　<input type=reset name=reset value=重填><hr></td>
        </form>
       </tr>
       <tr>
         <td><table align=center style=width:95%><tr><td><b>说明</b>：<br>　　1、每次存款或在存款处输入 <font color=red><b>0</b></font> ，将自动把利息转为活存；<br>　　2、每次取款或在取款处输入 <font color=red><b>0</b></font> ，将把利息加到你的现金上。</td></tr></table></td>
       </tr>
    </table>
<%else%>
      <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          <font style=color:green;font-size:26px><b>①</b></font>号柜台　<img src=bank/images/bank.gif height=16 width=16> <font color=green><b>活期存取</b></font> <img src=bank/images/bank.gif height=16 width=16>　　<%if split(openclosetime(0),"|")(0)<>split(openclosetime(0),"|")(1) then%>现在尚未到<b>营业时间</b>(<%=split(openclosetime(0),"|")(0)%>:00－<%=split(openclosetime(0),"|")(1)%>:00)<%else%><b>本柜台暂不营业</b><%end if%>
          </td>
        </tr>
</table>
<%end if%>
    </td>
  </tr>
  <tr>
    <td width="60%" class=tablebody2 valign=top>


<%if nowtime>=cint(split(openclosetime(1),"|")(0)) and nowtime<cint(split(openclosetime(1),"|")(1)) then
%>


    <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          <font style=color:green;font-size:26px><b>②</b></font>号柜台　<img src=bank/images/bank.gif height=16 width=16> <font color=green><b>定期存款</b></font> <img src=bank/images/bank.gif height=16 width=16>　　本台兼办<a onclick="return confirm('这将把你所有的存款和累计利息加到你的现金上，如果你在本钱庄有贷款，必须先还贷款以后才能销户。如果您有定期存款，请到期再销户。本钱庄销户手续费为<%=log_on%><%=curr%>是否真的要销户？');" href="bank_ebank.asp?bankid=<%=bankid%>&action=off"><font color=#cc0000><b>销户</b></font></a>　　<b>营业时间</b>：<%=split(openclosetime(1),"|")(0)%>:00－<%=split(openclosetime(1),"|")(1)%>:00
          <hr>
          </td>
        </tr>
        <tr>
        <form action=bank_ebank.asp?bankid=<%=bankid%>&action=t_d_1 method=post>
          <td width="100%">
          　存入现金：<input type=text name=t_d_1_1 size=16> 选择时长：
          <select name=timelong>
          <option value=10>十天</option>
          <option value=20>二十天</option>
          <option value=30>三十天</option>
          <option value=40>四十天</option>
          <option value=50>五十天</option>
          <option value=60>六十天</option>
          </select>
          　<input type=submit name=shubmit value=存入 <%if stockpile < 10000 then%>onclick="return confirm('该钱庄的库存金额已经只剩下<%=stockpile&curr%>了，你是否还要在该钱庄存款？');"<%end if%>>　<input type=reset name=reset value=重填>
          <hr></td>
        </form>
        </tr>
        <%
          csql="select tid,timedeposit,t_accrual,datecount,dateandtime from timedeposit where bankuserid="&bankuserid
          set crs=cjconn.execute (csql)
          if not crs.bof and not crs.eof then
              do while not crs.eof
                  if datediff("d",datediff("d",crs(4),now()),crs(3))<=0 then
                      response.write "<form action=bank_ebank.asp?bankid="&bankid&"&action=t_d_2 method=post>"
                      response.write "<tr><td width='100%'><input type='hidden' name='tid' value='"&crs(0)&"'>"
                      response.write "　定存款项：<input type=text name=t_d_2_1 size=16 value="&crs(1)&"> <select name=timelong><option value=10>10天</option><option value=20>20天</option><option value=30>30天</option><option value=40>40天</option><option value=50>50天</option><option value=60>60天</option></select>　<select name=selects><option value=1>取出存款</option><option value=2>转入活存</option><option value=3>延长存期</option></select>　<input type=submit name=submit value=操作>"
                      response.write "<hr></td></tr></form>"
                  end if
                  crs.movenext
              loop
          end if
        %>
        <tr>
          <td><table align=center style=width:95%><tr><td><b>注意</b>：<br>　　1、定期存款后，只有你选择的时间到了，才会出现相关的操作；<br>　　2、当出现相关操作时，如果选取款，请不要修改原值；<br>　　3、转活存不能把数值减小，只能增加或不改；<br>　　4、进行延期时数值可增可减，但减少不能减至<font color=#ff0000><b><%= l_timedeposit %></b></font>以下，增加的部分不能大于你的现金。<br>　　5、取款和延期都把利息加到现金，转活把利息也转成活存，延期如果减少存款，减去的部分将加到现金。</td></tr></table></td>
        </tr>
    </table>
<%else%>
      <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          <font style=color:green;font-size:26px><b>②</b></font>号柜台　<img src=bank/images/bank.gif height=16 width=16> <font color=green><b>定期存款</b></font> <img src=bank/images/bank.gif height=16 width=16>　　<%if split(openclosetime(1),"|")(0)<>split(openclosetime(1),"|")(1) then%>现在尚未到<b>营业时间</b>(<%=split(openclosetime(1),"|")(0)%>:00－<%=split(openclosetime(1),"|")(1)%>:00)<%else%><b>本柜台暂不营业</b><%end if%>
          </td>
        </tr>
</table>
<%end if%>
    </td>
  </tr>
  <tr>
    <td width="60%" class=tablebody1 valign=top>

<%if nowtime>=cint(split(openclosetime(2),"|")(0)) and nowtime<cint(split(openclosetime(2),"|")(1)) then
%>

    <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          <font style=color:green;font-size:26px><b>③</b></font>号柜台　<img src=bank/images/bank.gif height=16 width=16> <font color=green><b>魅力买卖</b></font> <img src=bank/images/bank.gif height=16 width=16>　　<b>营业时间</b>：<%=split(openclosetime(2),"|")(0)%>:00－<%=split(openclosetime(2),"|")(1)%>:00
          <hr>
          </td>
        </tr>
        <form action=bank_ebank.asp?bankid=<%=bankid%>&action=b_loveliness method=post>
        <tr>
          <td width="100%">　买 <input type=text name=b_ls size=16> 点魅力　　<input type=submit name=submit value=买入>　<input type=reset name=reset value=重填></td>
        </tr>
        </form>
        <form action=bank_ebank.asp?bankid=<%=bankid%>&action=p_loveliness method=post>
        <tr>
          <td width="100%">　卖 <input type=text name=p_ls size=16> 点魅力　　<input type=submit name=submit value=卖出>　<input type=reset name=reset value=重填><hr></td></tr>
        <tr>
          <td><table align=center style=width:95%><tr><td><b>说明</b>：<br>　　1、本钱庄每点魅力卖出价为<font color=#ff0000><b><%=zhml*4%></b></font><%=curr%>，收购价为<font color=#ff0000><b><%=zhml*2%></b></font><%=curr%>。<br>　　2、您卖魅力时，最少要卖<font color=#ff0000><b><%=l_trade/(zhml*2)%></b></font>点，最多不能超过<font color=#ff0000><b><%=h_trade/(zhml*2)%></b></font>点。<br>　　3、您买魅力时，最少要买<font color=#ff0000><b><%=l_trade/(zhml*4)%></b></font>点，最多不能超过<font color=#ff0000><b><%=h_trade/(zhml*4)%></b></font>点。</td></tr></table></td>
        </tr>
        </form>
    </table>
<%else%>
      <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          <font style=color:green;font-size:26px><b>③</b></font>号柜台　<img src=bank/images/bank.gif height=16 width=16> <font color=green><b>魅力买卖</b></font> <img src=bank/images/bank.gif height=16 width=16>　　<%if split(openclosetime(2),"|")(0)<>split(openclosetime(2),"|")(1) then%>现在尚未到<b>营业时间</b>(<%=split(openclosetime(2),"|")(0)%>:00－<%=split(openclosetime(2),"|")(1)%>:00)<%else%><b>本柜台暂不营业</b><%end if%>
          </td>
        </tr>
</table>
<%end if%>

    </td>
  </tr>
  <tr>
    <td width="60%" class=tablebody2 valign=top>


<%if nowtime>=cint(split(openclosetime(3),"|")(0)) and nowtime<cint(split(openclosetime(3),"|")(1)) then
%>

    <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          <font style=color:green;font-size:26px><b>④</b></font>号柜台　<img src=bank/images/bank.gif height=16 width=16> <font color=green><b>魅力信贷</b></font> <img src=bank/images/bank.gif height=16 width=16>　　<b>营业时间</b>：<%=split(openclosetime(3),"|")(0)%>:00－<%=split(openclosetime(3),"|")(1)%>:00
          <hr>
          </td>
        </tr>
        <tr>
        <form action=bank_ebank.asp?bankid=<%=bankid%>&action=p_f_1 method=post>
          <td width="100%">
          　用 <input type=text name=pfg size=16> 点魅力来贷款　<input type=submit name=submit value=贷款>　<input type=reset name=reset value=重填>
          <hr></td>
        </form>
        </tr>
        <%
          csql="select pid,paymentforgoods,dateandtime from paymentforgoods where bankuserid="&bankuserid
          set crs=cjconn.execute (csql)
          if not crs.bof and not crs.eof then
              do while not crs.eof
                  if datediff("d",datediff("d",crs(2),now()),p_datecount)<=0 then
                      response.write "<form action=bank_ebank.asp?bankid="&bankid&"&action=p_f_2 method=post>"
                      response.write "<tr><td width='%100'><input type='hidden' name='pid' value='"&crs(0)&"'>"
                      response.write "　您所贷款项：<input type=text name=pf2 size=10 value="&crs(1)&">　<input type=submit name=submit value=偿还>　本笔贷款离最后时间还有：<font color=#ff0000><b>"&datediff("d",datediff("d",crs(2),now()),p_repay)&"</b></font>天"
                      response.write "<hr></td></tr></form>"
                  end if
                  crs.movenext
              loop
          end if
          set crs=nothing
        %>
        <tr>
          <td><table align=center style=width:95%><tr><td><b>注意</b>：<br>　　1、贷款后必须<font color=#ff0000><b><%=p_datecount%></b></font>天后才能开始还款，在<font color=#ff0000><b><%=p_datecount%></b></font>天以内不会出现相关的操作。<br>　　2、每笔贷款都可以分期还清，每次最少必须还<font color=#ff0000><b><%=l_trade%></b></font><%=curr%>，期数不限，只要是在 <font color=#ff0000><b><%=p_repay%></b></font> 天内就行。<br>　　3、本钱庄每点魅力可以贷<font color=#ff0000><b><%=zhml%></b></font><%=curr%>，您最少要使用魅力<font color=#ff0000><b><%=l_trade/zhml%></b></font>点，最多不能超过<font color=#ff0000><b><%=h_trade/zhml%></b></font>点。</td></tr></table></td>
        </tr>
    </table>


<%else%>
      <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          <font style=color:green;font-size:26px><b>④</b></font>号柜台　<img src=bank/images/bank.gif height=16 width=16> <font color=green><b>魅力信贷</b></font> <img src=bank/images/bank.gif height=16 width=16>　　<%if split(openclosetime(3),"|")(0)<>split(openclosetime(3),"|")(1) then%>现在尚未到<b>营业时间</b>(<%=split(openclosetime(3),"|")(0)%>:00－<%=split(openclosetime(3),"|")(1)%>:00)<%else%><b>本柜台暂不营业</b><%end if%>
          </td>
        </tr>
</table>
<%end if%>

    </td>
  </tr>
  <tr>
    <td width="60%" class=tablebody1 valign=top>


<%if nowtime>=cint(split(openclosetime(4),"|")(0)) and nowtime<cint(split(openclosetime(4),"|")(1)) then
%>

    <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          <font style=color:green;font-size:26px><b>⑤</b></font>号柜台　<img src=bank/images/bank.gif height=16 width=16> <font color=green><b>汇款转账</b></font> <img src=bank/images/bank.gif height=16 width=16>　<a href=bank_clientevents.asp?bankid=<%=bankid%>><font color=green>客户查询</font></a>　　<b>营业时间</b>：<%=split(openclosetime(4),"|")(0)%>:00－<%=split(openclosetime(4),"|")(1)%>:00
          <hr>
          </td>
        </tr>
        <%if U_ep>=ep then%>
        <tr>
        <form action=bank_ebank.asp?bankid=<%=bankid%>&action=vir method=post>
          <td width="100%">　转 <input type=text name=bvir size=10> 给 <input type=text name=bankuser size=10>　<input type=submit name=submit value=转出>　<input type=reset name=reset value=重填></td>
        </form>
        </tr>
        <tr>
        <form action=bank_ebank.asp?bankid=<%=bankid%>&action=r_e_m method=post>
          <td width="100%">　汇 <input type=text name=bremit size=10> 到 <input type=text name=takbank_ebank size=10> 给 <input type=text name=bankuser size=10>　<input type=submit name=submit value=汇出>　<input type=reset name=reset value=重填><hr></td></tr>
          <tr><td><table align=center style=width:95%><tr><td><b>说明</b>：<br>　　1、庄内交易为转账，异庄间交易为汇款，请详查对方资料并确定自己要哪种交易，认真填写上表。<br>　　2、转账第一个方框填要转的账目，第二个方框填收款人。<br>　　3、汇款时请依次填入要汇的款数，要汇到的钱庄，以及收款人。<br><font color=#ff0000>　　<b>特别提醒：</b></font>转帐或汇款后千万不要进行刷新，否则就等于再转或再汇一次，切记！</td></tr></table>
          </td>
       </form>
       </tr>
       <%
       else
       response.write "<tr><td width='100%' align=center>本钱庄掌柜设定，必须是积分大于"&ep&"的会员才能汇款转账</td></tr>"
       end if
       %>
    </table>

<%else%>
      <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          <font style=color:green;font-size:26px><b>⑤</b></font>号柜台　<img src=bank/images/bank.gif height=16 width=16> <font color=green><b>汇款转账</b></font> <img src=bank/images/bank.gif height=16 width=16>　　<%if split(openclosetime(4),"|")(0)<>split(openclosetime(4),"|")(1) then%>现在尚未到<b>营业时间</b>(<%=split(openclosetime(4),"|")(0)%>:00－<%=split(openclosetime(4),"|")(1)%>:00)<%else%><b>本柜台暂不营业</b><%end if%>
          </td>
        </tr>
</table>
<%end if%>

    </td>
  </tr>
<%if everybody then%>
  <tr>
    <td width="60%" class=tablebody2 valign=top>
      <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          <font style=color:green;font-size:26px><b>⑥</b></font>号柜台　<img src=bank/images/bank.gif height=16 width=16> <font color=green><b>特殊服务</b></font> <img src=bank/images/bank.gif height=16 width=16>　　<a href=bank_fuwu.asp?bankid=<%=bankid%>><font color=#cc0000><b>点此进入</font></b></a>
          </td>
        </tr>
        </tr>
       <tr>
         <td><hr><table align=center style=width:95%><tr><td><b>说明</b>：<br>　　1、购买经验值、魅力值、威望值和发帖数；<br>　　2、发布公告、群发短信、查看ip、删除短信得环保奖金。</td></tr></table></td>
       </tr>
</table>
    </td>
  </tr>

<%end if%>

  <tr>
    <td width="60%" class=tablebody2 valign=top>
    <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          <img src=bank/images/bank.gif height=16 width=16> <font style=color:green;font-size:16px;font-family:黑体>个人账目</font> <img src=bank/images/bank.gif height=16 width=16>　<%if openeventslog then%>该钱庄实行事件记录，你的详细记录请看：<a href=bank_clientevents.asp?bankid=<%=bankid%>&action=events><font color=green>我的记录</font></a><%elseif Dvbbs.master then%><a href=bank_clientevents.asp?bankid=<%=bankid%>&action=events><font color=green>事件记录</font></a><%else%>以下是你个人交易最近的钱庄记录<%end if%>
          <hr>
          </td>
        </tr>
        <tr>
          <td width="100%">
<table cellpadding=5 cellspacing=1 class=tableborder1 align="center" style=width:98%>              <tr align=center>
                <td class=tablebody2 width="40%">交易时间</td>
                <td class=tablebody2 width="20%">事件</td>
                <td class=tablebody2 width="20%">金额(交易金)</td>
                <td class=tablebody2 width="25%">余额(现金)</td>
              </tr>
              <tr align=center>
                <td class=tablebody1 width="40%"><%=events(2)%></td>
                <td class=tablebody1 width="20%"><%=events(1)%></td>
                <td class=tablebody1 width="20%"><%=events(0)%></td>
                <td class=tablebody1 width="20%"><%=U_Wealth%></td>
              </tr>
            </table>
          </td>
        </tr>
    </table>
    </td>
  </tr>
</table>
<%
end sub

sub bankdetail()
%>
 <table cellpadding=5 cellspacing=1 class=tableborder1 align="center" style=width:98%>
  <tr> 
    <th align="center"><%=bankname%>信息</td>
    <th align="center">掌柜信息</td>
  </tr>
  <tr> 
    <td align="center" class=tablebody2 width=60%>
<table border="0" width="95%" cellspacing="3" align=center>
        <tr>
          <td width="100%">
          <%
            response.write "钱庄掌柜：<font color=#990000><a href=dispuser.asp?name="&bankmaster&" target=_blank title=点击查看该掌柜的详细资料><b>"&bankmaster&"</b></a></font><br>"
            response.write "存款总额：<font color=#ff0000>"&alldeposit&"</font><br>现有库金：<font color=#ff0000>"&stockpile&"</font><br>库存魅力：<font color=#ff0000>"&loveliness&"</font><br>客户数量：<font color=#ff0000>"&clientcount&"</font><br>被贷款数：<font color=#ff0000>"&bpaymentforgoods&"</font><br>钱庄性质：<font color=red>"
            if everybody then
                response.write "官方钱庄"
            else
                response.write "私人钱庄"
            end if
            response.write "</font>"
          %>
      </td></tr></table>
	</td>
    <td align="center" class=tablebody2 width=40% valign=top>
<table border="0" width="90%" cellspacing="3" align=center>
        <tr>
          <td width="100%">
          <%
          response.write "现金：<font color=#ff0000>"&buserwealth&"</font><br>积分：<font color=#ff0000>"&buserep&"</font><br>魅力：<font color=#ff0000>"&busercp&"</font>"
          %>
      </td></tr></table>
	</td>
  </tr>
</table>
<%
end sub

sub personalinfo()
%>
 <table cellpadding=5 cellspacing=1 class=tableborder1 align="center" style=width:98%>
      <tr><th colspan="2">你在<%=bankname%>的财务状况</th></tr>
        <tr> 
          <td align="center" class=tablebody2 width=50%>现金总数</td>
          <td align="center" class=tablebody1 width=50%><b><%= U_Wealth %></b></td>
        </tr>
        <tr> 
          <td align="center" class=tablebody2>积分值</td>
          <td align="center" class=tablebody1><b><%= U_ep %></b></td>
        </tr>
        <tr> 
          <td align="center" class=tablebody2>魅力值</td>
          <td align="center" class=tablebody1><b><%= U_cp %></b></td>
        </tr>
        <tr> 
          <td align="center" class=tablebody2>活期存款总数</td>
          <td align="center" class=tablebody1><b><%= currdeposit %></b></td>
        </tr>
        <tr> 
          <td align="center" class=tablebody2>所得活存利息</td>
          <td align="center" class=tablebody1><b><%= c_accrual %></b></td>
        </tr>
        <tr> 
          <td align="center" class=tablebody2>定期存款总数</td>
          <td align="center" class=tablebody1><b><%= timedeposit %></b></td>
        </tr>
<% if not isnull(dateandtime) then%>
        <tr> 
          <td align="center" class=tablebody2>定期存款情况<br>(只列出最后一笔)</td>
<%if datecount-datediff("d", dateandtime, now())>0 then%>
          <td class=tablebody1 align=left>日期：<b><%= formatdatetime(dateandtime,1) %></b><br>存期：<b><%= datecount %></b>天<br>还剩：<b><%= datecount-datediff("d", dateandtime, now()) %></b>天到期</td>
<%else%>
          <td class=tablebody1 align=left>日期：<b><%= formatdatetime(dateandtime,1) %></b><br>存期：<b><%= datecount %></b>天<br>您已经存了<b><%= datediff("d", dateandtime, now()) %></b>天</td>
<%end if%>
        </tr>
<%end if%>
        <tr> 
          <td align="center" class=tablebody2>所得定存利息</td>
          <td align="center" class=tablebody1><b><%= t_accrual %></b></td>
        </tr>
        <tr> 
          <td align="center" class=tablebody2>贷款总数</td>
          <td align="center" class=tablebody1><b><%= paymentforgoods %></b></td>
        </tr>
        <tr> 
          <td align="center" class=tablebody2>贷款应付利息</td>
          <td align="center" class=tablebody1><b><%= p_accrual %></b></td>
        </tr>
        <tr> 
          <td align="center" class=tablebody2>贷款所押魅力</td>
          <td align="center" class=tablebody1><b><%= bydetaincp %></b></td>
        </tr>
    </table>
<%
end sub

sub top10()
%>
 <table cellpadding=5 cellspacing=1 class=tableborder1 align="center" style=width:98%>
  <tr> 
    <th align="center" colspan=3><%=bankname%>存款排行前10名</td>
  </tr>
              <tr>
                <td class=tablebody2 align=center width="40%">用户名</td>
                <td class=tablebody2 align=center width="30%">活期存款</td>
                <td class=tablebody2 align=center width="30%">定期存款</td>
              </tr>
              <%
                csql="select top 10 name,currdeposit,timedeposit from bankuser where bankid="&bankid&" order by currdeposit+timedeposit desc"
                set crs=cjconn.execute (csql)
                if crs.bof and crs.eof then
                    response.write "<tr><td class=tablebody1 align=center width='100%' colspan=3>还没有任何用户</td></tr>"
                else
                    i=0
                    do while not crs.eof
                        i=i+1
              %>
              <tr>
                <td class=tablebody1 align=center width="33%"><a href=dispuser.asp?name=<%=crs(0)%> target=_blank><%=crs(0)%></a></td>
                <td class=tablebody1 align=center width="33%"><%=crs(1)%></td>
                <td class=tablebody1 align=center width="34%"><%=crs(2)%></td>
              </tr>
              <%
                        if i>10 then exit do
                        crs.movenext
                    loop
                end if
              %>
</table>
<%
end sub



sub tradeinfo()
%>
 <table cellpadding=5 cellspacing=1 class=tableborder1 align="center" style=width:98%>
  <tr> 
    <th colspan="2">钱庄交易信息</th>
  </tr>
  <tr> 
    <td align="center" class=tablebody2 width=60%>最低单笔交易额</td>
    <td align="center" class=tablebody1 width=40%><b><%= l_trade %></b></td>
  </tr>
  <tr> 
    <td align="center" class=tablebody2>最高单笔交易额</td>
    <td align="center" class=tablebody1><b><%= h_trade %><b></td>
  </tr>
  <tr> 
    <td align="center" class=tablebody2>最低单笔定存额</td>
    <td align="center" class=tablebody1><b><%= l_timedeposit %></b></td>
  </tr>
  <tr> 
    <td align="center" class=tablebody2>最高单笔定存额</td>
    <td align="center" class=tablebody1><b><%= h_timedeposit %></b></td>
  </tr>
  <tr> 
    <td align="center" class=tablebody2>活存日利率</td>
    <td align="center" class=tablebody1><b><%= c_dateprofit %></b></td>
  </tr>
  <tr> 
    <td align="center" class=tablebody2>定存日利率</td>
    <td align="center" class=tablebody1><b><%= t_dateprofit %></b></td>
  </tr>
  <tr> 
    <td align="center" class=tablebody2>贷款日利率</td>
    <td align="center" class=tablebody1><b><%= p_dateprofit %></b></td>
  </tr>
  <tr> 
    <td align="center" class=tablebody2>贷款偿还期限</td>
    <td align="center" class=tablebody1><b><%= p_repay %></b>天以内</td>
  </tr>
  <tr> 
    <td align="center" class=tablebody2>贷款最少天数</td>
    <td align="center" class=tablebody1><b><%= p_datecount %></b>天</td>
  </tr>
  <tr> 
    <td align="center" class=tablebody2>转账手续费率</td>
    <td align="center" class=tablebody1><b><%= virement %></b>%(最低10<%=curr%>)</td>
  </tr>
  <tr> 
    <td align="center" class=tablebody2>汇款手续费率</td>
    <td align="center" class=tablebody1><b><%= remit %></b>%(最低10<%=curr%>)</td>
  </tr>
</table>
<%
end sub
%>

<%
'黄河7.0插件自助升级器2004-1-7 17:35:07自动添加
sub new_head()
Dvbbs.Head_var 3,0,"钱庄","bank_index.asp"
end sub
%>