📄 addmembersavemoney.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<body>
<% 
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 &"' and id=" & id &""
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
%>
<% 
user_name=server.htmlencode(request.form("user_name"))
savemoney=server.htmlencode(request.form("savemoney"))
usertyp=server.htmlencode(request.form("usertyp"))
savemoney=server.htmlencode(request.form("savemoney"))
set rs0=Server.CreateObject("ADODB.Recordset")
if usertyp="企业" then
sql="select * from userentreg where login_name='"& user_name &"'"
end if
if usertyp="个人" then
sql="select * from userpersreg where login_name='"& user_name &"'"
end if
rs0.open sql,conn,3,3
if rs0.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
  <tr>
    <td><div align="center" class="f1">此 会 员 不 存 在 ！<br>
        <br>
        <a href="javascript:history.go(-1)">[点此后退]</a></div></td>
  </tr>
</table>
<% else 
set rs3=Server.CreateObject("ADODB.Recordset")
sql3="select * from savemoney where user_name='"& user_name &"'"
rs3.open sql3,conn,3,3
if not rs3.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
  <tr>
    <td><div align="center" class="f1">不能多次添加一个会员！<br>
        <br>
        <a href="javascript:history.go(-1)">[点此后退]</a></div></td>
  </tr>
</table>
<% else
user_id=rs0("id")
set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select * from savemoney"
rs1.open sql1,conn,3,3
rs1.addnew
rs1("user_name")=user_name
rs1("user_id")=user_id
rs1("savemoney")=savemoney
rs1.update
%>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
  <tr>
    <td><div align="center" class="f1">添 加 成 功 ！<br>
        <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>
      </div></td>
  </tr>
</table>
<%
rs1.close
set rs1=nothing
end if 
rs3.close
set rs3=nothing
end if
rs0.close
set rs0=nothing
%>

<% 
end if
rs.close
set rs=nothing
set conn=nothing
%>
⌨️ 快捷键说明

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