saveadmin.asp

多用户个人主页系统(ASP)

<!--#include file="const.asp"-->

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

<%'On Error Resume Next
if request("delname")<>"" then
conn.execute("delete from admin where admin='"&request("delname")&"'")
response.write "<script>alert('管理员删除成功');</script>"
response.write "<script>location.href='admin_admin.asp';</script>"
conn.close
set conn=nothing
response.end
end if
if request("name")<>"" and request("password")<>"" then
name=trim(request("name"))
password=trim(request("password"))
qx=trim(request("qx"))
set rs=conn.execute("select * from [admin] where admin='"&name&"'")
if not rs.eof then
response.write "<script>alert('该管理员已经存在。');location.href='admin_admin.asp';</script>"
rs.close
call rsclose
call connclose
response.end
end if
rs.close
password=md5(password)
sql="insert into admin (admin,pwd,qx) values ('"&name&"','"&password&"',"&qx&")"
conn.execute(sql)
response.write "<script>alert('管理员增加成功');</script>"
response.write "<script>location.href='admin_admin.asp';</script>"
elseif request("name")="" or request("password")="" then
response.write "<script>alert('用户名和密码不能为空');</script>"
response.write "<script>location.href='admin_admin.asp';</script>"
end if
conn.close
set conn=nothing
'Response.Write Err.description%>