z_bank_masterwork.asp

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

                  "页次：<font color=#ff0000><b>"&page&"</b></font>/<b>"&Pcount&"</b>页"&_
			     " 每页<font color=#ff0000><b>"&Forum_Setting(11)&"</b></font>条记录 总共有<font color=#ff0000><b>"&total&"</b></font>条记录</td>"&_
			     "<td valign=middle nowrap><div align=right><p>分页： "
			if page > 4 then
			    Response.Write "<a href=bank_MasterWork.asp?bankid="&bankID&"&MasterWork=PFGrepay&page=1>[1]</a>..."
			end if
			if Pcount>page+3 then
			    ii=page+3
			else
			    ii=Pcount
			end if
			for i=page-3 to ii
			    if not i < 1 then
			        if i=cint(page) then
			            Response.Write "<font color=#ff000000>["&i&"]</font>"
			        else
			            Response.Write "<a href=z_bank_MasterWork.asp?bankid="&bankID&"&MasterWork=PFGrepay&page="&i&">["&i&"]</a>"
			        end if
			    end if
			next
			if page+3 < Pcount then
			    Response.Write "...<a href=z_bank_MasterWork.asp?bankid="&bankID&"&MasterWork=PFGrepay&page="&Pcount&">["&Pcount&"]</a>"
			end if
			response.write "</p></div></td></tr></table>"
end sub

sub BankMsg()
  dim BankMaster,Log_on,MSG,NZHML,integral,EP,PFGTimes,FoundUser,NotFoundBankUser
  if not isnumeric(Request.Form("log_on")) or not isnumeric(Request.Form("ZHML")) or not isnumeric(Request.Form("EP")) or not isnumeric(Request.Form("integral")) or not isnumeric(Request.Form("PFGTimes")) then
      FoundErr=true
      Errmsg=Errmsg+"<br>"+"<li>销户费、贷款倍数、转帐汇所需的最低积分、开户最低积分和最大贷款次数必须是数字。"
      Exit sub
  end if
  if EveryBody=true then
      BankMaster=login_username
  else
      BankMaster=trim(Request.Form("BankMaster"))
  end if
  Log_on=int(Request.Form("log_on"))
  MSG=trim(Request.Form("MSG"))
  NZHML=int(Request.Form("zhml"))
  integral=int(Request.Form("integral"))
  EP=int(Request.Form("EP"))
  PFGTimes=int(Request.Form("PFGTimes"))
  FoundUser=false
  FoundBankUser=false
  if Log_on < L_trade or Log_on > 1000 then
      FoundErr=true
      Errmsg=Errmsg+"<br>"+"<li>销户手续费请输入"&L_trade&"到1000之间的整数"
  end if
  if len(MSG) > 30 then
      FoundErr=true
      Errmsg=Errmsg+"<br>"+"<li>银行说明不能大于三十个字符"
  end if
  if PaymentForGoods > 0 or loveliness > 0 then
      if NZHML <> ZHML then
          FoundErr=true
          Errmsg=Errmsg+"<br>"+"<li>在银行还有贷款或库存魅力值不为0时，不允许修改贷款倍数。"
      end if
  elseif NZHML < 5 or NZHML > 40 then
      FoundErr=true
      Errmsg=Errmsg+"<br>"+"<li>贷款倍数请输入5至40之间的整数"
  end if
  if EP < 200 or EP > 1000 then
      FoundErr=true
      Errmsg=Errmsg+"<br>"+"<li>转帐汇款需要的最低积分请输入200至1000之间的整数"
  end if
  if integral > 1000 then
      FoundErr=true
      Errmsg=Errmsg+"<br>"+"<li>开户最低值请输入0至1000之间的整数"
  end if
  if PFGTimes < 3 or PFGTimes > 10 then
      FoundErr=true
      Errmsg=Errmsg+"<br>"+"<li>贷款的最高次数请输入3至9之间的整数"
  end if
  if  EveryBody=false then
      if BankMaster <> login_username then
          csql="select name from bankuser where bankid="&BankID&" and name='"&BankMaster&"'"
          set crs=cjconn.execute (csql)
          if crs.bof and crs.eof then
              NotFoundBankUser=true
          else
              NotFoundBankUser=false
          end if
          csql="select username from user_data where username='"&BankMaster&"'"
          set crs=conn.execute (csql)
          if crs.bof and crs.eof then
              FoundErr=true
              Errmsg=Errmsg+"<br>"+"<li>没找到你所输入的行长用户名，请确认该用户名存在！"
              exit sub
          else
              FoundUser=true
          end if
          set crs=nothing
          if NotFoundBankUser and FoundUser then
              cjconn.execute ("insert into bankuser (bankid,name,CurrDeposit,events) values ("&BankID&",'"&BankMaster&"',"&L_trade&",'"&L_trade&"|开户|"&now()&"')")
              conn.execute ("update user_data set emoney=emoney-"&L_trade&" where username='"&BankMaster&"'")
          end if
      end if
  end if
  if not FoundErr then
      cjconn.execute ("update bank set bankmaster='"&BankMaster&"',log_on="&Log_on&",msg='"&MSG&"',ZHML="&NZHML&",EP="&EP&",integral="&integral&",PFGTimes="&PFGTimes&" where bankid="&BankID)
      call yaoyue_banksuc()
  end if
end sub

sub MasterINS()
  dim AppOrGet,num,BankNum,UserNum
  if not isnumeric(Request.Form("AppOrGet")) then
      FoundErr=true
      Errmsg=Errmsg+"<br>"+"<li>请输入数字！"
      Exit sub
  end if
  AppOrGet=int(abs(Request.Form("AppOrGet")))
  num=Request.Form("num")
  if num = 1 then
      BankNum=" loveliness=loveliness-"&AppOrGet&" "
      UserNum=" userCP=userCP+"&AppOrGet&" "
      if AppOrGet > loveliness then
          FoundErr=true
          Errmsg=Errmsg+"<br>"+"<li>你输入的数值大于银行现在库存的魅力值！"
      end if
  elseif num = 2 then
      BankNum=" loveliness=loveliness+"&AppOrGet&" "
      UserNum=" userCP=userCP-"&AppOrGet&" "
      if AppOrGet > myuserCP then
          FoundErr=true
          Errmsg=Errmsg+"<br>"+"<li>你输入的数值大于你现有的魅力值！"
      end if
  elseif num = 3 then
      BankNum=" StockPile=StockPile-"&AppOrGet&" "
      UserNum=" emoney=emoney+"&AppOrGet&" "
      if StockPile - AppOrGet < RegBank then
          FoundErr=true
          Errmsg=Errmsg+"<br>"+"<li>你输入的数字使银行库存小于" & RegBank&Curr & "，请重新输入！"
      end if
  elseif num = 4 then
      BankNum=" StockPile=StockPile+"&AppOrGet&" "
      UserNum=" emoney=emoney-"&AppOrGet&" "
      if AppOrGet > usermoney and num = 4 then
          FoundErr=true
          Errmsg=Errmsg+"<br>"+"<li>想扩充银行的库存也得自己有足够的现金吧？你输入的数大于你的现金咯！"
      end if
  else
      FoundErr=true
      Errmsg=Errmsg+"<br>"+"<li>请选择操作项！"
  end if
  if not FoundErr then
      cjconn.execute ("update bank set "&BankNum&" where bankid="&BankID)
      conn.execute ("update user_data set "&UserNum&" where username='"&login_username&"'")
      call yaoyue_banksuc()
  end if
end sub

sub delPFG()
  dim PID,DetainCP,PFG
  PID=trim(Request.Form("PID"))
  if PID="" then
      FoundErr=true
      Errmsg=Errmsg+"<br>"+"<li>请选要清理的贷款！"
  else
      csql="select bankuserid,PaymentForGoods,P_Accrual,ByDetainCP from PaymentForGoods where PID in ("&PID&")"
      set crs=cjconn.execute (csql)
      if crs.BOF and crs.EOF then
          FoundErr=true
          Errmsg=Errmsg+"<br>"+"<li>请选要清理的贷款！"
      else
          do while not crs.EOF
              PFG=PFG+crs(1)
              DetainCP=DetainCP+crs(3)
              cjconn.execute ("update bankuser set PaymentForGoods=PaymentForGoods-"&crs(1)&",P_accrual=P_accrual-"&crs(2)&",ByDetainCP=ByDetainCp-"&crs(3)&" where bankuserid="&crs(0))
              crs.MoveNext
          loop
          cjconn.execute ("update bank set loveliness=loveliness+"&DetainCP&",PaymentForGoods=PaymentForGoods-"&PFG&" where bankid="&BankID)
          cjconn.execute ("delete from PaymentForgoods where PID in ("&PID&")")
          call yaoyue_banksuc()
      end if
      set crs=nothing
  end if
end sub
%>