<!--#include file=conn.asp-->
<!-- #include file="inc/const.asp" -->
<!--#include file=bank_data.asp-->
<!-- #include file="bank/bank_const.asp" -->
<%
'=========================================================
' file: bank_index.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

if not Dvbbs.FoundUser then
    errmsg=errmsg+errmsg6+"您还没有登录或注册，请先<a href=login.asp>登录</a>或<a href=reg.asp>注册</a>。"
    founderr=true
end if
if founderr then
    Dvbbs.Stats="钱庄错误信息"
    call Dvbbs.Nav()
	call new_head()
    Response.redirect "showerr.asp?ErrCodes="&errmsg&"&action=OtherErr"
else
    Dvbbs.Stats="钱庄列表"
    call Dvbbs.Nav()
	call new_head()
    call main()
end if
call Dvbbs.ActiveOnline()
call Dvbbs.Footer()

sub main()
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
  <tr>
    <th width="100%" height=25 colspan=2>钱庄列表</td>
  </tr>
  <tr>
    <td width="100%" colspan=2 class=tablebody2><center>
      <marquee scrollamount=2 width=80% onmouseover='this.stop()' onmouseout='this.start()'>请选择你想使用的钱庄，各个钱庄实力不一，要选仔细哦</marquee></center>
    </td>
  </tr>
  <tr>
    <td width="40%" class=tablebody2 align=center valign=top>
      <table border="0" width="100%" cellspacing="3">
        <tr>
          <td width="100%">
<%call tradeinfo()%>
          </td>
        </tr>
        <tr>
          <td width="100%">
          <br>
<%call personalinfo()%>
          <br>
            <font color=#ff0000><b>特别说明：</b></font><br>如果贷款未如期还清，那么所押的魅力值将永久失去，望大家好自为之！
            </font>
          </td>
        </tr>
        <tr>
          <td width="100%"></td>
        </tr>
        <tr>
          <td width="100%"></td>
        </tr>
      </table>
    </td>
    <td width="60%" class=tablebody1 valign=top align=center>
    <%
    if not foundbankuser then
        response.write "<br><b>你还没有在任何钱庄开户，请选择下面的钱庄开户：</b><br><br>"
        csql="select * from bank where opened=yes"
        set crs=cjconn.execute (csql)
        if crs.bof and crs.eof then
            response.write "<font color=red><b>抱歉，钱庄还没有正式开启。</b></font>"
        else
            do while not crs.eof
                response.write "<img src=bank/images/bank_left.gif height=9 width=9> <b>"&crs("bankname")&"</b>　<a href=bank_ebank.asp?bankid="&crs("bankid")&"&action=open onclick=""return confirm('是否在此钱庄开户？如选是，钱庄会自动替您存入"&l_trade&curr&"');"">【点此开户】</a>　　<font color=#ff0000><b>开户条件：</b></font>积分到达<font color=#ff0000><b>"&crs("integral")&"</b></font> <img src=bank/images/bank_right.gif height=9 width=9>"
			call bankinfo()
                crs.movenext
            loop
        end if
    else
        response.write "<br><b>以下为你已经开户的钱庄：</b>"
        csql="select * from bank where bankid in ("&bankid_temp&") and opened=yes"
        set crs=cjconn.execute (csql)
        if not crs.bof and not crs.eof then
            do while not crs.eof
                response.write "<br><br><br><img src=bank/images/bank_left.gif height=9 width=9> <b>"&crs("bankname")&"</b>　<a href=bank_main.asp?bankid="&crs("bankid")&">【点此进入】</a> <img src=bank/images/bank_right.gif height=9 width=9>"
                if crs("bankmaster") = Dvbbs.MemberName then
                    isbankmaster=true
                end if
			call bankinfo()
                crs.movenext
            loop
        end if
        response.write "<br><br><b>以下为你未开户的钱庄：</b>"
        csql="select * from bank where bankid not in ("&bankid_temp&") and opened=yes"
        set crs=cjconn.execute (csql)
        if crs.bof and crs.eof then
            response.write "<br><br>没有你未开户的钱庄"
        else
            do while not crs.eof
                response.write "<br><br><br><img src=bank/images/bank_left.gif height=9 width=9> <b>"&crs("bankname")&"</b>　<a href=bank_ebank.asp?bankid="&crs("bankid")&"&action=open onclick=""return confirm('是否在此钱庄开户？如选是，钱庄会自动替您存入"&l_trade&curr&"');"">【点此开户】</a>　　<font color=#ff0000><b>开户条件：</b></font>积分到达<font color=#ff0000><b>"&crs("integral")&"</b></font> <img src=bank/images/bank_right.gif height=9 width=9>"
			call bankinfo()
                crs.movenext
            loop
        end if
    end if
    set crs=nothing
    if U_wealth >= regbank and not isbankmaster then
        response.write "<br><br><br><p align=center>你已经到达申请钱庄的条件，<br>如果想拥有自己的钱庄，<font color=#ff0000><b><a href=bank_reg.asp>请进这里</a></b></font>。</p><br>"
    elseif isbankmaster then
    else
        response.write "<br><br><p align=center>想自己当当掌柜吗？在本钱庄可是有绝对的可能的，<br>只要你有<font color=#ff0000><b>"&regbank&"</b></font>银子，掌柜的职位正在向你招手……</p><br>"
    end if
    %>
    </td>
  </tr>
</table>
<%
end sub

sub bankinfo()
%>
<table border="0" cellspacing="3" align=center style=width:78%>
			<tr><td height="1" colspan="2"></td></tr>
        <tr>
          <td width="100%">
          <%
            response.write "钱庄掌柜：<font color=#990000><a href=dispuser.asp?name="&crs("bankmaster")&" target=_blank title=点击查看该掌柜的详细资料><b>"&crs("bankmaster")&"</b></a></font><br>"
            response.write "钱庄介绍：<font color=#ff0000>"&crs("msg")&"</font><br>存款总额：<font color=#ff0000>"&crs("alldeposit")&"</font><br>现有库金：<font color=#ff0000>"&crs("stockpile")&"</font><br>库存魅力：<font color=#ff0000>"&crs("loveliness")&"</font><br>客户数量：<font color=#ff0000>"&crs("clientcount")&"</font><br>被贷款数：<font color=#ff0000>"&crs("paymentforgoods")&"</font><br>钱庄性质：<font color=red>"
            if crs("everybody") then
                response.write "官方钱庄"
            else
                response.write "私人钱庄"
            end if
            response.write "</font><br>"
          %>
          </td>
        </tr>
          </table>
<%
end sub

sub personalinfo()
%>
 <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><%= 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>
        <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 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:28:13自动添加
sub new_head()
Dvbbs.Head_var 3,0,"钱庄","bank_index.asp"
end sub
%>