score_save.asp

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

<!--#include file="../inc/conn_open.asp"-->
<%
'取得总纪录条数
sum=request("sum")
i=1
 '先删除所有纪录，再插入
sqldel="delete from zongcj "
conn.execute(sqldel)	
for i=1 to sum-1
	'取得上页传递的参数
	sid=request("sid"&i)
	sname=request("sname"&i)
	psscore=request("psscore"&i)
	if psscore="" then psscore=0
	qmscore=request("qmscore"&i)
	if qmscore="" then qmscore=0
	'总成绩=平时成绩×0.3+期末成绩×0.7
	score=cint(cint(psscore)*0.3+cint(qmscore)*0.7)
	memo=request("memo"&i)
	'插入记录
	sqlinsert="insert into zongcj(sid,sname,psscore,qmscore,score,memo) values('"&sid&"','"&sname&"','"&psscore&"','"&qmscore&"','"&score&"','"&memo&"')"
	conn.execute(sqlinsert)
next	
%>
<!--#include file="../inc/conn_close.asp"-->
<%response.Redirect("score_list.asp")%>