z_bank_main.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"-->
<!--#include file="z_bank_accrual.asp"-->
<%
'=========================================================
' File: z_bank_main.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]
'=========================================================
tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
tit="银行中心"
call web_head(1,0,2,0,0)
if not foundbankuserid then
    founderr=true
    Errmsg=Errmsg+"<br>"+"<li>您还没有在银行开户。</li>"
end if
if not FoundBankID then
    founderr=true
    Errmsg=Errmsg+"<br>"+"<li>没有找到该银行。</li><li>该银行还没有开放</li><li>非法操作</li>"
end if
if UserFreeze then
    founderr=true
    Errmsg=Errmsg+"<br>"+"<li>你在本银行的帐号已经被冻结，请连系行长。</li>"
end if
if FoundErr<>true then
    call main()
else 
   call bank_error() 
end if
sub main()
%>
<div align="center">
  <center>
<table cellpadding=3 cellspacing=1  border="2" bordercolor=<%response.write web_var(web_color,3)%> width="98%">
  <tr>
    <th width="100%" height=25 colspan=2><%=bankname%>营业大厅</td>
  </tr>
  <tr>
    <td width="100%" colspan=2 class=bg_3>
      <marquee><%if IsBankMaster then%><a href=z_bank_MasterWork.asp?bankid=<%=bankid%>>欢迎懂事长光临，若有需要，请点击进入行长办公室。</a><%else%>欢迎您光迎<font color=#ff0000><b><%=bankname%></b></font>，本行将竭诚您服务。本行简介：<%=msg%><%end if%></marquee>
    </td>
  </tr>
  <tr>
    <td width="40%" class=tablebody2 rowspan=6 valign=top>
      <table border="0" width="100%" cellspacing="3">
        <tr>
          <td width="100%" colspan=2><img src=images/img_bank/line.gif width=288 height=20></td>
        </tr>
        <tr>
          <td width="50%" valign=top>
          <%
            response.write "本行行长：<font color=#990000>"&bankmaster&"</font><br><br>"
            response.write "存款总额：<font color=#ff0000>"&AllDeposit&"</font><br><br>现有库金：<font color=#ff0000>"&StockPile&"</font><br><br>库存魅力：<font color=#ff0000>"&LoveLiness&"</font><br><br>客户数量：<font color=#ff0000>"&ClientCount&"</font><br><br>被贷款数：<font color=#ff0000>"&BPaymentForGoods&"</font><br><br>本行性质："
            if EveryBody then
                response.write "公有银行"
            else
                response.write "私人银行"
            end if
            response.write "<br><br>"
          %>
          </td>
          <td width="50%" valign=top>
          <img src='images/face/<%=BFace%>.gif' border=0> 
          <%         
          response.write "<br><br>行长个人信息：<br><br>"
          response.write "现金：<font color=#ff0000>"&BUserwealth&"</font><br>积分：<font color=#ff0000>"&BUserep&"</font><br>魅力：<font color=#ff0000>"&BUsercp&"</font><br><br>"
          %>
          </td>
        </tr>
        <tr>
          <td width="100%" align=center colspan=2><img src=images/img_bank/line.gif width=288 height=20><br><img src=h.gif height=5><br>
            <table border=1 cellpadding=10 cellspacing=3 width="100%">
              <tr>
                <td width="100%">
                <font color=#000066><b>您在<font color=#ff0000><%=bankname%></font>的财务状况</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>点"
                %>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr>
          <td width="100%" colspan=2>
            <img src=images/img_bank/line.gif width=288 height=20><div align=center><br><font color=#ff0000><b>本行存款排行前十名</b></font><br></div>
            <table cellpadding=3 cellspacing=3 align=center width="100%">
              <tr>
                <td class=tablebody2 align=center width="33%">用户名</td>
                <td class=tablebody2 align=center width="33%">活期存款</td>
                <td class=tablebody2 align=center width="34%">定期存款</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%"><%=crs(0)%></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>
            <br><img src=images/img_bank/line.gif width=288 height=20>
          </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>
      <table cellpadding=0 cellspacing=5 width="100%">
        <tr>
          <td width="100%">
          　<img src=images/img_bank/bank.gif height=16 width=16> <FONT color=green>活期存款</font> <img src=images/img_bank/bank.gif height=16 width=16>　<b>1</b>号服务台　　本台兼办销户，点这里<A onclick="return confirm('这将把你所有的存款和累计利息加到你的现金上，如果你在本行有贷款，必须先还贷款以后才能销户。如果您有定期存款，请到期再销户。本行销户手续费为<%=log_on%><%=Curr%>是否真的要销户？');" href="z_bank_ebank.asp?bankid=<%=bankid%>&action=off"><FONT color=#cc0000><B>销户</B></FONT></A>
          <hr>
          </td>
        </tr>
        <tr>
        <form action=z_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=重填>　现金 <%=usermoney&Curr%>
          </td>
          </form>
        </tr>
        <tr>
        <form action=z_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=重填>　余额 <%=CurrDeposit&Curr%></td>
        </form>
       </tr>
       <tr>
         <td width="100%" align=left>说明：每次存款，都会自动把利息转为活存，如果只想取利息而不存款，请在存款处输入0提交即可。取款处成功后，利息将加到你的现金上。</td>
       </tr>
    </table>
    </td>
  </tr>
  <tr>
    <td width="60%" class=tablebody2 valign=top>
    <table cellpadding=0 cellspacing=5 width="100%">