saveadmin.asp

来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 53 行

<!--#include file="conn.asp"-->
<%
if session("admin_rank")<>1 then
response.write("<script>alert('您无权查看本页，SORRY！');window.location=('login.asp')</script>")
response.end
end if
%>

<%dim action,admin,id
action=srequest(request("action"),0)
id=srequest(request("id"),1)

admin_name=trim(request.form("admin_name"))

select case action

case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from adminlitdata where id="&int(id),conn,1,3
rs("admin_name")=admin_name
if trim(request.form("admin_pass"))<>"" then
rs("admin_pass")=md5(trim(request.form("admin_pass")))
end if
rs("admin_rank")=int(request.form("admin_rank"))
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('修改成功！');history.go(-1);</script>"
response.End

case "add"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from adminlitdata",conn,1,3
rs.addnew
rs("admin_name")=trim(request.form("admin_name"))
rs("admin_pass")=md5(trim(request.form("admin_pass")))
rs("admin_rank")=int(request.form("admin_rank"))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('添加成功！');history.go(-1);</script>"
response.End

case "del"
conn.execute ("delete from adminlitdata where id="&int(id))
response.Redirect "master.asp"

case "nomac"
conn.execute("update adminlitdata set admin_ip='' where id="&int(request("id")))
response.Redirect "master.asp"
end select
%>