save_scoreupdate.asp

关于学生成绩的管理系统

<!--#include file="conn.asp"-->
<%
id=Session.Contents("id")
lesson1=request.form("lesson1")
lesson2=request.form("lesson2")
lesson3=request.form("lesson3")
lesson4=request.form("lesson4")
lesson5=request.form("lesson5")
lesson6=request.form("lesson6")
lesson7=request.form("lesson7")
lesson8=request.form("lesson8")
lesson9=request.form("lesson9")
lesson10=request.form("lesson10")
lesson11=request.form("lesson11")
lesson12=request.form("lesson12")
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from 成绩 where id="&id
rs.open sql,conn,1,3
rs("lesson1")=lesson1
rs("lesson2")=lesson2
rs("lesson3")=lesson3
rs("lesson4")=lesson4
rs("lesson5")=lesson5
rs("lesson6")=lesson6
rs("lesson7")=lesson7
rs("lesson8")=lesson8
rs("lesson9")=lesson9
rs("lesson10")=lesson10
rs("lesson11")=lesson11
rs("lesson12")=lesson12
rs("zongfen")=rs("lesson1")+rs("lesson2")+rs("lesson3")+rs("lesson4")+rs("lesson5")+rs("lesson6")+rs("lesson7")+rs("lesson8")+rs("lesson9")+rs("lesson10")+rs("lesson11")+rs("lesson12")
rs.update
rs.close
set rs=nothing
set conn=nothing
response.redirect "scoreupdatecha.asp"
%>