📄 index.asp
字号:
<!-- #include file = "bank.asp" -->
<%
UserName = Session.Contents("UserName")
if UserName="" then
response.redirect "../club/timeout.asp"
elseif UserName = "匆匆过客" then
response.redirect "../club/notlogin.asp"
else
isnew = false
username = Session.Contents("UserName")
bank = request.querystring("bank")
if bank="" then bank="新生银行"
act = request.querystring("act")
set users=server.createobject("adodb.recordset")
users.open "Select * From users Where name='"&Session.Contents("UserName")&"'",Conn_User,0,1
set guests=server.createobject("adodb.recordset")
guests.open "Select * From bankuserlist Where bank='"&bank&"' And User='"&username&"'",Conn_User,3,3
set ibank=server.createobject("adodb.recordset")
ibank.open "Select * From Bank Where Bank='"&bank&"'",Conn_User,0,1
set iibank=server.createobject("adodb.recordset")
iibank.open "Select * From Bank",Conn_User,0,1
if guests.recordcount>0 then
addday = DateDiff("d",guests("putdate"),Date)
if addday>0 then
addmoney = (guests("money")* ( ( (1+ibank("rate") ) ^addday)))\1
else
addmoney = guests("money")
end if
end if
if act="newuser" and guests.recordcount<1 and ibank("check")=False then
guests.addnew
guests("user") = username
guests("money") = 0
guests("bank") = bank
guests.update
isnew = true
end if
if act="newuser" and guests.recordcount<1 and ibank("check")=true then%>
<html>
<head>
<script language="vbscript">
MsgBox "本银行为集团银行，您如果要申请，去与行长 “<%=ibank("Owner")%>” 联系。否则请去“新生银行”。"
location.href = "bank.asp"
</script>
<% else
%>
<title>社区银行</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!----></style>
<link rel="stylesheet" href="../css/bank.css">
<link rel="stylesheet" href="../../CSS/BANK.CSS">
<meta name="generator" content="Microsoft FrontPage 4.0">
</head>
<body leftmargin="0" topmargin="0">
<table width="681" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td width="13"> </td>
<td valign="top" align="center" width="415">
<table width="266" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10"> </td>
<td width="256"> <br>
<%if guests.recordcount<1 And isnew=false then%> <br>
<img src="images/sorry.gif" WIDTH="32" HEIGHT="32"> <br>
<br>
<font color="#ff0000"><b>对不起</b></font>，您还没<b><font color="#006699">开户</font></b>呢。
<br>
如果您想在<%=bank%>存钱、取钱，您必须先<a href="bank.asp?bank=<%=bank%>&act=newuser"><b><font color="#CC0000">开户</font></b></a>，点击<a href="index.asp?bank=<%=bank%>&act=newuser"><font color="#0000FF">这里</font></a>为自己开一个帐号。
<br>
本银行的利息为每天 <b><font color="#CC0000"><%=ibank("Rate")*100%></font></b> %。
<%else%> <br>
<img src="images/bank.gif" WIDTH="32" HEIGHT="32"> <br>
<br>
欢迎您光临<b> <font color="#FF9900"><%=bank%></font></b>！ <br>
本银行的利息为每天 <b><font color="#CC0000"><%=ibank("Rate")*100%></font></b> %，每次存款、取款自动结算利息。
<br>
您在本银行有存款 <b><font color="#aa0000"><%=guests("money")%></font> NG</b>，目前利息 <b><font color="#aa0000"><%=(addmoney-guests("money"))%></font> NG</b>。
总共：<b><font color="#aa0000"><%=addmoney%></font></b> <b>NG</b><br>
<br>
<table border="0" width="336">
<tr>
<td width="70" bgcolor="black">
<p><font color="white">我要存钱</font></p>
</td>
<td width="256">
<p> </p>
</td>
</tr>
</table>
<form method="post" action="putmoney.asp">
<input TYPE="HIDDEN" NAME="bank" VALUE="<%=bank%>">
我有现金 <b><font color="#aa0000"><%=users("cash")%></font></b> <b>NG</b>
<br>
我要存 <input type="TEXT" MAXSIZE="32" VALUE="0" name="money" style="width:80;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="10">
<b>NG</b> <input type="submit" value=" 存了 " name="B1" style="width:80;height:22;border:1 solid #9a9999; font-size:9pt; background-color:#f8f8f8">
<input type="reset" value=" 等一下 " name="B2" style="width:80;height:22;border:1 solid #9a9999; font-size:9pt; background-color:#f8f8f8">
</form>
<table border="0" width="336">
<tr>
<td width="69" bgcolor="black">
<p><font color="white">我要取钱</font></p>
</td>
<td width="251">
<p> </p>
</td>
</tr>
</table>
<form method="post" action="getmoney.asp">
<input TYPE="HIDDEN" NAME="bank" VALUE="<%=bank%>">
我有存款加利息 <b><font color="#aa0000"><%=addmoney%></font> NG</b>。
存款日期：<%=guests("putdate")%><br>
我要取 <input type="TEXT" MAXSIZE="32" VALUE="0" name="money" style="width:80;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="10">
<b>NG</b> <input type="submit" value=" 取了 " name="B1" style="width:80;height:22;border:1 solid #9a9999; font-size:9pt; background-color:#f8f8f8">
<input type="reset" value=" 等一下 " name="B2" style="width:80;height:22;border:1 solid #9a9999; font-size:9pt; background-color:#f8f8f8">
</form>
<%end if%> </td>
</tr>
</table>
</td>
<td width="245" bgcolor="#005397" align="center" valign="top">
<p> </p>
<table width="160" border="0" cellspacing="3" cellpadding="3">
<tr>
<td colspan="2" bgcolor="#003366"><b><font color="#FFFFFF"><%=bank%></font></b></td>
</tr>
<tr>
<td colspan="2"><font color="white">总存款：<b><%=BankMoneys(Bank)%> NG
</b></font></td>
</tr>
<tr>
<td colspan="2"><font color="white">存款人数：<b><%=BankUsers(Bank)%> 人 </b></font></td>
</tr>
<tr>
<td colspan="2"><font color="white">银行日利息： <b><%=ibank("Rate")*100%>
%</b></font></td>
</tr>
<tr>
<td colspan="2" bgcolor="#003366"><font color="#FFFFFF"><b>十大存户</b></font></td>
</tr>
<%
set toprs=server.createobject("adodb.recordset")
sql="Select top 10 * from bankUserList where bank='"&bank&"' order by money desc"
toprs.open sql,Conn_User,0,1
do while not toprs.eof
%>
<tr>
<td width="50%"><font color="white"><%=toprs("user")%></font></td>
<td width="50%"> <font color="red"><%=toprs("money")%> </font><font color="white">NG</font></td>
</tr>
<%toprs.movenext
loop
toprs.close
set toprs=nothing
%>
</table>
<br>
<p>
<br>
<p><a href="../gupiao/index.asp">==>股市</a></p>
<p><a href="../../../asp/jmld.asp">返回首页</a></p>
</td>
</tr>
</table>
</body>
</html>
<%
end if
set ibank=nothing
set users=nothing
set guests=nothing
Conn_User.execute "update users set logwhere='银行 [ "& Bank &" ]' where Name='"&username&"'"
Conn_User.execute "update users set logintime=Now() where Name='"&username&"'"
Conn_User.Close
set Conn_User=nothing
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -