admin_save.asp

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

<!--#include file="../inc/conn_open.asp"-->
<%
'取得总纪录条数
sum=request("sum")
i=1
for i=1 to sum-1
	'取得上页传递的参数
	id=request("id"&i)
	username=request("username"&i)
	password=request("password"&i)
	truename=request("truename"&i)
	dept=request("dept"&i)
	sclass=request("class"&i)
	sort=request("sort"&i)
	memo=request("memo"&i)
	
	if id<>""  then
		if username<>""  then
			'如果id和username都不为空，则修改该纪录			
			sql="update yonghu set username='"&username&"',password='"&password&"',truename='"&truename&"',dept='"&dept&"',class='"&sclass&"',sort='"&sort&"',memo='"&memo&"'  where id='"&id&"'"
		else
			'如果id不为空，username为空，则删除该纪录
			sql="delete from yonghu where id='"&id&"'"
		end if
	end if		
	'执行sql语句
	conn.execute(sql)	
next	
%>
<!--#include file="../inc/conn_close.asp"-->
<%response.Redirect("admin_input.asp")%>