📄 getmoney.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
iserror = false
bank = request.form("bank")
if bank="" then
iserror = true
message = "错误！您没有在任何一家银行。"
end if
money = clng(request.form("money"))
if money<1 then
iserror = true
message = "错误！您填写的数量不能小于1。"
end if
set users=server.createobject("adodb.recordset")
users.open "Select * From users Where name='"&Session.Contents("UserName")&"'",Conn_User,3,3
set ibank=server.createobject("adodb.recordset")
ibank.open "Select * From Bank Where Bank='"&bank&"'",Conn_User,0,1
if iserror=false then
set guests=server.createobject("adodb.recordset")
guests.open "Select * From bankuserlist Where bank='"&bank&"' And User='"&username&"'",Conn_User,3,3
if guests.recordcount<1 then
iserror = false
message = "错误！您没有在"&bank&"开户。"
else
addday = DateDiff("d",guests("putdate"),Date)
if addday>0 then
addmoney = (guests("money")* ( ( (1+ibank("rate") ) ^addday)))\1
else
addmoney = guests("money")
end if
if money>addmoney then
iserror = false
message = "错误！您的存款利息没有那么多。"
else
users("cash") = users("cash") + money
users.update
guests("money") =addmoney-money
guests("putdate") = Date
guests.update
message = "取款成功！"
end if
end if
end if
%>
<html>
<head>
<title>黄金社区 - 银行</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--td { font-family: 宋体; font-size: 9pt}
body { font-family: 宋体; font-size: 9pt}
select { font-family: 宋体; font-size: 9pt}
A {text-decoration: none; font-family: "宋体"; font-size: 9pt; color: #666666}
A:hover {text-decoration: underline; color: #666666; font-family: "宋体"; font-size: 9pt} .txt { font-family: "宋体"; font-size: 10.5pt}
--></style>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td width="160" height="420" bgcolor="#005397" align="center" valign="top">
<br><br><br><br><br>
</td>
<td width="10"> </td>
<td valign="top" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="32"> </td>
<td>
<br>
<br>
<img src="images/sorry.gif" WIDTH="32" HEIGHT="32"> <br>
<br><%=message%>
<br><br>
<table bgcolor="#000000" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#ffffff">
<td height="20" bgcolor="#666666"><font color="#ffffff"> <b>我想</b> </font></td>
<td valign="bottom"> </td>
</tr>
</table>
<br>
<ul>
<li><a href="../../../asp/jmld.asp">返回首页</a>
</ul>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
users.close
guests.close
set users=nothing
set guests=nothing
Conn_User.close
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -