📄 putmoney.asp

📁 模拟炒股源码模拟炒股源码模拟炒股源码模拟炒股源码模拟炒股源码模拟炒股源码模拟炒股源码模拟炒股源码
💻 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='"& UserName &"'",Conn_User,3,3

set ibank=server.createobject("adodb.recordset")
ibank.open "Select * From Bank Where Bank='"&bank&"'",Conn_User,0,1

cashmoney=users("cash")

if money>cashmoney then
  iserror = true
  message = "错误！你的现金没有那么多！。"
end if

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

        users("cash") = users("cash") - money
        users.update
        guests("money") =addmoney+money
        guests("putdate") = Date
        guests.update
        message = "存款成功！"

    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">&nbsp;</td>   
    <td valign="top" align="center">   
      <table width="100%" border="0" cellspacing="0" cellpadding="0">   
      <tr>   
        <td width="32">&nbsp;</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">&nbsp;&nbsp;<b>我想</b>&nbsp;&nbsp;</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>   
   
<%   
end if   
set users=nothing   
set guests=nothing   
Conn_User.close   
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -