admin_do.asp

客户管理系统使用ASP.NET和Access

<!--#include file="conn.asp"-->
<!--#include file="islogin.asp"-->
<!--#include file="../include/md5.asp"-->

<%if request("action")="save" then
name=request("name")
pass=md5(md5(request("pass")))
lastsj=now
lastip=Request.serverVariables("REMOTE_ADDR")
n=0
  set rs=server.createobject("adodb.recordset")
  sql="select * from admin where (id is null)" 
  rs.open sql,conn,1,3
  rs.addnew
  rs("name")=name
  rs("pass")=pass
  rs("lastip")=lastip
  rs("lastsj")=lastsj
  rs("n")=n
  rs.update
  rs.close
  set rs=nothing
	ips=Request.ServerVariables("Remote_Addr")
	sj=now
    conn.Execute "INSERT INTO log(username,action,ip,sj) VALUES('添加管理员','"&name&"成功添加','"&ips&"','"&sj&"' )"
  conn.close
  set conn=nothing
  response.Redirect("admin_name.asp")
end if
%>
<%if request("action")="del" then
    adminu=request("adminu")
	ips=Request.ServerVariables("Remote_Addr")
	sj=now
sql="delete from admin where id="&request("id")&""
conn.execute(sql)
conn.Execute "INSERT INTO log(username,action,ip,sj) VALUES('删除管理员','"&adminu&"成功删除','"&ips&"','"&sj&"' )"
conn.close
set conn=nothing
response.redirect "admin_name.asp"
end if
%>