userupdate.asp

在线考试系统

<!---#include file="conn.asp"--->
<%
oper=request.QueryString("oper")
if(oper="add") then
Add
elseif(oper="modify") then
Modify
elseif(oper="del") then
Del
end if
if(rst<>null) then
	rst.close()
	set rst=nothing
end if
  set rst=nothing
  set conn=nothing
if(err)then
	response.Write("<SCRIPT language='javascript'>alert('操作失败，\n如有问题请联系管理员！');window.href='TKDanXuanAdd.asp'</script>")
else	
	response.redirect("User.asp")
end if
'添加用户===========================
sub Add
Uid=request.Form("Uid")
set rst=conn.execute("select id from Manager where Uid='"&Uid&"'")
if rst.eof then
Insert
else
response.Write("<SCRIPT>alert('已有此用户！');history.go(-1);</script>")
response.End()
end if
end sub
'入库操作
sub Insert
Uid=request.form("uid")
Pwd=request.form("pwd")
Name=request.form("name")
Role=request.form("role")
sql="insert into manager(Uid,Pwd,Name,Role) values('"&Uid&"','"&Pwd&"','"&Name&"','"&Role&"')"
conn.execute(sql)
end sub
'修改用户===========================
sub Modify
Uid=request.form("Uid")
set rst=conn.execute("select id from Manager where Uid='"&Uid&"'")
if rst.eof then
Update
else
	if(rst("id")=request.QueryString("id")) then
	Update 
	else
	response.Write("<SCRIPT>alert('已有此用户！');history.go(-1);</script>")
	response.End()
	end if
end if
end sub
'更新操作
sub Update
id=request.querystring("id")
Uid=request.form("uid")
Pwd=request.form("pwd")
Name=request.form("name")
Role=request.form("role")
sql="update manager set Uid='"&Uid&"',Pwd='"&Pwd&"',Name='"&Name&"',Role='"&Role&"' where id="&id
conn.execute(sql)
end sub

'删除学生===========================
sub Del
id=request.QueryString("id")
set rst=conn.execute("select count(*) as c from manager where Role='manager'")
set rstUser=conn.execute("select Role from manager where id="&id)
if(cint(rst("c"))<=1 and ucase(rstUser("Role"))="MANAGER") then	
	response.Write("<SCRIPT>alert('无法删除，\n必须保留一个管理员！');history.go(-1);</script>")	
	response.end()

else
	id=request.querystring("id")
	conn.execute("delete from manager where id="&id)
end if	
end sub
%>