📄 z_bank.asp
字号:
<tr>
<th>帐户名</th>
<th>贷款金额</th>
<th>贷款天数</th>
<th>操 作</th>
</tr>
<%
if rs.eof and rs.bof then
%>
<tr>
<td align=center colspan=4 class=tablebody2>暂时还没有超过还款日期的帐户</td>
</tr>
<%
else
do while not rs.eof
%>
<tr>
<td align=center class=tablebody2><a href="dispuser.asp?name=<%=rs("username")%>" target=_blank><%=rs("username")%></a></td>
<td align=center class=tablebody1><%=rs("daikuang")%></td>
<td align=center class=tablebody1><%=datediff("d",rs("dkdate"),date())%></td>
<td align=center class=tablebody2><a href="Z_bank.asp?menu=10&username=<%=rs("username")%>">强制还款</a></td>
</tr>
<%
rs.movenext
loop
end if
%>
<tr>
<td align=center colspan=4 class=tablebody1 height=10></td>
</tr>
<tr height=22><th colspan=4 height=20 align=left>银行管理中心---银行奖励管理</th></tr>
<tr>
<td align=center colspan=4 class=tablebody1 height=10></td>
</tr>
<form name="form1" method="post" action="Z_bank.asp?menu=11">
<tr>
<td align=right class=tablebody2>奖励对象：</td>
<td align=left colspan=3 class=tablebody1><select name="name">
<option value="20" selected>所有管理员</option>
<option value="19">所有贵宾</option>
<option value="18">所有超级版主</option>
<option value="17">所有版主</option>
<option value="1">所有会员</option>
</select> 奖励单个会员请填写：<INPUT name=username></td></tr>
<tr>
<td align=right class=tablebody2>奖励金额：</td>
<td align=left colspan=3 class=tablebody1><INPUT name=money></td>
</tr>
<tr>
<td align=right class=tablebody2>奖励理由：</td>
<td align=left colspan=3 class=tablebody1><INPUT name=liyou size="50"></td>
</tr>
<tr>
<td align=center colspan=4 class=tablebody1><INPUT type=submit value=奖励 name=submit></td>
</tr>
</form>
<tr>
<td align=center colspan=4 class=tablebody1 height=10></td>
</tr>
<tr height=22><td align=center colspan=4 height=26 class=tablebody2><a href=Z_bank.asp>返回银行首页</a> <a href=javascript:history.go(-1)>返回上一页</a></td></tr>
</table>
<br>
<%
end if
end sub
sub admin1()
dim saveli
if not master then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>您没有进入银行基本设置的权限。"
else
if request.form("saveli")="" or (not isnumeric(request.form("saveli"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>存款利息必须为数字"
elseif request.form("saveli")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>存款利息不能为负数"
end if
if request.form("daili")="" or (not isnumeric(request.form("daili"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>贷款利息必须为数字"
elseif request.form("daili")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>贷款利息不能为负数"
end if
if request.form("chubei")="" or (not isnumeric(request.form("chubei"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>银行储备资金必须为数字"
elseif request.form("chubei")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>银行储备资金不能为负数"
end if
if request.form("zhuangli")="" or (not isnumeric(request.form("zhuangli"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>转帐手续费必须为数字"
elseif request.form("zhuangli")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>转帐手续费不能为负数"
end if
if request.form("daitian")="" or (not isnumeric(request.form("daitian"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>最长贷款天数必须为数字"
elseif request.form("daitian")<=0 or int(request.form("daitian"))-request.form("daitian")<>0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>最长贷款天数不能必须为正整数"
end if
if request.form("creditvalue")="" or (not isnumeric(request.form("creditvalue"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>信誉系数必须为数字"
elseif request.form("creditvalue")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>信誉系数不能为负数"
end if
if request.form("StartLixiDay")="" or (not isnumeric(request.form("StartLixiDay"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请输入计息起始天数，或者您输入的不是数字"
elseif request.form("StartLixiDay")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>计息起始天数不能为负数"
end if
if request.form("BusinessTimeSlice")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请输入营业起始时间"
else
Chen_BusinessTimeSlice=split(request.form("BusinessTimeSlice"),"||")
if ubound(Chen_BusinessTimeSlice)<>1 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>营业起始时间输入不正确，格式为：开始小时数||结束小时数"
elseif not (isnumeric(Chen_BusinessTimeSlice(0)) and isnumeric(Chen_BusinessTimeSlice(1))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>营业起始时间的'||'符号两边必须是数字"
elseif cint(Chen_BusinessTimeSlice(0))<0 or cint(Chen_BusinessTimeSlice(0))>24 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>开始营业时间范围不正确，请输入0～24之间的整数"
elseif cint(Chen_BusinessTimeSlice(1))<0 or cint(Chen_BusinessTimeSlice(1))>24 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>结束营业时间范围不正确，请输入0～24之间的整数"
elseif cint(Chen_BusinessTimeSlice(1))<cint(Chen_BusinessTimeSlice(0)) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>开始营业时间不能大于结束营业时间"
end if
end if
end if
if founderr then
call bank_err()
else
saveli=formatnumber(request.form("saveli"))
daili=formatnumber(request.form("daili"))
chubei=int(request.form("chubei"))
zhuangli=formatnumber(request.form("zhuangli"))
daitian=int(request.form("daitian"))
set rs=server.createobject("adodb.recordset")
sql="select * from [bankconfig]"
rs.open sql,conn1,1,3
rs("savedayli")=saveli
rs("ddayli")=daili
rs("chubei")=chubei
rs("zzli")=zhuangli
rs("dkday")=daitian
rs("state")=request.form("bankstate") '我来了 添加 2002.11.30
rs("bank_setting")=request.Form("canCunkuan") & "," & request.Form("canQukuan")& "," & request.Form("canDaikuan")& "," & request.Form("canZhuanzang")& "," & request.form("creditvalue")& "," & request.form("candaikuantrans")& "," & request.form("BusinessHours")& "," & request.form("BusinessTimeSlice")
rs("StartLixiDay")=request.form("StartLixiDay") '绿水青山 2003.1.6
rs.update
rs.close
if cint(log_setting(0))=1 and cint(log_setting(3))=1 then
content="调整银行基本设置"
call logs("管理","银行管理中心",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
sucmsg=sucmsg+"<br>"+"<li>银行基本信息修改完成"
call bank_suc()
end if
end sub
'-----------------------------奖励-------------------------------
sub jiangli()
dim money,liyou,classid,rs2,sql2
if not master then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>您没有执行银行奖励的权限。"
else
if request.form("money")="" or (not isnumeric(request.form("money"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>奖励金额必须为数字"
elseif request.form("money")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>奖励金额不能为负数"
end if
if trim(request.form("liyou"))="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请输入奖励理由"
end if
end if
if founderr then
call bank_err()
exit sub
end if
dim classuser '奖励单个用户
money=int(request.form("money"))
liyou=trim(request.form("liyou"))
if request.form("username") = "" then
classid=int(request.form("name"))
if classid=20 then
set rs=server.createobject("adodb.recordset")
sql="select userwealth,username from [user] where userclass='管理员'"
rs.open sql,conn,1,3
do while not rs.eof
rs(0)=rs(0)+money
rs.update
set rs2=server.createobject("adodb.recordset")
sql2="select * from [message]"
rs2.open sql2,conn,1,3
rs2.addnew
rs2("sender")="银行行长"
rs2("incept")=rs(1)
rs2("title")="社区银行给您奖励"+cstr(money)+"元"
rs2("content")="社区很行给于您"+cstr(money)+"元奖励。奖励理由："+liyou
rs2("flag")=0
rs2("issend")=1
rs2.update
rs2.close
rs.movenext
loop
elseif classid=19 then
set rs=server.createobject("adodb.recordset")
sql="select userwealth,username from [user] where userclass='贵宾'"
rs.open sql,conn,1,3
do while not rs.eof
rs(0)=rs(0)+money
rs.update
set rs2=server.createobject("adodb.recordset")
sql2="select * from [message]"
rs2.open sql2,conn,1,3
rs2.addnew
rs2("sender")="银行行长"
rs2("incept")=rs(1)
rs2("title")="社区银行给您奖励"+cstr(money)+"元"
rs2("content")="社区很行给于您"+cstr(money)+"元奖励。奖励理由："+liyou
rs2("flag")=0
rs2("issend")=1
rs2.update
rs2.close
rs.movenext
loop
elseif classid=18 then
set rs=server.createobject("adodb.recordset")
sql="select userwealth,username from [user] where userclass='超级版主' "
rs.open sql,conn,1,3
do while not rs.eof
rs(0)=rs(0)+money
rs.update
set rs2=server.createobject("adodb.recordset")
sql2="select * from [message]"
rs2.open sql2,conn,1,3
rs2.addnew
rs2("sender")="银行行长"
rs2("incept")=rs(1)
rs2("title")="社区银行给您奖励"+cstr(money)+"元"
rs2("content")="社区很行给于您"+cstr(money)+"元奖励。奖励理由："+liyou
rs2("flag")=0
rs2("issend")=1
rs2.update
rs2.close
rs.movenext
loop
elseif classid=17 then
set rs=server.createobject("adodb.recordset")
sql="select userwealth,username from [user] where userclass='版主'"
rs.open sql,conn,1,3
do while not rs.eof
rs(0)=rs(0)+money
rs.update
set rs2=server.createobject("adodb.recordset")
sql2="select * from [message]"
rs2.open sql2,conn,1,3
rs2.addnew
rs2("sender")="银行行长"
rs2("incept")=rs(1)
rs2("title")="社区银行给您奖励"+cstr(money)+"元"
rs2("content")="社区很行给于您"+cstr(money)+"元奖励。奖励理由："+liyou
rs2("flag")=0
rs2("issend")=1
rs2.update
rs2.close
rs.movenext
loop
elseif classid=1 then
set rs=server.createobject("adodb.recordset")
sql="select userwealth,username from [user]"
rs.open sql,conn,1,3
do while not rs.eof
rs(0)=rs(0)+money
rs.update
set rs2=server.createobject("adodb.recordset")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -