📄 z_bank.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="Z_bankconn.asp"-->
<!--#include file="Z_bankconfig.asp"-->
<%
dim menu,savem,rsbank,rssql
dim lockac '帐户是否被冻结 我来了 2002.10.23
dim smoney,saveday,time1,time2,daikuang,dkdu,daiday
menu=request.querystring("menu")
if menu="" then menu=0
'chentitle="电子银行"
'chenbackasp="bank.asp"
stats="电子银行 银行营业大厅"
select case menu
case 1
stats="电子银行 社区二十大富翁"
call nav()
call head_var(0,0,"电子银行","Z_bank.asp")
case 2
stats="电子银行 银行二十大储户"
call nav()
call head_var(0,0,"电子银行","Z_bank.asp")
case 8
stats="电子银行 银行行长办公室"
call nav()
call head_var(0,0,"电子银行","Z_bank.asp")
case 13
stats="电子银行 浏览银行事件记录"
call nav()
call head_var(0,0,"电子银行","Z_bank.asp")
case else
call nav()
call head_var(2,0,"","")
end select
if not founduser then
Errmsg=Errmsg+"<br>"+"<li>您没有进入电子银行的权限，请先登陆或者同管理员联系。"
call dvbbs_error()
elseif cint(bank_setting(6))=1 and (not master) then '银行是否设置定时营业
if DatePart("h", time)<cint(Chen_BusinessTimeSlice(0)) or DatePart("h", time)>=cint(Chen_BusinessTimeSlice(1)) then
call BankClose()
else
call start()
end if
else
call start()
end if
if founderr then call dvbbs_error()
call activeonline()
call footer()
'=========================================================
sub start()
set rs=server.createobject("adodb.recordset")
sql="select * from [bank] where username='"&membername&"' "
rs.open sql,conn1,1,3
if rs.eof then
rs.addnew
rs("username")=membername
rs("bankuser_setting")="0,"&bank_setting(4)
rs.update
smoney=0
end if
daikuang=rs("daikuang")
lockac=rs("lockac")
smoney=rs("savemoney")
bankuser_setting=split(rs("bankuser_setting"),",")
'计算贷款信誉额
if daikuang>0 then
dkdu=0
elseif cint(bankuser_setting(0))=1 then
dkdu=int(mymoney*bankuser_setting(1))
else
dkdu=int(mymoney*bank_setting(4))
end if
saveday=datediff("d",rs("date"),date())
daiday=datediff("d",rs("dkdate"),date())
rs.close
'-------------------------
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr>
<th height=25><%=stats%></td>
</tr>
<tr>
<td class=tablebody2 height=1>
<%
founderr=false
call bankhead()
select case menu
case 0
call main() '银行营业大厅
case 1
call forum_top20() '社区二十大富翁
case 2
call bank_top20() '银行二十大储户
case 3
call savemoney() '存款
case 4
call qumoney() '取款
case 5
call zmoney() '转帐
case 6
call daimoney() '贷款
case 7
call hmoney() '还贷
case 8
call admin() '银行管理页面
case 9
call admin1() '保存银行设置
case 10
call hmoney2() '强制还款
case 11
call jiangli() '奖励
case 12
call savelogsetting() '保存事件设置
case 13
call banklog() '银行事件查看
case else
call main()
end select
%>
</td></tr></table>
<%
founderr=false
end sub
'=======================================================================================
'-------------------------------------------主程序-----------------------------------
sub main()
if daiday>daitian and daikuang>0 then
%>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:97%"><tr><th height=26 >银行保安</th></tr><tr height=200><td align=center height=26 class=tablebody1><br><font color=red>由于你的贷款超过了尝还期限,现在强制执行！<%=hmoney2%></font><br><br></td></tr><tr><td align=center height=26 class="tablebody1"><a href="Z_bank.asp">返回银行大厅</a></td></tr></table>
<% else %>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:97%">
<tr>
<th height=26>欢迎来到电子银行管理您的财产</th>
</tr>
<tr>
<td align=center height=26 class=tablebody2>银行目前的日利率是 <font color="#FF0000"><%=culi%>%</font>，贷款利率是 <font color="#FF0000"><%=daili%>%</font>，存款利率从第 <font color="#FF0000"><%=Chen_StartLixiDay%></font> 天起计算，当前银行储备资金为 <font color="#FF0000"><%=chubei%></font><br>贷款最长期限为 <font color="#FF0000"><%=daitian%></font> 天（到期将强制执行）；每次存款、取款自动结算利息</td>
</tr>
<%if lockac then%>
<tr>
<td align=center height=26 class=tablebody1><font color="#FF0000">您的银行账户已经被冻结,您不能进行取款、转账、贷款操作</font></td>
</tr>
<%
end if
if cint(bankstate)=1 then
%>
<form name="form1" method="post" action="Z_bank.asp?menu=3"><tr><td align=left height=30 class=tablebody1><%if mymoney>0 and cint(bank_setting(0))=1 then%><font color=blue>√</font><%else%><font color=red>×</font><%end if%> <font face=Wingdings>v</font> 存款： <INPUT name=saving> <INPUT type=submit value=存入 name=submit> 你现有的现金为：<font color="#FF0000"><%=mymoney%></font> 元 存款利率为：<font color="#FF0000"><%=culi%>%</font> </td></tr></form>
<form name="form2" method="post" action="Z_bank.asp?menu=4"><tr><td align=left height=30 class=tablebody1><%if lockac or smoney<=0 or cint(bank_setting(1))=0 then%><font color=red>×</font><%else%><font color=blue>√</font><%end if%> <font face=Wingdings>v</font> 取款： <INPUT name=draw> <INPUT type=submit value=取出 name=submit> 你现在的存款为：<font color="#FF0000"><%=smoney%></font> 元 你的利息为：<font color="#FF0000"><% if saveday<Chen_StartLixiDay then%>0<%else%><%=clng((formatnumber(smoney)*(formatnumber(culi)/100))*saveday)%><%end if%></font> 元 <%if smoney>0 then%>你的存款天数：<font color="#FF0000"><%=saveday%></font> 天 <%end if%></td></tr></form>
<form name="form3" method="post" action="Z_bank.asp?menu=5"><tr><td align=left height=30 class=tablebody1><%if lockac or cint(bank_setting(3))=0 or (daikuang>0 and cint(bank_setting(5))=0) then%><font color=red>×</font><%else%><font color=blue>√</font><%end if%> <font face=Wingdings>v</font> 转账： <INPUT name=trans> 元 给 <INPUT name=transTo> <INPUT type=submit value=转入 name=submit> 转账手续费：<font color="#FF0000"><%=zhuangli%>%</font> </td></tr></form>
<form name="form4" method="post" action="Z_bank.asp?menu=6"><tr><td align=left height=30 class=tablebody1><%if lockac or daikuang>0 or cint(bank_setting(2))=0 then%><font color=red>×</font><%else%><font color=blue>√</font><%end if%> <font face=Wingdings>v</font> 贷款： <INPUT name=loan> <INPUT type=submit value=贷款 name=submit> 你的贷款额度为：<font color="#FF0000"><%=dkdu%></font> 元 贷款利率为：<font color="#FF0000"><%=daili%>%</font>
</td></tr></form>
<%if daikuang>0 then%>
<form name="form5" method="post" action="Z_bank.asp?menu=7"><tr><td align=left height=30 class=tablebody1> 还清贷款： <INPUT type=submit value=还款 name=submit> 你现在的贷款额为：<font color="#FF0000"><%=daikuang%></font> 你贷款的利息为：<font color="#FF0000"><%if daikuang=0 then %>0<%else%><%=clng((daikuang*(formatnumber(culi)/100))*daiday)%></font> 元 你的贷款天数：<font color="#FF0000"><%=daiday%></font> 天<%end if%></td></tr></form>
<%end if%>
<%else%>
<tr><td align=center height=25 class=tablebody1><font face=Wingdings color=blue>v</font><font color=red> 银行结余/调整，暂时停止营业，如有问题请与管理员联系 </font><font face=Wingdings color=blue>v</font></td></tr>
<%end if%>
<tr><td align=center height=25 class=tablebody2><font color=gray>银行营业时间：<% if cint(bank_setting(6))=0 then%>全天营业<%else%><%=Chen_BusinessTimeSlice(0)%>:00～<%=Chen_BusinessTimeSlice(1)%>:00<%end if%></font></td></tr>
</table>
<br>
<%
end if
end sub
'--------------------------------强制还款-------------------------------
function hmoney2()
dim name
if request.querystring("username")<>"" then
name=checkStr(trim(request.querystring("username")))
if not master then
Errmsg=Errmsg+"<br>"+"<li>您没有执行强制还款操作的权限，请与管理员联系"
call bank_err()
exit function
end if
else
name=membername
end if
set rs=server.createobject("adodb.recordset")
sql="select * from bank where username='"&name&"' "
rs.open sql,conn1,1,3
if rs.eof and rs.bof then
errmsg=errmsg+"<br>"+"<li>用户["&name&"]的银行账号不存在"
call bank_err()
else
dim lixi,benjin,loan
benjin=rs("daikuang")
lixi=clng((daikuang*(formatnumber(daili)/100))*daiday)
loan=lixi+benjin
rs("daikuang")=0
rs("dkdate")=date()
rs.update
rs.close
sql="select * from bankconfig"
rs.open sql,conn1,1,3
rs("chubei")=rs("chubei")+loan
rs.update
rs.close
sql="select * from [user] where username='"&name&"' "
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(3))=1 then
content="<font color=red> <font color=blue>"&name&"</font> 被强制还清所有贷款，原贷款金额为："&benjin&" 元，还款金额为："&loan&"元</font>"
call logs("管理","强制还款","银行行长")
end if
if request.querystring("username")<>"" then
sucmsg=sucmsg+"<br>"+"<li>用户["&name&"]的借款已经被强制还清，本金："&benjin&"元,利息："&lixi&"元,还款总金额为："&loan&"元"
call bank_suc()
else
hmoney2="<br>"+"<font color=navy>您的借款已经被强制还清，本金："&benjin&"元,利息："&lixi&"元,还款总金额为："&loan&"元</font>"
end if
end if
end function
'--------------------------------还贷程序-------------------------------
sub hmoney()
if bankstate=0 then '我来了 添加 2002.11.30
Errmsg=Errmsg+"<br>"+"<li>银行暂停营业，请与管理员联系"
call bank_err()
exit sub
end if
dim loan
set rs=server.createobject("adodb.recordset")
sql="select * from bank where username='"&membername&"' "
rs.open sql,conn1,1,3
set rsbank=server.createobject("adodb.recordset")
rssql="select * from [user] where username='"&membername&"'"
rsbank.open rssql,conn,1,3
loan=clng((daikuang*(formatnumber(daili)/100))*daiday)+rs("daikuang")
if rs("daikuang")=0 then
rsbank.close
Errmsg=Errmsg+"<br>"+"<li>您没有贷款啊"
call bank_err()
elseif loan>rsbank("userwealth") then
rsbank.close
rs("lockac")=true
rs.update
Errmsg=Errmsg+"<br>"+"<li>您没有那么多的钱还贷款"
Errmsg=Errmsg+"<br>"+"<li>银行将会暂时冻结您的银行帐户，直到您还清您的贷款"
call bank_err()
content="不够钱还款，银行账号自动被冻结"
call logs("银行","偿还贷款",membername)
else
rsbank.close
rs("daikuang")=0
rs("dkdate")=date()
'rs("lockac")=false
rs.update
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="还清所有贷款，原贷款金额为："&daikuang&" 元，还款金额为："&loan&"元"
call logs("银行","偿还贷款",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
end if
sucmsg=sucmsg+"<br>"+"<li>您的借款已经全部还清，原贷款金额为："&daikuang&" 元，还款金额为："&loan&"元"
call bank_suc()
end if
end sub
'--------------------------------贷款程序--------------------------------
sub daimoney()
if bankstate=0 then '我来了 添加 2002.11.30
Errmsg=Errmsg+"<br>"+"<li>银行暂停营业，请与管理员联系"
call bank_err()
exit sub
end if
if cint(bank_setting(2))=0 then '我来了 添加 2002.11.30
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -