apuser_ok.asp

来自「我同学的毕业设计源代码」· ASP 代码 · 共 37 行

<!--#include file="conn.asp"-->
<%
action=request("action")
if action="add" then    '添加数据
    set rs=server.createobject("adodb.recordset")
	rs.open "select * from admin",conn,3,2
	rs.addnew	
    rs("username")=request.Form("uid")
    rs("password")=request.Form("pwd")
	
	
	rs.update
	Response.Write("<script>alert('添加成功！');window.location='admin_add.asp';</script>")
elseif action="mdf" then   '修改数据
    id=request("id")
	sql="update puser set pwd='"&request.form("pwd")&"', pwd2='"&request.form("pwd2")&"', uname='"&request.form("uname")&"', xb='"&request.form("xb")&"', sfz='"&request.form("sfz")&"', tel='"&request.form("tel")&"',   email='"&request.form("email")&"', tishi='"&request.form("tishi")&"', tsda='"&request.form("tsda")&"' where id="&id
    conn.execute(sql)
    conn.close
    set conn=nothing
	Response.Write("<script>alert('修改成功！');window.location='apuser_list.asp';</script>")
elseif action="yes"  then  ' 推荐
    set rs=server.createobject("adodb.recordset")
	rs.open"select * from puser where id=" &request("id"),conn,1,3
	if rs("okyes")="yes" then
    rs("okyes")="no"
    else
    rs("okyes")="yes"
	rs("datt")=now()
    end if
    rs.update
	response.redirect "apuser_list.asp"
elseif action="del" then   '删除数据
	sql="delete from puser where id=" &request("id")
    set rs=conn.execute(sql)
	Response.Write("<script>alert('删除成功！');window.location='apuser_list.asp';</script>")
end if
%>