z_bank_index.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config.asp" -->
<!-- #include file="INCLUDE/skin.asp" -->
<!--#include file="include/conn.asp"-->
<!--#include file="z_bank_data.asp"-->
<!--#include file="z_bank_const.asp"-->
<%
'=========================================================
' File: bank_ClientEvents.asp
' Version:1.0
' Date: 2003-7-20
' Script Written by 冰语，倚天电子，http://et8.126.com
'=========================================================
' Copyright (C) 2002,2003 et8.126.Com. All rights reserved.
' Web: ,http://et8.126.com
' Email: [e-mail]
'=========================================================
if login_username="" or login_username="guest" then
    FoundErr=true
    tit="银行错误信息"
    Errmsg=Errmsg+"<br>"+"<li>您还没有登录或注册，请先<a href=login.asp>登录</a>或<a href=reg.asp>注册</a>。</li>"
end if
if FoundErr then
    tit="银行错误信息"
    call web_head(1,0,2,0,0)
    call bank_error()
   'call web_end(0)
else
    tit="银行中心"
    call web_head(1,0,2,0,0)
    call main()
    call web_end(0)
end if


sub main
%>
<div align="center">
  <center>
<table cellpadding=3 class=tableborder1 width="98%" border="2" bordercolor=<%response.write web_var(web_color,3)%>>
  <tr class=bg_2>
    <th width="100%" height=25 colspan=2>银行中心</td>
  </tr>
  <tr>
    <td width="100%" colspan=2 class=bg_3>
      <marquee behavior="alternate">请选择你要进入的银行，各个银行，实力不一，要选仔细哦</marquee>
    </td>
  </tr>
  <tr>
    <td width="40%" class=tablebody2>
      <table border="0" width="100%" cellspacing="3">
        <tr>
          <td width="100%"></td>
        </tr>
        <tr>
          <td width="100%" align=center>
            <table border=1 cellpadding=10 width="100%" bordercolor=<%response.write web_var(web_color,3)%>>
              <tr>
                <td width="100%">
                <font color=#000066><b>个人财务状况</b>：</font><br>
                <%
                 response.write "现 金 总 数 ：　　　　<font color=#ff0000><b>"&usermoney&"</b></font>"&Curr&"<br>"
                 response.write "积　分　值　：　　　　<font color=#ff0000><b>"&uintegral&"</b></font>分<br>"
                 response.write "魅　力　值　：　　　　<font color=#ff0000><b>"&myuserCP&"</b></font>点<br>"
                 response.write "活期存款总数：　　　　<font color=#ff0000><b>"&CurrDeposit&"</b></font>"&Curr&"<br>"
                 response.write "活存利息总数：　　　　<font color=#ff0000><b>"&C_Accrual&"</b></font>"&Curr&"<br>"
                 response.write "定期存款总数：　　　　<font color=#ff0000><b>"&TimeDeposit&"</b></font>"&Curr&"<br>"
                 response.write "定存利息总数：　　　　<font color=#ff0000><b>"&T_Accrual&"</b></font>"&Curr&"<br>"
                 response.write "贷 款 总 数 ：　　　　<font color=#ff0000><b>"&PaymentForGoods&"</b></font>"&Curr&"<br>"
                 response.write "贷款利息总数：　　　　<font color=#ff0000><b>"&P_Accrual&"</b></font>"&Curr&"<br>"
                 response.write "贷款所押魅力：　　　　<font color=#ff0000><b>"&ByDetainCP&"</b></font>点<br>"
                %>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr>
          <td width="100%"><img src=images/img_bank/line.gif width=288 height=20><br>
            <FONT color=#885200><BR>　
            最低单笔交易额： <font color=#ff0000><b><%=L_trade%></b></font> <%=Curr%><br>
　          最高单笔交易额： <font color=#ff0000><b><%=H_trade%></b></font> <%=Curr%><br>
         　 最低单笔定存额： <font color=#ff0000><b><%=L_TimeDeposit%></b></font> <%=Curr%><br>
　          最高单笔定存额： <font color=#ff0000><b><%=H_TimeDeposit%></b></font> <%=Curr%><br>
　          活存日利率：　　 <font color=#ff0000><b><%=C_DateProfit%>%</b></font><br>
         　 定期存款日利率： <font color=#ff0000><b><%=T_DateProfit%>%</b></font><br>
　          贷款日利率：　　 <font color=#ff0000><b><%=P_DateProfit%>%</b></font><br>
　          贷款偿还期限：　 <font color=#ff0000><b><%=P_Repay%></b></font> 天以内<br>
　          贷款最少天数：　 <font color=#ff0000><b><%=P_DateCount%></b></font> 天<br>
　          转账手续费率：　 <font color=#ff0000><b><%=virement%>%</b></font> (最低 10 <%=Curr%>)<br>
　          汇款手续费率：　 <font color=#ff0000><b><%=remit%>%</b></font> (最低 10 <%=Curr%>)<br><br>
            <font color=#ff0000><b>特别说明：</b></font>贷款如不及时还清，那么所押的魅力值将永久失去，请好自为之！
            </FONT>
          </td>
        </tr>
        <tr>
          <td width="100%"></td>
        </tr>
        <tr>
          <td width="100%"></td>
        </tr>
      </table>
    </td>
    <td width="60%" class=tablebody1 valign=top>
    <%
    if not FoundBankUser then
        Response.Write "<blockquote><b>你还没有在任何银行开户，请选择下面的银行开户：</b></blockquote>"
        csql="select bankid,bankmaster,bankname,Integral from bank where opened=yes"
        set crs=cjconn.execute (csql)
        if crs.bof and crs.eof then
            Response.Write "<blockquote><b>抱歉，社区银行还没有正式开启。</b></blockquote>"
        else
            do while not crs.eof
                response.write "<blockquote><img src=images/img_bank/bank_left.gif height=9 width=9> <a href=z_bank_ebank.asp?bankid="&crs(0)&"&action=open onclick=""return confirm('是否在此银行开户？');"" alt='点击在此银行开户'>"&crs(2)&"</a>　<b>行长</b>："&crs(1)&"　<font color=#ff0000><b>开户条件：</b></font>积分到达<font color=#ff0000><b>"&crs(3)&"</b></font> <img src=images/img_bank/bank_right.gif height=9 width=9></blockquote>"
                crs.movenext
            loop
        end if
    else
        response.write "<blockquote><b>======你已开户的银行======</b></blockquote>"
        csql="select bankid,bankmaster,bankname from bank where bankid in ("&bankid_temp&") and opened=yes"
        set crs=cjconn.execute (csql)
        if not crs.eof then
            do while not crs.eof
                response.write "<blockquote><img src=images/img_bank/bank_left.gif height=9 width=9> "&crs(2)&"<b>行长</b>："&crs(1)&"　<a href=z_bank_main.asp?bankid="&crs(0)&">点击进入此银行</a> <img src=images/img_bank/bank_right.gif height=9 width=9></blockquote>"
                if crs(1) =login_username then
                    IsBankMaster=true
                end if
                crs.movenext
            loop
        end if
        response.write "<blockquote><b>======尚未开户的银行======</b></blockquote>"
        csql="select bankid,bankmaster,bankname,Integral from bank where bankid not in ("&bankid_temp&") and opened=yes"
        set crs=cjconn.execute (csql)
        if not crs.eof then
            do while not crs.eof
                response.write "<blockquote><img src=images/img_bank/bank_left.gif height=9 width=9> <a href=z_bank_ebank.asp?bankid="&crs(0)&"&action=open onclick=""return confirm('是否在此银行开户？');"" alt='点击在此银行开户'>"&crs(2)&"</a>　<b>行长</b>："&crs(1)&"　<font color=#ff0000><b>开户条件：</b></font>积分到达<font color=#ff0000><b>"&crs(3)&"</b></font> <img src=images/img_bank/bank_right.gif height=9 width=9></blockquote>"
                crs.movenext
            loop
        end if
    end if
    set crs=nothing
    if usermoney>= RegBank and not IsBankMaster then
        Response.Write "<br><br><br>　　　你已经到达申请银行的条件，如果想拥有自己的银行，<font color=#ff0000><b><a href=z_bank_reg.asp>请点击这里进入</a></b></font>。"
    elseif IsBankMaster then

    else
        Response.Write "<br><br><br>　　　想自己当当行长吗？在本银行可是有绝对的可能的，只要你有<font color=#ff0000><b>"&RegBank&"</b></font>"&Curr&"，行长的职位正在向你招手也……"
    end if
    %> 　</td>
  </tr>
</table>
  </center>
</div>

<%end sub%>