📄 z_bank.asp
字号:
Errmsg=Errmsg+"<br>"+"<li>银行贷款服务已经暂停，请与管理员联系"
call bank_err()
exit sub
end if
if lockac then '我来了 添加
Errmsg=Errmsg+"<br>"+"<li>对不起，您不能进行该操作"
Errmsg=Errmsg+"<br>"+"<li>您的银行账户已经被冻结，请与管理员联系"
call bank_err()
exit sub
end if
dim loan
if request.form("loan")="" then
Errmsg=Errmsg+"<br>"+"<li>请输入贷款金额"
founderr=true
elseif not isnumeric(request.form("loan")) then
Errmsg=Errmsg+"<br>"+"<li>贷款金额必须是数字"
founderr=true
elseif request.form("loan")<=0 then
Errmsg=Errmsg+"<br>"+"<li>贷款金额必须是正数"
founderr=true
else
loan=int(request.form("loan"))
if loan>dkdu then
Errmsg=Errmsg+"<br>"+"<li>您贷款的金额超出了您的贷款信用额度"
founderr=true
elseif loan>chubei then
Errmsg=Errmsg+"<br>"+"<li>您的贷款金额太大了，银行储备不足，请与管理员联系"
founderr=true
end if
end if
if founderr then
call bank_err()
else
set rs=server.createobject("adodb.recordset")
sql="select * from bank where username='"&membername&"' "
rs.open sql,conn1,1,3
if rs.eof and rs.bof then
Errmsg=Errmsg+"<br>"+"<li>您的银行账号不存在，请从有效连接进入"
call bank_err()
else
rs("daikuang")=rs("daikuang")+loan
rs("dkdate")=date()
rs.update
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from bankconfig"
rs.open sql,conn1,1,3
rs("chubei")=rs("chubei")-loan
rs.update
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&membername&"' "
rs.open sql,conn,1,3
rs("userwealth")=rs("userwealth")+loan
rs.update
rs.close
if cint(log_setting(0))=1 and cint(log_setting(4))<>0 then
if cint(log_setting(4))=1 or ( cint(log_setting(4))=2 and loan>=clng(log_setting(5)) ) then
content="向银行贷款，贷款金额为："&loan&" 元，贷款期限为："&daitian&"天"
call logs("银行","向银行贷款",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
end if
sucmsg=sucmsg+"<br>"+"<li>您的贷款手续已经办理好了，贷款金额为："&loan&"元，贷款期限为："&daitian&"天"
call bank_suc()
end if
end if
end sub
'--------------------------------转帐程序------------------------------
sub zmoney()
if bankstate=0 then '我来了 添加 2002.11.30
Errmsg=Errmsg+"<br>"+"<li>银行暂停营业，请与管理员联系"
call bank_err()
exit sub
end if
if cint(bank_setting(3))=0 then '我来了 添加 2002.11.30
Errmsg=Errmsg+"<br>"+"<li>银行转帐服务已经暂停，请与管理员联系"
call bank_err()
exit sub
end if
if lockac then '我来了 添加
Errmsg=Errmsg+"<br>"+"<li>对不起，您不能进行该操作"
Errmsg=Errmsg+"<br>"+"<li>您的银行账户已经被冻结，请与管理员联系"
call bank_err()
exit sub
end if
if daikuang>0 and cint(bank_setting(5))=0 then '我来了 添加 2002.12.03
Errmsg=Errmsg+"<br>"+"<li>银行规定贷款之后不能转帐，请与管理员联系"
call bank_err()
exit sub
end if
if request.form("trans")="" or (not isnumeric(request.form("trans"))) then
Errmsg=Errmsg+"<br>"+"<li>请正确输入转帐金额"
founderr=true
elseif request.form("trans")<=0 then
Errmsg=Errmsg+"<br>"+"<li>转帐金额必须是正数"
founderr=true
end if
if trim(request.form("transto"))="" then
Errmsg=Errmsg+"<br>"+"<li>您要转帐到那个账号上？"
founderr=true
end if
if founderr then
call bank_err()
else
dim trans,transto
trans=clng(request.form("trans"))
transto=checkStr(trim(request.form("transto")))
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("select username from [user] where username='"&transto&"'")
if rs.bof and rs.eof then
Errmsg=Errmsg+"<br>"+"<li>论坛上没有["&transto&"]这个用户"
call bank_err()
rs.close
exit sub
else
transto=rs(0)
rs.close
end if
sql="select * from bank where username='"&membername&"' "
rs.open sql,conn1,1,3
if rs.eof and rs.bof then
Errmsg=Errmsg+"<br>"+"<li>您的银行账号不存在，请从有效连接进入"
call bank_err()
else
if rs("savemoney") < trans then
Errmsg=Errmsg+"<br>"+"<li>您在银行中没有那么多的存款"
call bank_err()
elseif rs("savemoney")<int(trans*(1+formatnumber(zhuangli)/100)) then
Errmsg=Errmsg+"<br>"+"<li>您在银行存款余额不足于支付转帐手续费"
call bank_err()
else
rs("savemoney")=rs("savemoney")-int(trans*(1+formatnumber(zhuangli)/100))
rs.update
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from bank where username='"&transto&"' "
rs.open sql,conn1,1,3
if rs.eof then
rs.addnew
rs("username")=transto
rs("bankuser_setting")="0,"&bank_setting(4)
end if
rs("savemoney")=rs("savemoney")+trans
rs.update
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from bankconfig"
rs.open sql,conn1,1,3
rs("chubei")=rs("chubei")+int(trans*(formatnumber(zhuangli)/100))
rs.update
rs.close
if cint(log_setting(0))=1 and cint(log_setting(4))<>0 then
if cint(log_setting(4))=1 or (cint(log_setting(4))=2 and trans>=clng(log_setting(5))) then
content="转入账号：<font color=blue>"&HTMLEncode(transto)&"</font>, 转帐金额为："&trans&"元, 转帐手续费："&int(trans*(formatnumber(zhuangli)/100))&"元"
call logs("银行","办理账号手续",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
end if
sucmsg=sucmsg+"<br>"+"<li>您的转帐手续已经办理好了"
sucmsg=sucmsg+"<br>"+"<li>转入账号：<font color=blue>"&HTMLEncode(transto)&"</font>, 转帐金额为："&trans&"元, 转帐手续费："&int(trans*(formatnumber(zhuangli)/100))&"元"
call bank_suc()
end if
end if
end if
end sub
'--------------------------------取款程序--------------------------------
sub qumoney()
if bankstate=0 then '我来了 添加 2002.11.30
Errmsg=Errmsg+"<br>"+"<li>银行暂停营业，请与管理员联系"
call bank_err()
exit sub
end if
if cint(bank_setting(1))=0 then '我来了 添加 2002.11.30
Errmsg=Errmsg+"<br>"+"<li>银行提款服务已经暂停，请与管理员联系"
call bank_err()
exit sub
end if
if lockac then '我来了 添加
Errmsg=Errmsg+"<br>"+"<li>对不起，您不能进行该操作"
Errmsg=Errmsg+"<br>"+"<li>您的银行账户已经被冻结，请与管理员联系"
call bank_err()
exit sub
end if
if request.form("draw")="" then
Errmsg=Errmsg+"<br>"+"<li>请输入取款金额"
founderr=true
elseif not isnumeric(request.form("draw")) then
Errmsg=Errmsg+"<br>"+"<li>取款金额必须是数字"
founderr=true
elseif request.form("draw")<=0 then
Errmsg=Errmsg+"<br>"+"<li>取款金额必须是正数"
founderr=true
else
dim drawm
drawm=int(request.form("draw"))
if drawm>chubei then
Errmsg=Errmsg+"<br>"+"<li>您的取款金额太大了，银行储备不足，请与管理员联系"
founderr=true
end if
end if
if founderr then
call bank_err()
else
dim saveli
set rs=server.createobject("adodb.recordset")
sql="select * from bank where username='"&membername&"' "
rs.open sql,conn1,1,3
if rs.eof and rs.bof then
Errmsg=Errmsg+"<br>"+"<li>您的银行账号不存在，请从有效连接进入"
call bank_err()
elseif drawm>rs("savemoney") then
Errmsg=Errmsg+"<br>"+"<li>您在银行中没有那么多的存款"
call bank_err()
else
if saveday<Chen_StartLixiDay then
saveli=0
else
saveli=clng((smoney*(formatnumber(culi)/100))*saveday)
end if
rs("savemoney")=rs("savemoney")-drawm+saveli
rs("date")=date()
rs.update
rs.close
sql="select userwealth from [user] where username='"&membername&"' "
rs.open sql,conn,1,3
if not(rs.eof and rs.bof) then
rs(0)=rs(0)+drawm
rs.update
end if
rs.close
sql="select chubei from bankconfig"
rs.open sql,conn1,1,3
rs(0)=rs(0)-drawm
rs.update
rs.close
if cint(log_setting(0))=1 and cint(log_setting(4))<>0 then
if cint(log_setting(4))=1 or (cint(log_setting(4))=2 and drawm>=clng(log_setting(5))) then
content="向银行提取现金"&drawm&"元"
call logs("银行","提款",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
end if
sucmsg=sucmsg+"<br>"+"<li>您的存款存款利息已经存入您的账号，您得到的利息是："&saveli&"元"
sucmsg=sucmsg+"<br>"+"<li>您的取款手续已经办理好了，取款金额为："&drawm&"元"
call bank_suc()
end if
end if
end sub
'--------------------------------------存款程序------------------------------------
sub savemoney()
if bankstate=0 then '我来了 添加 2002.11.30
Errmsg=Errmsg+"<br>"+"<li>银行暂停营业，请与管理员联系"
call bank_err()
exit sub
end if
if cint(bank_setting(0))=0 then '我来了 添加 2002.11.30
Errmsg=Errmsg+"<br>"+"<li>银行存款服务已经暂停，请与管理员联系"
call bank_err()
exit sub
end if
if request.form("saving")="" or (not isnumeric(request.form("saving"))) then
Errmsg=Errmsg+"<br>"+"<li>请正确输入存款金额"
call bank_err()
else
savem=clng(request.form("saving"))
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&membername&"' "
rs.open sql,conn,1,3
if savem>rs("userwealth") then
Errmsg=Errmsg+"<br>"+"<li>您没有那么多的现金"
call bank_err()
elseif savem<0 then
Errmsg=Errmsg+"<br>"+"<li>请正确输入存款金额"
call bank_err()
else
set rsbank=server.createobject("adodb.recordset")
rssql = "select * from bank where username='"&membername&"' "
rsbank.open rssql,conn1,1,3
if rsbank.eof then
rsbank.addnew
rsbank("username")=membername
rsbank("savemoney")=savem
rsbank.update
rsbank.close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -