z_bank_masterwork.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: z_bank_MasterWork.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]
'=========================================================
dim disabled
dim Pcount
dim page
dim total
if not IsBankMaster then
    founderr=true
    Errmsg=Errmsg+"<br>"+"<li>看到你迎面向行长办公室而来，银行大楼的管理阿伯不得不仔细的瞧你两眼，发现你很眼生，对你温和的说：“咦，你好像不是本银行的行长啊！”</li>"
end if
if FoundErr then
    tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
    tit="银行错误信息"
    call web_head(1,0,2,0,0)   
    call bank_error()
    call web_end(0)
else
    if request("MasterWork")="PFGrepay" then
        tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
        tit="清理到期的贷款"
        call web_head(1,0,2,0,0)  
        call PFGrepay()
    elseif request("MasterWork")="BankMsg" then
        tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
        tit="修改银行信息"
        call web_head(1,0,2,0,0)
        call BankMsg()
    elseif request("MasterWork")="MasterINS" then
        tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
        tit="行长操作"
        call web_head(1,0,2,0,0)
        call MasterINS()
    elseif request("MasterWork")="delPFG" then
        tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
        tit="清理到期贷款"
        call web_head(1,0,2,0,0)
        call delPFG()
    else
        tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
        tit="行长办公室"
        call web_head(1,0,2,0,0)
        call main()
    end if
    if FoundErr=true then
        call bank_error()
    end if
    call web_end(0)
end if

sub main()
  Response.Write "<table cellpadding=3 cellspacing=1 align=center width=98% border='2' bordercolor='"&web_var(web_color,3)&"'>"&_
    "<tr><th align=center class=bg_3><form action=z_bank_MasterWork.asp?bankid="&BankID&"&MasterWork=BankMsg method=post>银行基本信息设置</td></tr>"&_
    "<tr><td class=tablebody1 align=left>"
  Response.Write "银行名称：　　<input type=text name=bankname size=10 value="&BankName&" disabled> （注册后只有管理员可改）<br><img src=yaoyue.gif height=5><br>"&_
                 "行长名字：　　<input type=text name=bankmaster size=10 value="&BankMaster&" "
                 if EveryBody=true then
                     Response.Write " disabled> （非公行行长可以改，但改后就等于把银行送人，你将一无所有，要谨慎）<br><img src=yaoyue.gif height=5><br>"
                 else
                     Response.Write "> （非公行行长可以改，但改后就等于把银行送人，你将一无所有，要谨慎）<br><img src=yaoyue.gif height=5><br>"
                 end if
  Response.Write "库存的魅力值：<input type=text name=loveliness size=10 value="&Loveliness&" disabled> （仅为非公行行长作为参考值，不可直接修改）<br><img src=yaoyue.gif height=5><br>"&_
                 "库存的现金：　<input type=text name=StockPile size=10 value="&StockPile&" disabled> （仅为非公行行长作为参考，不可直接修改）<br><img src=yaoyue.gif height=5><br>"&_
                 "销户手继费：　<input type=text name=log_on size=10 value="&log_on&"> （可以输入从"&L_trade&"到1000之间的整数）<br><img src=yaoyue.gif height=5><br>"&_
                 "银行说明：　　<input type=text name=msg size=16 maxlength=30 value="&MSG&"> （银行的说明，如欢迎语等，最多三十个字）<br><img src=yaoyue.gif height=5><br>"&_
                 "魅力贷款倍数：<input type=text name=zhml size=10 value="&ZHML&"> （客户用魅力贷款时的倍数，填5至40之间的整数，只有库存魅力为0和没有人贷款时可修改）<br><img src=yaoyue.gif height=5><br>"&_
                 "转汇最低积分：<input type=text name=EP size=10 value="&EP&"> （积分要到达多少才可使用转帐汇款功能，10至1000之间的整数）<br><img src=yaoyue.gif height=5><br>"&_
                 "开户最低积分：<input type=text name=integral size=10 value="&integral&"> （开户需要的最低积分，10至1000之间的整数）<br><img src=yaoyue.gif height=5><br>"&_
                 "贷款最高次数：<input type=text name=PFGTimes size=10 value="&PFGTimes&"> （每个客户最多只能同时贷几笔款，到达则必须最少还一笔才能再贷，3至9之间的整数）<br><img src=yaoyue.gif height=5><br>"&_
                 "<br><b>注意</b>：魅力贷款倍数同时也影响买卖魅力的数值，卖魅力给银行为所填数的两倍，向银行买魅力为所填数的四倍。"&_
                 "</td></tr><tr><td align=center class=tablebody2><input type=submit name=s value=修改 onclick=""return confirm('确定修改？');""></td></form></tr></table>"
  if not EveryBody then
      if StockPile < RegBank then
          disabled=" disabled"
      else
          disabled=""
      end if
      Response.Write "<table cellpadding=3 cellspacing=1 align=center width=98% border='2' bordercolor='"&web_var(web_color,3)&"'>"&_
                     "<tr><th align=center>非公行行长取款或扩充处</td></tr>"&_
                     "<tr><td class=tablebody1 align=left valign=middle><br>"&_
                     "<form action=z_bank_MasterWork.asp?bankid="&BankID&"&MasterWork=MasterINS method=post>&nbsp;<input type=text name=AppOrGet size=10>&nbsp;&nbsp;取出魅力&nbsp;<input type=radio name=num value=1>&nbsp;&nbsp;扩充魅力<input type=radio name=num value=2>&nbsp;&nbsp;取出现金&nbsp;<input type=radio name=num value=3"&disabled&">&nbsp;&nbsp;扩充金额&nbsp;<input type=radio name=num value=4>&nbsp;&nbsp;<input type=submit name=s value=操作></form>"&_
                     "<b>说明：</b><br>"&_
                     "1.取出魅力为把银行库存的魅力值转成你自己的魅力值。<br>"&_
                     "2.扩充魅力为把你现有的魅力值转成银行的库存，用来卖给客户的，魅力金钱，你喜欢哪一个多一些呢？<br>"&_
                     "3.取出现金为把银行库存的金钱转为你的现金，只有当库存大于<font color=#ff0000><b>"&RegBank&"</b></font>"&Curr&"时才能操作。<br>"&_
                     "4.扩充现金为把自己的现金加入银行的库存中。<br>"&_
                     "5.想知道银行库存的魅力值和金钱有多少，看上的的基本信息。<br>"
      Response.Write "</td></tr></table>"
  end if
  Response.Write "<table cellpadding=3 cellspacing=1 align=center width=98% border='2' bordercolor='"&web_var(web_color,3)&"'>"&_
                 "<tr><th align=center>其它操作</td></tr>"&_
                 "<tr><td class=tablebody1 align=center valign=middle>"
                 if OpenEventsLog then
                     Response.Write "<input type=button name=t1 value=查看事件记录 onclick=""window.open('z_bank_ClientEvents.asp?bankid="&BankID&"&action=events');"">　"
                 end if
  Response.Write "<input type=button name=t2 value=客户管理 onclick=""javascrip:window.open('z_bank_ClientEvents.asp?bankid="&BankID&"');"">　<input type=submit name=s value=清理到期的贷款 onclick=""javascript:location.href='z_bank_MasterWork.asp?bankid="&BankID&"&MasterWork=PFGrepay';""></td></tr></table>"
end sub
'读取到期贷款
sub PFGrepay()
  if not isnumeric(request("page")) or request("page")="" then
      page=1
  else
      page=cint(request("page"))
  end if
  set crs=server.CreateObject("adodb.recordset")
  csql="select p.PID,p.PaymentForGoods,p.P_Accrual,p.ByDetainCP,p.DateAndTime,u.name from PaymentForGoods p inner join bankuser u on u.bankuserid=p.bankuserid where u.bankid="&BankID&" and datediff('d',datediff('d',p.DateAndTime,'"&now()&"'),"&P_repay&") < 0"
  crs.Open csql,cjconn,1,1
  if crs.bof and crs.eof then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>没有任何到期的贷款。</li>"
      exit sub
  end if
%>
<table cellpadding=0 cellspacing=0 border=0 width="95%" align=center><tr><td>有些人贷款后就很长时间没来，这些贷款到期后也不会自动清理，就得行长动手清理了。</td></tr></table>
<form name=PFG action=z_bank_MasterWork.asp?bankid=<%=BankID%>&MasterWork=delPFG method=post>
<TABLE cellPadding=3 cellSpacing=1 class=tableborder1 align=center>
<TR valign=middle>
<Th height=25 width=60>贷款ID</Th>
<Th width=120>用户名</Th>
<Th width=120>贷款数</Th>
<Th width=120>贷款利息</Th>
<Th width=120>所押魅力值</Th>
<Th width=*>贷款时间</Th>
<Th width=40>清理</Th>
</TR>
<%
      crs.PageSize = 20
      total = crs.recordcount
      Pcount = crs.pagecount
      if page < 1 then page = 1
      if page > Pcount then page = Pcount
      crs.move (page-1)*crs.pagesize
      ii = 0
      do while not crs.eof and ii < crs.pagesize
%>
  <TR> 
    <TD align=middle class=tablebody2 width=60><%=crs(0)%></TD> 
    <TD align=middle class=tablebody1 width=120><%=crs(5)%></TD> 
    <TD align=middle class=tablebody2  width=120><%=crs(1)%></TD> 
    <TD align=middle class=tablebody1 width=120><%=crs(2)%></TD>
    <TD align=middle class=tablebody2  width=120><%=crs(3)%></TD> 
    <TD align=middle class=tablebody1 width=*><%=crs(4)%></TD>
    <TD align=middle class=tablebody2  width=40><input type=checkbox name=PID value=<%=crs(0)%>></TD>
</TR> 
<%
          ii = ii+1
          crs.movenext
      loop
      Response.Write "</table>"
      call PageFooter()
      Response.Write "<br><table cellpadding=0 cellspacing=0 border=0 width=95% align=center><tr><td><input type=submit name=action value=清理>　<input type=button name=t value=返办公室 onclick=""javascript:location.href='z_bank_MasterWork.asp?bankid="&BankID&"';""> 选中所有显示的记录：<input type=checkbox name=chkall value=on onclick=""CheckAll(this.form)"">　</td></tr></table></form>"
  crs.Close
  set crs = nothing
%>
<script language="JavaScript">
<!--
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
//-->
</script>
<%
end sub
sub PageFooter()
  Response.Write  "<table border=0 cellpadding=0 cellspacing=3 width=95% align=center>"&_
                  "<tr><td valign=middle nowrap>"&_