addadminchick.asp

该系统实现居域网网络考试和,系统平分轻松实现

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
dim admin,psw
admin=request.Form("admin")
psw=request.form("psw")
quanxian=request.form("quanxian")
if admin="" or psw="" then
response.Write("<script>alert('用户名密码不能为空!');window.location.href('addadmin.asp')</script>")
response.end
end if
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
cmd="select * from admin"
cmd1="select * from admin where username like '"&admin&"'"
rs1.open cmd1,conn,1,1
if rs1.eof then
rs.open cmd,conn,1,3
rs.addnew
rs("username")=admin
rs("key")=quanxian
rs("password")=md5(psw)
rs.update
response.Write("<script>alert('管理员添加成功');window.location.href('Manageadmin.asp')</script>")
else
response.Write("<script>alert('已经存在该管理员');window.location.href('Manageadmin.asp')</script>")
response.end
end if
%>