managemark.asp

一套完整的学生课程管理系统

<!-- #include file="utility/checkTeacher.asp" -->

<%
	'****************************************
	'目的：			处理学生成绩信息
	'开始时间：		2005-6-7 14:52
	'最后修改时间：	2005-6-7 14:52
	'编写人：		某某某
	'****************************************
	
	'定义相关变量
	dim stuCourseID			'学生选课编号
	dim stuCommonMark		'平时成绩
	dim stuTestMark			'考试成绩
	dim stuRank				'最终等级/成绩
	dim teacherID			'教师编号

	dim sql				
	dim rs
	
	'将URL中的值取出并赋给变量
	stuCourseID = Trim(Request.QueryString("stuCourseID"))
	
	'取表单中的值
	stuCommonMark = Request.Form("stuCommonMark")
	stuTestMark = Request.Form("stuTestMark")
	stuRank = Request.Form("stuRank")
	
	'检查参数是否完整
	if(stuCourseID = "") then
		Alert("参数丢失，拒绝操作！")
		GoBack()
		Response.end
	end if
	
	teacherID = Session("userID")
	
	'检查教师是否有权限给该学生的这门课程评分
	sql = "select count(*) from stuCourse,course "
	sql = sql & "where stuCourse.courseID = course.ID "
	sql = sql & "and stuCourse.ID = " & stuCourseID
	sql = sql & " and course.tID = " & teacherID
	
	set rs = ExecuteQuery(sql)
	if(rs(0) = 0) then
		Alert("参数非法，拒绝操作！")
		GoBack()
		Response.End
	end if
	
	'通过检查就添加信息到数据库
	sql = "update stuCourse set stuCommonMark = "
	sql = sql & stuCommonMark & ",stuTestMark = "
	sql = sql & stuTestMark & ",stuRank = '"
	sql = sql & stuRank & "' where ID = " & stuCourseID
	ExecuteNonQuery(sql)
	Alert("评分成功，您以后仍然能够修改该学生成绩!")
	Go("listMyStudentCourse.asp")
	
%>