📄 z_bank_clientevents.asp
字号:
<Th width=120>用户名称</Th>
<Th width=120>活期存款</Th>
<Th width=*>定期存款</Th>
<Th width=120>贷款</Th>
<Th width=100>是否被冻结</Th>
<%if format_power(login_mode,0)="admin" or IsBankMaster then Response.Write "<Th width=40>管理</Th>"%>
</TR>
<%
crs.PageSize = 20
total = crs.recordcount
Pcount = crs.pagecount
if page < 1 then page = 1
if page > Pcount then page = Pcount
crs.move (page-1)*crs.pagesize
ii = 0
do while not crs.eof and ii < crs.pagesize
%>
<TR>
<TD align=middle class=tablebody2 width=120><%=crs(0)%> </TD>
<TD align=middle class=tablebody1 width=120><%=crs(2)%> </TD>
<TD align=middle class=tablebody2 width=120><%=crs(3)%> </TD>
<TD align=middle class=tablebody1 width=*><%=crs(4)%> </TD>
<TD align=middle class=tablebody2 width=120><%=crs(5)%> </TD>
<TD align=middle class=tablebody1 width=100><%=crs(6)%> </TD>
<%if format_power(login_mode,0)="admin" or IsBankMaster then Response.Write "<TD align=middle class=tablebody2 width=40><input type=checkbox name=Bfreeze value="&crs(1)&"></TD>"%>
</TR>
</center>
</div>
<%
ii = ii+1
crs.movenext
loop
Response.Write "</table>"
call PageFooter
if format_power(login_mode,0)="admin" then
if request("vt")="unfreeze" then
Response.Write "<table border=1 cellpadding=0 cellspacing=1 width=98% align=center bordercolor='"&web_var(web_color,3)&"'><tr><td><input type=submit name=s value=解冻 onclick=""return confirm('是否解冻所选定的用户？');""> <input type=button name=t value=切换到冻结用户界面 onclick=""javascript:location.href='z_bank_ClientEvents.asp?bankid="&BankID&"';""> <input type=button name=t value=切换到删除用户界面 onclick=""javascript:location.href='z_bank_ClientEvents.asp?bankid="&BankID&"&vt=DelUser';""> 本操作为解冰结所选中的用户</td></tr></table>"
elseif request("vt")="DelUser" then
Response.Write "<table border=1 cellpadding=0 cellspacing=1 width=98% align=center bordercolor='"&web_var(web_color,3)&"'><tr><td><input type=submit name=s value=删除 onclick=""return confirm('是否删除所选定的用户？');""> <input type=button name=t value=切换到解冻用户界面 onclick=""javascript:location.href='z_bank_ClientEvents.asp?bankid="&BankID&"&vt=unfreeze';""> <input type=button name=t value=切换到冻结用户界面 onclick=""javascript:location.href='z_bank_ClientEvents.asp?bankid="&BankID&"';""> 本操作为删除所选中的用户</td></tr></table>"
else
Response.Write "<table border=1 cellpadding=0 cellspacing=1 width=98% align=center bordercolor='"&web_var(web_color,3)&"'><tr><td><input type=submit name=s value=冻结 onclick=""return confirm('是否冻结所选定的用户？');""> <input type=button name=t value=切换到解冻用户界面 onclick=""javascript:location.href='z_bank_ClientEvents.asp?bankid="&BankID&"&vt=unfreeze';""> <input type=button name=t value=切换到删除用户界面 onclick=""javascript:location.href='z_bank_ClientEvents.asp?bankid="&BankID&"&vt=DelUser';""> 本操作为冻结所选中的用户（要注意别把自己也冻了）</td></tr></table>"
end if
elseif format_power(login_mode,0)="admin" or IsBankMaster then
if request("vt")="unfreeze" then
Response.Write "<table border=1 cellpadding=0 cellspacing=1 width=98% align=center bordercolor='"&web_var(web_color,3)&"'><tr><td><input type=submit name=s value=解冻 onclick=""return confirm('是否解冻所选定的用户？');""> <input type=button name=t value=切换到冻结用户界面 onclick=""javascript:location.href='z_bank_ClientEvents.asp?bankid="&BankID&"';""> 本操作为解冰结所选中的用户</td></tr></table>"
else
Response.Write "<table border=1 cellpadding=0 cellspacing=1 width=98% align=center bordercolor='"&web_var(web_color,3)&"'><tr><td><input type=submit name=s value=冻结 onclick=""return confirm('是否冻结所选定的用户？');""> <input type=button name=t value=切换到解冻用户界面 onclick=""javascript:location.href='z_bank_ClientEvents.asp?bankid="&BankID&"&vt=unfreeze';""> 本操作为冻结所选中的用户（要注意别把自己也冻了）</td></tr></table>"
end if
end if
Response.Write "</form>"
end if
crs.Close
set crs = nothing
call search1
end sub
sub PageFooter()
dim BPage
ii=0
if request("action")="events" then
BPage="action=events"
elseif request("vt")<>"" then
BPage="vt="&request("vt")&"&bankuser="&BankUser
else
BPage="bankuser="&BankUser
end if
Response.Write "<br><table border=1 cellpadding=0 cellspacing=1 width=98% align=center bordercolor='"&web_var(web_color,3)&"'>"&_
"<tr><td valign=middle nowrap>"&_
"页次：<font color=#ff0000><b>"&page&"</b></font>/<b>"&Pcount&"</b>页"&_
" 每页<font color=#ff0000><b>20</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=z_bank_ClientEvents.asp?bankid="&bankID&"&"&BPage&"&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_ClientEvents.asp?bankid="&bankID&"&"&BPage&"&page="&i&">["&i&"]</a>"
end if
end if
next
if page+3 < Pcount then
Response.Write "...<a href=z_bank_ClientEvents.asp?bankid="&bankID&"&"&BPage&"&page="&Pcount&">["&Pcount&"]</a>"
end if
response.write "</p></div></font></td></tr></table>"
end sub
sub search1()
Response.Write "<br><table border=0 cellpadding=0 cellspacing=2 width=98% align=center bordercolor='"&web_var(web_color,3)&"'>"&_
"<tr><td valign=middle align=center nowrap>"&_
"<form action=z_bank_ClientEvents.asp method=get>"&_
"选择银行：<select name=bankid><option value=0>所有银行</option>"
csql="select bankid,bankname from bank"
set crs=cjconn.execute (csql)
do while not crs.eof
Response.Write "<option value="&crs(0)&" "
if Bankid=crs(0) then
Response.Write "selected"
end if
Response.Write ">"&crs(1)&"</option>"
crs.movenext
loop
set crs=nothing
Response.Write "</select> 填入想找的用户名（选全部银行时必须查询具体的某用户）：<input type=text name=bankuser size=10> <input type=submit name=s value=查询></form></td></tr></table>"
end sub
'删除事件
sub delEvents()
dim del,DelAll
del=Request.Form("del")
DelAll=Request.Form("delAll")
if format_power(login_mode,0)<>"admin" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>你不是管理员或还没有登录后台，但可以肯定你是非法操作。</li>"
end if
if not FoundBankID then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>找不到你所操作的银行。</li>"
end if
if DelAll<>1 and del="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>你没有选择任何记录。</li>"
end if
if not FoundErr then
if DelAll=1 then
cjconn.execute ("delete from bankevent where bankid="&BankID)
else
cjconn.execute ("delete from bankevent where eventid in ("&del&") and bankid="&BankID)
end if
call yaoyue_banksuc()
end if
end sub
'用户管理
sub FreezeUser()
dim Bfreeze,unfreeze
Bfreeze=Request.Form("Bfreeze")
if request("vt")="unfreeze" then
unfreeze=0
elseif request("vt")="DelUser" then
unfreeze=2
else
unfreeze=1
end if
if unfreeze=2 then
if format_power(login_mode,0)="admin" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>你不是管理员或还没登录后台。</li>"
end if
elseif not IsBankMaster and format_power(login_mode,0)="admin" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>你不是该行行长或管理员。</li>"
end if
if Bfreeze="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>你没有选择用户。</li>"
end if
if not FoundErr then
if unfreeze = 2 then
csql="select bankid,name,CurrDeposit,TimeDeposit,PaymentForGoods,ByDetainCP from bankuser where bankuserid in("&Bfreeze&")"
set crs=cjconn.execute (csql)
if crs.bof and crs.eof then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>操作后请不要刷新本页。</li>"
exit sub
end if
do while not crs.eof
cjconn.execute ("update bank set alldeposit=alldeposit-"&(crs(2)+crs(3))&",PaymentForGoods=PaymentForGoods-"&crs(4)&",loveliness=loveliness+"&crs(5)&" where bankid="&crs(0))
crs.movenext
loop
set crs=nothing
cjconn.execute ("delete from TimeDeposit where bankuserid in ("&Bfreeze&")")
cjconn.execute ("delete from PaymentForGoods where bankuserid in ("&Bfreeze&")")
cjconn.execute ("delete from bankuser where bankuserid in ("&Bfreeze&")")
else
cjconn.execute ("update bankuser set freeze="&unfreeze&" where bankuserid in ("&Bfreeze&")")
end if
call yaoyue_banksuc()
end if
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -