📄 upmembersavemoney.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<% 
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from adminuser where username='"& username &"'"
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
%>
<html>

<head>

<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="index.css" rel="stylesheet" type="text/css">

</head>

<body>
<%
user_name=server.htmlencode(request.QueryString("user_name"))
savemoney=server.htmlencode(request.form("savemoney"))
note=server.htmlencode(request.form("note"))
set rs0=Server.CreateObject("ADODB.Recordset")
sql0="select * from savemoney where user_name='"& user_name &"'"
rs0.open sql0,conn,3,3
oldmoney=rs0("savemoney")
savemoney1=(oldmoney + savemoney)
savemoney2=(oldmoney - savemoney)
if request.QueryString("cmd")="up" then
set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select * from savemoney where user_name='"& user_name &"'"
rs1.open sql1,conn,3,3
rs1("savemoney")=savemoney1
rs1.update
set rs2=Server.CreateObject("ADODB.Recordset")
sql2="select * from sys_moneyaction"
rs2.open sql2,conn,3,3
rs2.addnew
rs2("actions")="收入"
rs2("note")=note
rs2("member_name")=user_name
rs2("savemoney")=savemoney
rs2("date")=date()
rs2.update
end if
if request.QueryString("cmd")="del" then
set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select * from savemoney where user_name='"& user_name &"'"
rs1.open sql1,conn,3,3
rs1("savemoney")=savemoney2
rs1.update
set rs2=Server.CreateObject("ADODB.Recordset")
sql2="select * from sys_moneyaction"
rs2.open sql2,conn,3,3
rs2.addnew
rs2("actions")="支出"
rs2("note")=note
rs2("member_name")=user_name
rs2("savemoney")=savemoney
rs2("date")=date()
rs2.update
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
  <tr>
    <td><div align="center" class="f1"> 
	会员<%=user_name%>存款<% if request.QueryString("cmd")="up" then %>添加<% end if %>
	<% if request.QueryString("cmd")="del" then %>扣除<% end if %>成功！<br>
        <form name="form1" method="post" action="membersavemoney.asp?cmd=search">
          <input name="membername" type="hidden" id="membername" value="<%=user_name%>">
          <input type="submit" name="Submit" value="返回">
        </form>
        <br>
        </div></td>
  </tr>
</table>
<% 
end if
rs.close
set rs=nothing
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
set conn=nothing
%>
⌨️ 快捷键说明

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