score_ps_save.asp

我们老师写的一个学生成绩管理系统

<!--#include file="../inc/conn_open.asp"-->
<%
'取得总纪录条数
sum=request("sum")
i=1
for i=1 to sum-1
	'取得上页传递的参数
	id=request("id"&i)
	sid=request("sid"&i)
	sname=request("sname"&i)
	sort=request("sort"&i)
	checkdate=request("cdate"&i)
	score=request("score"&i)
	memo=request("memo"&i)
	if id<>"" then
		'如果id不为空，则表示是修改数据。流程是先删除该纪录，再插入。
		sqldel="delete from pscj where id="&id&""
		conn.execute(sqldel)	
	end if
	'首先判断该日该项考核是否有重复记录，没有则再插入记录
	sql="select * from pscj where  sort='"&sort&"' and cdate='"&checkdate&"'"
	'response.Write(sql)
	set rs = conn.execute(sql)
	if  rs.eof then
		sqlinsert="insert into pscj(sid,sname,sort,cdate,score,memo) values('"&sid&"','"&sname&"','"&sort&"','"&checkdate&"','"&score&"','"&memo&"')"
		conn.execute(sqlinsert)
		'还要更新zongcj表的平时成绩psscore字段
		sqlupdate="update zongcj set psscore=(select avg(score) from pscj where sid='"&sid&"') where sid='"&sid&"'" 
		conn.execute(sqlupdate)
		'接着更新zongcj表的总成绩score字段，总成绩=平时成绩×0.3+期末成绩×0.7
		sqlupdate="update zongcj set score=cast((psscore*0.3+qmscore*0.7) as int) "
		conn.execute(sqlupdate)
	else
		%>
		<Script Language ="JavaScript">
			alert("本日该项已考核，请返回！");
			history.back();
		</Script>
		<%
		response.end
	end if
next	
%>
<!--#include file="../inc/conn_close.asp"-->
<%response.Redirect("score_list.asp")%>