📄 shida_bank.asp
字号:
<th colspan=4 height=20 align=left>银行管理中心---银行日志设置 (记录银行的各项操作)</th>
</tr>
<tr>
<td align=center colspan=4 class=tablebody1 height=10></td>
</tr>
<tr>
<td class=tablebody2><font color=red>银行操作事件：</font></td>
<td class=tablebody1> <input type=radio name="log_setting_0" value=1 <%if cint(log_setting(0))=1 then%>checked<%end if%>>
<font color=red>记录</font> <input type=radio name="log_setting_0" value=0 <%if cint(log_setting(0))=0 then%>checked<%end if%>>
<font color=red>不记录</font> </td>
<td class=tablebody2>记录服务事件(特殊服务)：</td>
<td class=tablebody1> <input type=radio name="log_setting_1" value=1 <%if cint(log_setting(1))=1 then%>checked<%end if%>>
是 <input type=radio name="log_setting_1" value=0 <%if cint(log_setting(1))=0 then%>checked<%end if%>>
否 </td>
</tr>
<tr>
<td class=tablebody2>记录所有银行奖励事件：</td>
<td class=tablebody1> <input type=radio name="log_setting_3" value=1 <%if cint(log_setting(3))=1 then%>checked<%end if%>>
是 <input type=radio name="log_setting_3" value=0 <%if cint(log_setting(3))=0 then%>checked<%end if%>>
否 </td>
<td class=tablebody2>用户可否查看事件记录：</td>
<td class=tablebody1> <input type=radio name="log_setting_2" value=1 <%if cint(log_setting(2))=1 then%>checked<%end if%>>
可以 <input type=radio name="log_setting_2" value=0 <%if cint(log_setting(2))=0 then%>checked<%end if%>>
不可以 </td>
</tr>
<tr>
<td class=tablebody2>记录储户事件(银行事件)：</td>
<td class=tablebody1 colspan=3> <input type=radio name="log_setting_4" value=1 <%if cint(log_setting(4))=1 then%>checked<%end if%>>
全部 <input type=radio name="log_setting_4" value=2 <%if cint(log_setting(4))=2 then%>checked<%end if%>>
金额大于
<input type=text name="log_setting_5" size=10 value=<%=log_setting(5)%>>
元的操作
<input type=radio name="log_setting_4" value=0 <%if cint(log_setting(4))=0 then%>checked<%end if%>>
不记录 </td>
</tr>
<tr>
<td align=center colspan=4 class=tablebody1><input type=submit value=修改 name=submit>
<input name="action" type="hidden" id="action" value="editlog"></td>
</tr>
<tr>
<td align=center colspan=4 class=tablebody1 height=10></td>
</tr>
</form>
<tr>
<td align=center colspan=4 class=tablebody1 height=10></td>
</tr>
<tr>
<th colspan=4 height=20 align=left>银行管理中心---银行贷款管理 (只有超过还款日期的帐户才列出)</th>
</tr>
<tr>
<td align=center colspan=4 class=tablebody1 height=10></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from bank where daikuang>0 and datediff('d',dkdate,date())>"&shida_bank(4)
rs.open sql,connPlus,1,3
%>
<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="shida_bank_do.asp?action=adminback&username=<%=rs("username")%>">强制还款</a></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
%>
<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="shida_bank_do.asp">
<tr>
<td align=right class=tablebody2>奖励对象：</td>
<td align=left colspan=3 class=tablebody1><select name="giveto" id="giveto">
<option value="0" selected>所有成员</option>
<option value="1">所有管理员</option>
<option value="3">所有超级版主</option>
<option value="4">所有版主</option>
<option value="2">所有贵宾</option>
<option value="5">所有普通会员</option>
<option value="6">登录20次以上的会员</option>
</select>
奖励单个会员请填写：
<input name=username></td>
</tr>
<tr>
<td align=right class=tablebody2>奖励金额：</td>
<td align=left colspan=3 class=tablebody1><input name=givemoney id="givemoney"></td>
</tr>
<tr>
<td align=right class=tablebody2>奖励原因：</td>
<td align=left colspan=3 class=tablebody1><textarea name="liyou" cols="50" rows="2" wrap="VIRTUAL" id="liyou"></textarea>
*不超过100字</td>
</tr>
<tr>
<td align=center colspan=4 class=tablebody1><input type=submit value=奖励 name=submit>
<input name="action" type="hidden" id="action" value="jiangli"></td>
</tr>
</form>
<tr>
<td align=center colspan=4 class=tablebody1 height=10></td>
</tr>
</table>
<%
end sub
sub menu6()
%>
<br>
<div align="center">欢迎使用电子银行服务</div>
<br>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder1 style="width:97%" dwcopytype="CopyTableCell">
<form name="form1" method="post" action="shida_bank_do.asp">
<tr >
<td align=right width="35%" class=tablebody1>每点魅力的价格：</td>
<td align=left width="35%" class=tablebody1><input name=addmeili id="addmeili" value="<%=shida_fuwu(0)%>">
元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="fuwu_setting_0" value=0 <%if cint(fuwu_setting(0))=0 then%>checked<%end if%>>
否 <input type=radio name="fuwu_setting_0" value=1 <%if cint(fuwu_setting(0))=1 then%>checked<%end if%>>
是 </td>
</tr>
<tr>
<td align=right width="35%" class=tablebody1>每点经验的价格：</td>
<td align=left width="35%" class=tablebody1><input name=addjinyan id="addjinyan" value="<%=shida_fuwu(1)%>">
元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="fuwu_setting_1" value=0 <%if cint(fuwu_setting(1))=0 then%>checked<%end if%>>
否 <input type=radio name="fuwu_setting_1" value=1 <%if cint(fuwu_setting(1))=1 then%>checked<%end if%>>
是 </td>
</tr>
<tr >
<td align=right width="35%" class=tablebody1>每点威望的价格：</td>
<td align=left width="35%" class=tablebody1><input name=addpower id="addpower" value="<%=shida_fuwu(2)%>">
元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="fuwu_setting_2" value=0 <%if cint(fuwu_setting(2))=0 then%>checked<%end if%>>
否 <input type=radio name="fuwu_setting_2" value=1 <%if cint(fuwu_setting(2))=1 then%>checked<%end if%>>
是 </td>
</tr>
<tr >
<td align=right width="35%" class=tablebody1>每点精华的价格：</td>
<td align=left width="35%" class=tablebody1><input name=addisbest id="addisbest" value="<%=shida_fuwu(8)%>">
元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="fuwu_setting_8" value=0 <%if cint(fuwu_setting(8))=0 then%>checked<%end if%>>
否 <input type=radio name="fuwu_setting_8" value=1 <%if cint(fuwu_setting(8))=1 then%>checked<%end if%>>
是 </td>
</tr>
<tr>
<td align=right width="35%" class=tablebody1>每点发贴的价格：</td>
<td align=left width="35%" class=tablebody1><input name=addfatie id="addfatie" value="<%=shida_fuwu(3)%>">
元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="fuwu_setting_3" value=0 <%if cint(fuwu_setting(3))=0 then%>checked<%end if%>>
否 <input type=radio name="fuwu_setting_3" value=1 <%if cint(fuwu_setting(3))=1 then%>checked<%end if%>>
是 </td>
<tr >
<td align=right width="35%" class=tablebody1>发公告的价格：</td>
<td align=left width="35%" class=tablebody1><input name=fagonggao id="fagonggao" value="<%=shida_fuwu(4)%>">
元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="fuwu_setting_4" value=0 <%if cint(fuwu_setting(4))=0 then%>checked<%end if%>>
否 <input type=radio name="fuwu_setting_4" value=1 <%if cint(fuwu_setting(4))=1 then%>checked<%end if%>>
是 </td>
</tr>
<tr >
<td align=right width="35%" class=tablebody1>群发短信的价格：</td>
<td align=left width="35%" class=tablebody1><input name=faduangxun id="faduangxun" value="<%=shida_fuwu(5)%>">
元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="fuwu_setting_5" value=0 <%if cint(fuwu_setting(5))=0 then%>checked<%end if%>>
否 <input type=radio name="fuwu_setting_5" value=1 <%if cint(fuwu_setting(5))=1 then%>checked<%end if%>>
是 </td>
</tr>
<tr >
<td align=right width="35%" class=tablebody1>请打手K人的价格：</td>
<td align=left width="35%" class=tablebody1><input name=kick id="kick" value="<%=shida_fuwu(6)%>">
元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="fuwu_setting_6" value=0 <%if cint(fuwu_setting(6))=0 then%>checked<%end if%>>
否 <input type=radio name="fuwu_setting_6" value=1 <%if cint(fuwu_setting(6))=1 then%>checked<%end if%>>
是 </td>
</tr>
<tr >
<td align=right width="35%" class=tablebody1> 删除<font color=red>1</font>封邮件单价：</td>
<td align=left width="35%" class=tablebody1><input name=delmail value="<%=shida_fuwu(7)%>">
元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="fuwu_setting_7" value=0 <%if cint(fuwu_setting(7))=0 then%>checked<%end if%>>
否 <input type=radio name="fuwu_setting_7" value=1 <%if cint(fuwu_setting(7))=1 then%>checked<%end if%>>
是 </td>
</tr>
<tr>
<td align=center colspan=3 class=tablebody2><input type=submit value=修改 name=submit>
<input name="action" type="hidden" id="action" value="editfuwu"></td>
</tr>
<input type=hidden value="10" name=menu>
</form>
</table>
<%
end sub
sub menu7()
if cint(log_setting(2))=1 or dvbbs.usergroupid=1 then
%>
<br>
<div align="center">欢迎使用电子银行服务</div>
<br>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:97%">
<tr>
<td class=tablebody2><%
dim ipageCurrent,ThispageSize,ipageCount,iRecordsShow,n
sql="Select * From bank_log order By ID desc"
Set Rs=Server.CreateObject("ADODB.Recordset")
if Request.QueryString("page")="" Then
ipageCurrent=1
else
ipageCurrent=CInt(Request.QueryString("page"))
end if
ThispageSize=20
n=(ipageCurrent-1)*ThispageSize
Rs.pageSize=ThispageSize
Rs.cacheSize=ThispageSize
Rs.Open sql,ConnPlus,3,1
ipageCount=Rs.pageCount
if ipageCount>0 Then
response.write " 页码: "
dim i
For i=1 to ipageCount
response.write "<a href=?menu=7&page="&i&">"&i&"</a> "
Next
end if
%></td>
</tr>
</table>
<% If rs.recordcount>0 Then %>
<table cellspacing=1 cellpadding=3 align=center style="width:90%">
<tr class=tablebody2>
<td align="center" class=tablebody2>序号</td>
<td class=tablebody2>类型</td>
<td class=tablebody2>用户名</td>
<td class=tablebody2>内容</td>
<td class=tablebody2>时间</td>
<td class=tablebody2>IP</td>
</tr>
<%
Rs.Absolutepage=ipageCurrent
iRecordsShow=0
Do While iRecordsShow<ThispageSize And Not Rs.Eof
n=n+1
%>
<tr class=tablebody2>
<td align="center" class=tablebody2><font color="#FF0000"><%= n %></font></td>
<td class=tablebody2><%= Rs("class") %></td>
<td class=tablebody2><a href="dispuser.asp?name=<%= Rs("username") %>" target="_blank"><%= Rs("username") %></a></td>
<td class=tablebody2><%= Rs("title") %></td>
<td class=tablebody2><%= Rs("DateAndTime") %></td>
<td class=tablebody2><%= Rs("IP") %></td>
</tr>
<%
iRecordsShow=iRecordsShow+1
Rs.MoveNext
Loop %>
<form name="form6" method="post" action="shida_bank_do.asp">
<tr class=tablebody2>
<td colspan="6" align="right" class=tablebody2><input name="action" type="hidden" id="action" value="dellog">
<input name="thedate" type="text" id="thedate" value="<%=date()%>" size="12" maxlength="12">
<input type="submit" name="Submit" value="删除这一天以前的日志"></td>
</tr>
</form>
</table>
<% End If
Rs.close
else
response.write "本行仅允许管理员查看事件记录。"
end if
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -