studentupdate.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='AssembleTestPaperAdd.asp'</script>")
else
	response.redirect("Student.asp")
end if
'添加学生===================================
sub Add
StuId=request.Form("StuId")
set rst=conn.execute("select Stuid from Student where StuId='"&StuId&"'")
if rst.eof then
Insert
else
response.Write("<SCRIPT>alert('已有此学号！');history.go(-1);</script>")
response.End()
end if
end sub
'入库操作
sub Insert
StuId=request.form("StuId")
Name=request.form("name")
Sex=request.form("sex")
Birthday=request.form("year")&"-"&request.form("month")&"-"&request.form("day")
IDNum=request.form("IdNum")
sql="insert into Student values('"&StuId&"','"&Name&"','"&Sex&"','"&Birthday&"','"&IDNum&"','1234')"
'response.write(sql)
conn.execute(sql)
end sub
'修改学生====================================
sub Modify
StuId=request.form("StuId")
set rst=conn.execute("select Stuid from Student where StuId='"&StuId&"'")
if rst.eof then
Update
else
	if(rst("StuId")=request.QueryString("id")) then
	Update 
	else
	response.Write("<SCRIPT>alert('已有此学号！');history.go(-1);</script>")
	response.End()
	end if
end if
end sub
sub Update
StuId=request.querystring("id")
Name=request.form("name")
Sex=request.form("sex")
Birthday=request.form("year")&"-"&request.form("month")&"-"&request.form("day")
IDNum=request.form("IdNum")
sql="update Student set StuId='"&StuId&"',Name='"&Name&"',Sex='"&Sex&"',Birthday='"&Birthday&"',IDNum='"&IDNum&"' where StuId='"&Stuid&"'"
response.write(sql)
'response.End()
conn.execute(sql)
end sub
'删除学生====================================
sub Del
sql="delete from Student where StuId='"&request.QueryString("id")&"'"
'response.Write(sql)
'response.End()
conn.execute(sql)
end sub
%>