📄 z_bank.asp
字号:
set rsbank=server.createobject("adodb.recordset")
rssql = "select * from bankconfig"
rsbank.open rssql,conn1,1,3
rsbank("chubei")=rsbank("chubei")+savem
rsbank.update
rsbank.close
rs("userwealth")=rs("userwealth")-savem
rs.update
rs.close
else
dim saveli
if saveday<Chen_StartLixiDay then
saveli=0
else
saveli=clng((smoney*(formatnumber(culi)/100))*saveday)
end if
rsbank("savemoney")=rsbank("savemoney")+savem+saveli
rsbank("date")=date()
rsbank.update
rsbank.close
set rsbank=server.createobject("adodb.recordset")
rssql = "select * from bankconfig"
rsbank.open rssql,conn1,1,3
rsbank("chubei")=rsbank("chubei")+savem
rsbank.update
rsbank.close
rs("userwealth")=rs("userwealth")-savem
rs.update
rs.close
end if
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 savem>=clng(log_setting(5))) then
content="向银行存入现金"&savem&"元"
call logs("银行","存款",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
end if
sucmsg=sucmsg+"<br>"+"<li>您的存款存款利息已经存入您的账号，您得到的利息是："&saveli&"元"
sucmsg=sucmsg+"<br>"+"<li>您的钱成功的存入银行，本次存入："&savem&"元"
call bank_suc()
end if
end if
end sub
'-------------------------------------------论坛TOP20大富翁排行-------------------------------------
sub forum_top20()
set rs=server.createobject("adodb.recordset")
sql="select * from [user] order by userWealth desc"
rs.open sql,conn,1,3
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 style="width:97%">
<tr>
<th>用户名</th>
<th>Email</th>
<th>OICQ</th>
<th>主页</th>
<th>短消息</th>
<th>注册时间</th>
<th>等级状态</th>
<th>发贴总数</th>
<th>现金</th>
</tr>
<%
dim i
for i=1 to 20
%>
<tr>
<td align=center class=tablebody2><a href="dispuser.asp?name=<%=htmlencode(rs("username"))%>" target=_blank><%=rs("username")%></a></td>
<td align=center class=tablebody1><a href=mailto:<%=rs("useremail")%>><img border=0 src="pic/email.gif"></a></td>
<td align=center class=tablebody2>
<%if rs("oicq")="" or isnull(rs("oicq")) then%>
没有
<%else%>
<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("oicq")%> target=_blank><img src="pic/oicq.gif" alt="查看 OICQ:<%=rs("oicq")%> 的资料" border=0 width=16 height=16></a>
<%end if%>
</td>
<td align=center class=tablebody1>
<%if rs("homepage")="" or isnull(rs("homepage")) then%>
没有
<%else%>
<a href=<%=rs("homepage")%> target=_blank><img border=0 src=pic/homepage.gif></a>
<%end if%>
</td>
<td align=center class=tablebody2><a href=usersms.asp?action=new&touser=<%=htmlencode(rs("username"))%> target=_blank><img src=pic/message.gif border=0></a></td>
<td align=center class=tablebody1><%=rs("addDate")%></td>
<td align=center class=tablebody2><%=rs("userclass")%><br>
</td>
<td align=center class=tablebody1><%=rs("article")%></td>
<td align=center class=tablebody2><%=rs("userwealth")%></td>
</tr>
<%
rs.movenext
if rs.eof then
exit for
end if
next
%>
</table>
</td></tr>
<tr><td align=center colspan=9 height=26 class=tablebody1><a href=Z_bank.asp>返回银行首页</a> <a href=javascript:history.go(-1)>返回上一页</a></td></tr>
<%
end sub
'---------------------------------二十大储户排行-----------------------------------
sub bank_top20()
set rs=server.createobject("adodb.recordset")
sql="select * from bank order by savemoney desc"
rs.open sql,conn1,1,3
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 style="width:97%">
<tr>
<th>帐户</th>
<th>存款</th>
<th>存款利息</th>
<th>存款日期</th>
<th>贷款</th>
<th>贷款利息</th>
<th>贷款日期</th>
<th width="65">冻结帐户</th>
</tr>
<%
dim i,savedaytmp,daidaytmp
for i=1 to 20
savedaytmp=datediff("d",rs("date"),date())
daidaytmp=datediff("d",rs("dkdate"),date())
%>
<tr>
<td class=tablebody2 align=center><a href="dispuser.asp?name=<%=rs("username")%>" target=_blank><%=rs("username")%></a></td>
<td class=tablebody1 align=center><%=rs("savemoney")%></td>
<td class=tablebody1 align=center><%if savedaytmp<Chen_StartLixiDay then %>0<%else%><font color="#0066FF"><%=clng((formatnumber(rs("savemoney"))*(formatnumber(culi)/100))*savedaytmp)%></font><%end if%></td>
<td class=tablebody2 align=center><%=rs("date")%></td>
<td class=tablebody1 align=center><%=rs("daikuang")%></td>
<td class=tablebody1 align=center><%if rs("daikuang")=0 then %>0<%else%><font color="#0066FF"><%=clng((formatnumber(rs("daikuang"))*(formatnumber(daili)/100))*daidaytmp)%></font><%end if%></td>
<td class=tablebody2 align=center><%=rs("dkdate")%></td>
<td class=tablebody1 align=center><%if rs("lockac") then%><font color="#FF0000">是</font><%else%>否<%end if%></td>
</tr>
<%
rs.movenext
if rs.eof then
exit for
end if
next
%>
</table>
<br>
</td></tr>
<tr><td align=center colspan=8 height=26 class=tablebody1><a href=Z_bank.asp>返回银行首页</a> <a href=javascript:history.go(-1)>返回上一页</a></td></tr>
<%
end sub
'----------------------------银行基本设置--------------------------
sub admin()
if not master then
Errmsg=Errmsg+"<br>"+"<li>您没有进入银行基本设置的权限。"
call bank_err()
else
%>
<br>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1 style="width:97%">
<tr><th colspan=4 height=20 align=left>银行管理中心---银行基本设置</th></tr>
<tr>
<td align=center colspan=4 class=tablebody1 height=10></td>
</tr>
<form name="form2" method="post" action="Z_bank.asp?menu=9">
<tr>
<td align=right width="20%" class=tablebody2>存款的利息：</td>
<td align=left width="30%" class=tablebody1><INPUT name=saveli value="<%=culi%>"> %</td>
<td align=right width="20%" class=tablebody2>存款服务：</td>
<td align=center width="30%" class=tablebody1>
<input type=radio name="canCunkuan" value=1 <%if cint(bank_setting(0))=1 then%>checked<%end if%>>开通
<input type=radio name="canCunkuan" value=0 <%if cint(bank_setting(0))=0 then%>checked<%end if%>>关闭
</td>
</tr>
<tr>
<td align=right class=tablebody2>贷款的利息：</td>
<td align=left class=tablebody1><INPUT name=daili value="<%=daili%>"> %</td>
<td align=right class=tablebody2>贷款服务：</td>
<td align=center class=tablebody1>
<input type=radio name="canDaikuan" value=1 <%if cint(bank_setting(2))=1 then%>checked<%end if%>>开通
<input type=radio name="canDaikuan" value=0 <%if cint(bank_setting(2))=0 then%>checked<%end if%>>关闭
</td>
</tr>
<tr>
<td align=right class=tablebody2>银行的储备资金：</td>
<td align=left class=tablebody1><INPUT name=chubei value="<%=chubei%>"> $</td>
<td align=right class=tablebody2>取款服务：</td>
<td align=center class=tablebody1>
<input type=radio name="canQukuan" value=1 <%if cint(bank_setting(1))=1 then%>checked<%end if%>>开通
<input type=radio name="canQukuan" value=0 <%if cint(bank_setting(1))=0 then%>checked<%end if%>>关闭
</td>
</tr>
<tr>
<td align=right class=tablebody2>转帐的手续费：</td>
<td align=left class=tablebody1><INPUT name=zhuangli value="<%=zhuangli%>"> %</td>
<td align=right class=tablebody2>转帐服务：</td>
<td align=center class=tablebody1>
<input type=radio name="canZhuanzang" value=1 <%if cint(bank_setting(3))=1 then%>checked<%end if%>>开通
<input type=radio name="canZhuanzang" value=0 <%if cint(bank_setting(3))=0 then%>checked<%end if%>>关闭
</td>
</tr>
<tr>
<td align=right class=tablebody2>最长贷款天数：</td>
<td align=left class=tablebody1><INPUT name=daitian value="<%=daitian%>"> 天</td>
<td align=right class=tablebody2><font color=red>银行状态：</font></td>
<td align=center class=tablebody1>
<input type=radio name="bankstate" value=1 <%if cint(bankstate)=1 then%>checked<%end if%>><font color=red>营业</font>
<input type=radio name="bankstate" value=0 <%if cint(bankstate)=0 then%>checked<%end if%>><font color=red>关闭</font>
</td>
</tr>
<tr>
<td align=right class=tablebody2>计息起始天数：</td>
<td align=left class=tablebody1><INPUT name="StartLixiDay" value="<%=Chen_StartLixiDay%>"> 天</td>
<td align=right class=tablebody2>营业时间</td>
<td align=center class=tablebody1>
<input type=radio name="BusinessHours" value=0 <%if cint(bank_setting(6))=0 then%>checked<%end if%>>全天候
<input type=radio name="BusinessHours" value=1 <%if cint(bank_setting(6))=1 then%>checked<%end if%>>定时
<INPUT name="BusinessTimeSlice" value="<%=bank_setting(7)%>" size=10>
</td>
</tr>
<tr>
<td align=right class=tablebody2>默认信誉系数：</td>
<td align=left class=tablebody1><INPUT name=creditvalue value="<%=bank_setting(4)%>"></td>
<td align=right class=tablebody2>有贷款是否允许转帐</td>
<td align=center class=tablebody1>
<input type=radio name="candaikuantrans" value=1 <%if cint(bank_setting(5))=1 then%>checked<%end if%>>是
<input type=radio name="candaikuantrans" value=0 <%if cint(bank_setting(5))=0 then%>checked<%end if%>>否
</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>
<form name="form0" method="post" action="Z_bank.asp?menu=12">
<tr><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="logstate" value=1 <%if cint(log_setting(0))=1 then%>checked<%end if%>><font color=red>记录</font>
<input type=radio name="logstate" 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="logfuwu" value=1 <%if cint(log_setting(1))=1 then%>checked<%end if%>>是
<input type=radio name="logfuwu" value=0 <%if cint(log_setting(1))=0 then%>checked<%end if%>>否
</td>
</tr>
<tr>
<td class=tablebody2>保存最新事件条数：<br>(保留所有事件填<font color=red>0</font>)</td>
<td class=tablebody1>
<input type=text name="logrecordcount" value=<%=log_setting(2)%>>
</td>
<td class=tablebody2>记录所有管理操作事件：</td>
<td class=tablebody1>
<input type=radio name="logadmin" value=1 <%if cint(log_setting(3))=1 then%>checked<%end if%>>是
<input type=radio name="logadmin" value=0 <%if cint(log_setting(3))=0 then%>checked<%end if%>>否
</td>
</tr>
<tr>
<td class=tablebody2>记录储户事件(银行事件)：</td>
<td class=tablebody1 colspan=3>
<input type=radio name="loguse" value=1 <%if cint(log_setting(4))=1 then%>checked<%end if%>>全部
<input type=radio name="loguse" value=2 <%if cint(log_setting(4))=2 then%>checked<%end if%>>金额大于
<input type=text name="logminmoney" size=10 value=<%=log_setting(5)%>> 元的操作
<input type=radio name="loguse" value=0 <%if cint(log_setting(4))=0 then%>checked<%end if%>>不记录
</td>
</tr>
<tr>
<td class=tablebody2>用户可否查看事件记录：</td>
<td class=tablebody1 colspan=3>
<input type=radio name="loguselook" value=1 <%if cint(log_setting(6))=1 then%>checked<%end if%>>可以
<input type=radio name="loguselook" value=0 <%if cint(log_setting(6))=0 then%>checked<%end if%>>不可以
</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><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())>"&daitian
rs.open sql,conn1,1,3
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -