z_bank_ebank.asp

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

      end if
      if T_d_1_1 > H_TimeDeposit then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>银行定期存款一次最多只能存<font color=#ff0000><b>"&H_TimeDeposit&"</b></font>"&Curr&"。</li>"
      end if
  end if
  if not FoundErr then
      cjconn.execute ("insert into TimeDeposit (bankid,bankuserid,TimeDeposit,T_Accrual,DateCount) values ("&BankID&","&BankUserID&","&T_d_1_1&","&int(T_DateProfit/100*TimeLong*T_d_1_1)&","&TimeLong&")")
      cjconn.execute ("update bankuser set TimeDeposit=TimeDeposit+"&T_d_1_1&",T_accrual=T_accrual+"&int(T_DateProfit/100*TimeLong*T_d_1_1)&",events='"&T_d_1_1&"|定期存款|"&now()&"' where bankuserid="&BankUserID)
      cjconn.execute ("update bank set alldeposit=alldeposit+"&T_d_1_1&",stockpile=stockpile+"&T_d_1_1&" where bankid="&BankID)
      if OpenEventsLog then
          cjconn.execute ("insert into bankevent (bankid,name1,name2,events,trade) values ("&bankid&",'"&login_username&"','','定期存款',"&T_d_1_1&")")
      end if
      conn.execute ("update user_data set emoney=emoney-"&T_d_1_1&" where username='"&login_username&"'")
      '记录盈利
      call record(T_d_1_1/1000)
      call yaoyue_banksuc()
  end if
end sub
'定存取款及其相关操作
sub T_d_2()
  dim TID,T_d_2_1,T_d_2_2,T_ac,OldTimeLong,NewTimeLong,T_DateTime,selects,StockPileLack,acc,acc1
  if not isnumeric(request.form("T_d_2_1")) then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>请输入数字</li>"
  else
      StockPileLack=false
      TID=cint(Request.Form("TID"))
      T_d_2_1=int(abs(Request.Form("T_d_2_1")))
      OldTimeLong=cint(Request.Form("timelong"))
      selects=trim(Request.Form("selects"))
      csql="select TimeDeposit,T_Accrual,DateCount,DateAndTime from TimeDeposit where TID="&TID
      set crs=cjconn.execute (csql)
      if crs.bof and crs.eof then
          Errmsg=Errmsg+"<br>"+"<li>有吗？有吗？糟了，我怎么也找不到你这个存款号耶！嗯！！哇！救命啊，原来是抢银行的！</li>"
          FoundErr=true
          exit sub
      else
          T_d_2_2=crs(0)
          T_ac=crs(1)
          NewTimeLong=crs(2)
          T_DateTime=crs(3)
      end if
      set crs=nothing
      if datediff("d",datediff("d",T_DateTime,now()),NewTimeLong)>0 then
          FoundErr=true
          Errmsg=Errmsg+"<br>"+"<li>你刷，我给你刷，我刷爆你的头，再刷你的钱就有危险了！</li>"
      end if
      select case selects
          case 1
            acc=0
            acc1=T_d_2_2 + T_ac
            if T_d_2_1 <> T_d_2_2 then
                founderr=true
                Errmsg=Errmsg+"<br>"+"<li>哇噻，你的镖镖还是有灵性的，会死掉和结婚生子的不成？</li>"
            end if
            if StockPile=0 then
                FoundErr = true
                Errmsg=Errmsg+"<b>"+"<li>该银行的库存为0，你说还有人在那里等你扁人出气吗？</li>"
            end if
            if not FoundErr and StockPile < T_d_2_2 + T_ac then
                founderr=true
                StockPileLack=true
                acc = T_d_2_2 + T_ac - 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
            if not FoundErr or StockPileLack then
                cjconn.execute ("delete from TimeDeposit where TID="&TID)
                cjconn.execute ("update bankuser set CurrDeposit=CurrDeposit+"&acc&",TimeDeposit=TimeDeposit-"&T_d_2_2&",T_accrual=T_accrual-"&T_ac&",events='"&T_d_2_2&"|取款（定）|"&now()&"' where bankuserid="&BankUserID)
                cjconn.execute ("update bank set allDeposit=allDeposit+"&acc&"-"&T_d_2_2&",StockPile=StockPile-"&acc1&" where bankid="&BankID)
                if OpenEventsLog then
                    cjconn.execute ("insert into bankevent (bankid,name1,name2,events,trade) values ("&bankid&",'"&login_username&"','','取款（定）',"&T_d_2_2&")")
                end if
                conn.execute ("update user_data set emoney=emoney+"&acc1&" where username='"&login_username&"'")
                if not StockPileLack then
                    call yaoyue_banksuc()
                end if
            end if
          case 2
            if T_d_2_1 < T_d_2_2 then
                FoundErr = true
                Errmsg=Errmsg+"<b>"+"<li>转为活存，只能不要修改或填比原款项更大的数据，超出的部分会自动从你现金中扣除。</li>"
            end if
            if T_d_2_1 - T_d_2_2 > usermoney then
                FuundErr=true
                Errmsg=Errmsg+"<br>"+"<li>根据本行第698574587条规定的第78546247点，增出的部分超过你现在的现金数，本行可以无偿的扣去你身上的所有现金。</li>"
            end if
            if T_d_2_1 + T_ac > H_TimeDeposit then
                founderr=true
                Errmsg=Errmsg+"<br>"+"<li>银行定期存款一次最多只能存<font color=#ff0000><b>"&H_TimeDeposit&"</b></font>"&Curr&"。</li>"
            end if
            cjconn.execute ("delete from TimeDeposit where TID="&TID)
            cjconn.execute ("update bankuser set CurrDeposit=CurrDeposit+"&T_d_2_1+T_ac&",TimeDeposit=TimeDeposit-"&T_d_2_2&",T_accrual=T_accrual-"&T_ac&",events='"&T_d_2_1+T_ac&"|活期存款|"&now()&"' where bankuserid="&BankUserID)
            cjconn.execute ("update bank set allDeposit=allDeposit+"&T_ac + T_d_2_1 - T_d_2_2&",StockPile=StockPile+"&T_d_2_1 - T_d_2_2&" where bankid="&BankID)
            if OpenEventsLog then
                cjconn.execute ("insert into bankevent (bankid,name1,name2,events,trade) values ("&bankid&",'"&login_username&"','','活期存款',"&T_d_2_1 + T_ac&")")
            end if
            conn.execute ("update user_data set emoney=emoney-"&(T_d_2_1 - T_d_2_2)&" where username='"&login_username&"'")
            call yaoyue_banksuc()
          case 3
            acc=0
            acc1=T_ac
            if T_d_2_1 - T_d_2_2 > usermoney then
                FoundErr=true
                Errmsg=Errmsg+"<br>"+"<li>喂，你想混水摸鱼啊？先查查自己的现金吧。</li>"
            end if
            if T_d_2_1 < L_TimeDeposit then
                FoundErr=true
                Errmsg=Errmsg+"<br>"+"<li>最少也得"&L_TimeDeposit&Curr&"吧，不然怎么延期啊？</li>"
            end if
            if T_d_2_1 > H_TimeDeposit then
                founderr=true
                Errmsg=Errmsg+"<br>"+"<li>银行定期存款一次最多只能存<font color=#ff0000><b>"&H_TimeDeposit&"</b></font>"&Curr&"。</li>"
            end if
            if StockPile=0 then
                FoundErr = true
                Errmsg=Errmsg+"<b>"+"<li>该银行的库存为0，你说还有人在那里等你扁人出气吗？</li>"
            end if
            if not FoundErr and StockPile < T_ac then
                FoundErr = true
                StockPileLack = true
                acc = T_ac - 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
            if not Founderr or StockPileLack then
                cjconn.execute ("update TimeDeposit set TimeDeposit="&T_d_2_1&",T_Accrual="&int(T_DateProfit/100*OldTimeLong*T_d_2_1)&",DateCount="&OldTimeLong&",DateAndTime='"&now()&"' where TID="&TID)
                cjconn.execute ("update bankuser set CurrDeposit=CurrDeposit+"&acc&",events='"&T_d_2_1&"|定存延期|"&now()&"' where bankuserid="&BankUserID)
                cjconn.execute ("update bank set allDeposit=allDeposit+"&acc&"+"&(T_d_2_1 - T_d_2_2)&",StockPile=StockPile-"&acc1&" where bankid="&BankID)
                if OpenEventsLog then
                    cjconn.execute ("insert into bankevent (bankid,name1,name2,events,trade) values ("&bankid&",'"&login_username&"','','定存延期',"&T_d_2_1&")")
                end if
                conn.execute ("update user_data set emoney=emoney+"&acc1&" where username='"&login_username&"'")
                call yaoyue_banksuc()
            end if
      end select
  end if
end sub
'买魅力
sub B_LoveLiness()
  dim B_LS
  if not isnumeric(request.form("B_LS")) then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>请输入数字</li>"
  else
      B_LS=int(abs(Request.Form("B_LS")))
      if B_LS > LoveLiness then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>呃，本银行魅力存货没这么多，如果需要下次请早！</li>"
      end if
      if B_LS*ZHML*4 < L_trade then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>买那么少有什么用啊，最少也得买"&L_trade\(ZHML*4)&"点吧？</li>"
      end if
      if B_LS*ZHML*4 > usermoney then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>钱呢钱呢？你有那么多钱吗？有吗？有吗？（注意：你的现钱不足"&B_LS*ZHML*4&Curr&"）</li>"
      end if
      if B_LS*ZHML*4 > H_trade then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>阁下硬是要得，钱多得让人发疯！但所买金额超过"&H_trade&Curr&"只好请你分批买了咯！</li>"
      end if
  end if
  if not FoundErr then
      cjconn.execute ("update bankuser set events='"&B_LS*ZHML*4&"|买魅力值|"&now()&"' where bankuserid="&BankUserID)
      cjconn.execute ("update bank set loveliness=loveliness-"&B_LS&",StockPile=StockPile+"&B_LS*ZHML*4&" where bankid="&BankID)
      if OpenEventsLog then
          cjconn.execute ("insert into bankevent (bankid,name1,name2,events,trade) values ("&bankid&",'"&login_username&"','','买魅力值',"&B_LS*ZHML*4&")")
      end if
      conn.execute ("update user_data set emoney=emoney-"&B_LS*ZHML*4&",userCP=userCP+"&B_LS&" where username='"&login_username&"'")
      '记录盈利
      call record(B_LS*ZHML*4)
      call yaoyue_banksuc()
  end if
end sub
'卖魅力
sub P_Loveliness()
  dim P_LS
  if not isnumeric(request.form("P_LS")) then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>请输入数字</li>"
  else
      P_LS=int(abs(Request.Form("P_LS")))
      if P_LS > myuserCP then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>你以为你是万人迷啊？有那么大的魅力！</li>"
      end if
      if P_LS*ZHML*2 < L_trade then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>卖血也不能那么少吧？总共"&L_trade&Curr&"都没有，不收。</li>"
      end if
      if P_LS*ZHML*2 > StockPile - 10000 then
          FoundErr=true
          Errmsg=Errmsg+"<br>"+"<li>阁下硬是要得，魅力高得让ＭＭ们为之发疯，但也别卖得太猛，本银行还得留点老本啊！</li>"
      end if
      if P_LS*ZHML*2 > H_trade then
          founderr=true
          Errmsg=Errmsg+"<br>"+"<li>阁下硬是要得，魅力高得让人眼红！但所卖金额超过"&H_trade&Curr&"只好请你分批卖了咯！</li>"
      end if
  end if
  if not FoundErr then
      cjconn.execute ("update bankuser set events='"&P_LS*ZHML*2&"|卖魅力值|"&now()&"' where bankuserid="&BankUserID)
      cjconn.execute ("update bank set loveliness=loveliness+"&P_LS&",StockPile=StockPile-"&P_LS*ZHML*2&" where bankid="&BankID)
      if OpenEventsLog then
          cjconn.execute ("insert into bankevent (bankid,name1,name2,events,trade) values ("&bankid&",'"&login_username&"','','卖魅力值',"&P_LS*ZHML*2&")")
      end if
      conn.execute ("update user_data set emoney=emoney+"&P_LS*ZHML*2&",userCP=userCP-"&P_LS&" where username='"&login_username&"'")
      '记录盈利
      call record(-P_LS*ZHML)
      call yaoyue_banksuc()
  end if
end sub
'贷款
sub P_f_1()
  dim PFG
  if not isnumeric(request.form("PFG")) then
      founderr=true
      Errmsg=Errmsg+"<br>"+"<li>请输入数字</li>"
  else
      PFG=int(abs(Request.Form("PFG")))
      csql="select count(bankuserid) from PaymentForGoods where bankuserid="&BankUserID
      set crs=cjconn.execute (csql)
      ii=crs(0)
      set crs=nothing
      if PFG > myuserCP then
          FoundErr=true
          Errmsg=Errmsg+"<br>"+"<li>喂，你没有搞错啊，你还真以为你是万人迷，有那么大魅力啊？</li>"
      end if
      if ii >= PFGTimes then
          FoundErr=true
          Errmsg=Errmsg+"<br>"+"<li>唉，就算你的魅力再大，但……你已经贷了"&ii&"次款了，只有请还清一次后再贷了。</li>"