save_scoreadda.asp

关于学生成绩的管理系统

<!--#include file="conn.asp"-->
<% studentname=request.form("studentname")
   if studentname="--选择学生--" then
   response.write "<script language='javascript'>"
   response.write "alert('请选择学生');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
   end if
studentno=Session.Contents("studentno")
classno=Session.Contents("classno")
xueqi=Session.Contents("xueqi")
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 成绩"
rs.open sql,conn,3,2
if not rs.eof then 
rs.addnew
rs("xueqi")=xueqi
rs("classno")=classno
rs("studentname")=studentname
rs("studentno")=studentno
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
end if
rs.close
set rs=nothing
set conn=nothing
response.redirect "scoreadda.asp"
%>