z_bank_ebank.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_ebank.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 request("action")<>"open" and not FoundBankUserID then
    founderr=true
    Errmsg=Errmsg+"<br>"+"<li>您还没有在银行开户。</li>"
end if
if UserFreeze then
    founderr=true
    Errmsg=Errmsg+"<br>"+"<li>您的账号已经被冻结，请连系该行行长。</li>"
end if
if not FoundBankID and request("action")<>"open" then
    founderr=true
    Errmsg=Errmsg+"<br>"+"<li>没有找到该银行。</li><li>该银行还没有开放</li><li>非法操作</li>"
end if
if request("action")="" 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
    tit_fir="<a href='z_bank_index.asp'>社区银行</a>"
    tit="银行信息"
    call web_head(1,0,2,0,0)
    select case request("action")
        case "open"
          call bankreg()
        case "off"
          call off()
        case "C_d_1"
          call C_d_1()
        case "C_d_2"
          call C_d_2()
        case "T_d_1"
          call T_d_1()
        case "T_d_2"
          call T_d_2()
        case "B_loveliness"
          call B_loveliness()
        case "P_loveliness"
          call P_loveliness()
        case "P_f_1"
          call P_f_1()
        case "P_f_2"
          call P_f_2()
        case "vir"
          call vir()
        case "R_E_M"
          call R_E_M()
        case else
          FoundErr=true
          Errmsg=Errmsg+"<br>"+"<li>非法操作。</li>"
    end select
    if FoundErr then
        call bank_error()
    end if
    call web_end(0)
end if
'开户
sub BankReg()
  if FoundBankUserID then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>你已经在该银行注册过了。</li>"
  end if
  if integral < Integral then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>你的积分不足以在该银行开户。</li>"
  end if
  if usermoney < L_trade then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>你不够开户费。</li>"
  end if
  if not FoundErr then
      csql="insert into bankuser(bankid,name,CurrDeposit,events) values ("&cint(request("bankid"))&",'"&login_username&"',"&L_trade&",'"&L_trade&"|银行开户|"&now()&"')"
      cjconn.execute (csql)
      cjconn.execute ("update bank set alldeposit=alldeposit+"&L_trade&",stockpile=stockpile+"&L_trade&",ClientCount=ClientCount+1 where bankid="&BankID)
      if OpenEventsLog=-1 then
          cjconn.execute ("insert into bankevent (bankid,name1,name2,events,trade) values ("&cint(request("bankid"))&",'"&login_username&"','','开户',"&L_trade&")")
      end if
      conn.execute ("update user_data set emoney=emoney-"&L_trade&" where username='"&login_username&"'")
      call yaoyue_banksuc()
  end if
end sub
'销户
sub off()
  if not FoundBankUserID then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>你并没有在该银行开户也。</li>"
  end if
  if TimeDeposit>0 then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>你还有定期存耶……不想要了？如果想要就等它到期再来咯。</li>"
  end if
  if PaymentForGoods>0 then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>你想的倒是很美哦，你还欠银行的钱耶，就想逃？</li>"
  end if
  if IsBankMaster then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>有没有搞错啊，你是本银行的行长耶！</li>"
  end if
  if StockPile < CurrDeposit + C_Accrual then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>销户吗？可怜的你，该银行已经没人也没钱了，还不起你所存的款项与该得的利息。给你个良好的提示，如果想扁人出气的话，找行长吧，所有人都跑得了就行长不能。</li>"
  end if
  if not FoundErr then
      cjconn.execute ("delete from bankuser where bankuserid="&BankUserID)
      cjconn.execute ("update bank set alldeposit=alldeposit-"&(CurrDeposit+C_Accrual)&",stockpile=stockpile+"&log_on&"-"&(CurrDeposit+C_Accrual)&",ClientCount=ClientCount-1 where bankid="&BankID)
      if OpenEventsLog then
          cjconn.execute ("insert into bankevent (bankid,name1,name2,events,trade) values ("&bankid&",'"&login_username&"','','销户',"&log_on&")")
      end if
      conn.execute ("update user_data set emoney=emoney-"&log_on&"+"&(CurrDeposit+C_Accrual)&" where username='"&login_username&"'")
      call yaoyue_banksuc()
  end if
end sub
'活期存款
sub C_d_1()
  dim C_d_1_1
  if not isnumeric(request.form("C_d_1_1")) or isnumeric(request.form("C_d_1_1"))="" then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>请输入数字</li>"
  else
      C_d_1_1=int(abs(Request.Form("C_d_1_1")))
      if C_d_1_1<L_trade and C_d_1_1<>0 then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>就那么点钱，我看你就留着顾面子了，不用存了（最低交易额为"&L_trade&Curr&"以上）</li>"
      end if
      if C_d_1_1 > usermoney then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>拜托你先看看你口袋里有多少钱行不行？别老把一毛钱当一百！</li>"
      end if
      if C_d_1_1 > H_trade then
          FoundErr = true
          Errmsg=Errmsg+"<b>"+"<li>哇噻，你的钱真多，不过每次最多只能存"&H_trade&Curr&"咯。</li>"
      end if
  end if
  if not FoundErr then
      cjconn.execute ("update bankuser set Currdeposit=Currdeposit+"&(C_d_1_1+C_Accrual)&",C_accrual=0,events='"&C_d_1_1&"|活期存款|"&now()&"',DateAndTime='"&now()&"' where bankuserid="&BankUserID)
      cjconn.execute ("update bank set alldeposit=alldeposit+"&(C_d_1_1-C_Accrual)&",stockpile=stockpile+"&(C_d_1_1-C_Accrual)&" where bankid="&BankID)
      if OpenEventsLog then
          cjconn.execute ("insert into bankevent (bankid,name1,name2,events,trade) values ("&bankid&",'"&login_username&"','','活期存款',"&C_d_1_1&")")
      end if
      '记录盈利
      call record(C_d_1_1/500)
      conn.execute ("update user_data set emoney=emoney-"&C_d_1_1&" where username='"&login_username&"'")
      call yaoyue_banksuc()
  end if
end sub
'活存取款
sub C_d_2()
  dim C_d_2_1,StockPileLack,acc,acc1
  StockPileLack=false
  if not isnumeric(request.form("C_d_2_1")) then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>请输入数字</li>"
  else
      C_d_2_1=int(abs(request.form("C_d_2_1")))
      acc = - C_d_2_1
      acc1 = C_d_2_1 + C_Accrual
      if C_d_2_1 < L_trade and C_d_2_1 <> 0 then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>别那么小气嘛，就取那么点钱，你只好返回上页再来一次了。（最低交易额为"&L_trade&Curr&"以上）</li>"
      end if
      if C_d_2_1 > CurrDeposit then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>请注意你的存款数额还有多少</li>"
      end if
      if C_d_2_1 > H_trade then
          FoundErr = true
          Errmsg=Errmsg+"<b>"+"<li>一下子提那么多钱不怕被抢？不过就算你不怕也没用，每次最多只能提"&H_trade&Curr&"咯。</li>"
      end if
      if StockPile=0 then
          FoundErr = true
          Errmsg=Errmsg+"<b>"+"<li>该银行的库存为0，你说还有人在那里等你扁人出气吗？</li>"
      end if
      if not FoundErr and StockPile < C_D_2_1 + C_Accrual then
          founderr=true
          StockPileLack=true
          acc = C_Accrual - StockPile
          acc1 = StockPile
          Errmsg=Errmsg+"<br>"+"<li>由于该银行库存不足，出纳小姐只好尴尬的说：“对不起，本银行这时的库存只有<font color=#ff0000><b>"&StockPile&"</b></font>"&Curr&"了。”（注意：你只取到<font color=#ff0000><b>"&StockPile&"</b></font>"&Curr&"，不足的请连系该行行长。）</li>"
      end if
  end if
  if not FoundErr or StockPileLack then
      cjconn.execute ("update bankuser set CurrDeposit=CurrDeposit+"&acc&",C_accrual=0,events='"&acc1&"|取款（活）|"&now()&"',DateAndTime='"&now()&"' where bankuserid="&BankUserID)
      cjconn.execute ("update bank set alldeposit=alldeposit+"&acc&",stockpile=stockpile-"&acc1&" where bankid="&BankID)
      if OpenEventsLog then
          cjconn.execute ("insert into bankevent (bankid,name1,name2,events,trade) values ("&bankid&",'"&login_username&"','','活存取款',"&acc1&")")
      end if
      '记录盈利
      call record(-acc/1000)
      conn.execute ("update user_data set emoney=emoney+"&acc1&" where username='"&login_username&"'")
      if not StockPileLack then
          call yaoyue_banksuc()
      end if
  end if
end sub
'定期存款
sub T_d_1()
  dim T_d_1_1,TimeLong
  if not isnumeric(request.form("T_d_1_1")) then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>请输入数字</li>"
  else
      T_d_1_1 = int(abs(Request.Form("T_d_1_1")))
      TimeLong = cint(Request.Form("timelong"))
      if T_d_1_1 > usermoney then
          FoundErr=True
          Errmsg=Errmsg+"<Br>"+"<li>啊！啊！这位不知道是先生还是小姐，你的戴几度的眼镜？如果还看得清楚的话请返回且稍微往左看看你的<b>现金总数</b>还有多少。</li>"
      end if
      if T_d_1_1 < L_TimeDeposit then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>哇哦！！！只见银行的出纳ＭＭ拿了大把大把的钞镖数了大半天差点气喘发作，却非常迷惘的怎么超过"&L_TimeDeposit&"万张的纸钞会少于"&L_TimeDeposit&"万元？只好无奈的对您说，对不起，本行的定期存款最少为<font color=#ff0000><b>"&L_TimeDeposit&"</b></font>"&Curr&"。</li>"