📄 fwdmoney.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
username = request("UserName")
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='"&UserName&"'",Conn_User,3,3
set ibank=server.createobject("adodb.recordset")
ibank.open "Select * From Bank Where Bank='"&bank&"'",Conn_User,0,1
if (not users.eof) or (not users.bof) then
if iserror=false then
set guests=server.createobject("adodb.recordset")
guests.open "Select * From bankuserlist Where bank='"&bank&"' And User='"& Session.Contents("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 = "错误！您的存款利息没有那么多。"
end if
if money>100 then
iserror = false
message = "错误！不能大于100。"
else
users("cash") = users("cash") + money
users.update
guests("money") =addmoney-money
guests("putdate") = Date
guests.update
str="Insert Into Message ([From],To,Subject,Message) Values('"
str=str & Session.Contents("UserName") & "','"
str=str & UserName & "','"
str=str & Session.Contents("UserName") &" 给你转帐了 " & money &" NG','"
str=str & "亲爱的"&Username&"：" & chr(13) & chr(13)
str=str & " " & Session.Contents("Username")
str=str & "在" & bank & "转帐了 " & money & " NG 给你。"
str=str & "您可以在“我的家”里面看到您现在所拥有的社区货币。" & chr(13) & chr(13)
str=str & "系统管理员" & "')"
Conn_User.execute(str)%>
<script language="vbscript">
MsgBox "您已经成功的转帐了 <%=money%> NG 给 “<%=UserName%>” 。"
history.back()
</script>
<% 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">
<tr>
<td width="160" height="420" bgcolor="#666666" 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"><img WIDTH="300" HEIGHT="2"></td>
</tr>
</table>
<br>
<ul>
<li><a href="bank.asp?bank=<%=bank%>">返回<%=bank%></a>
</ul>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="160" bgcolor="#666666" align="center" valign="top"> </td>
<td width="10"> </td>
<td valign="top" align="center">
</td>
</tr>
</table>
</body>
</html>
<%
else%>
<script language="VBScript">
MsgBox "用户 “<%=username%>” 不存在。无法转帐。"
history.back()
</script>
<%
end if
Conn_User.close
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -