save_scoreaddstu.asp

来自「关于学生成绩的管理系统」· ASP 代码 · 共 52 行

<!--#include file="conn.asp"-->
<%
classno=request.form("classno")
if classno="--选择班级--" then
   response.write "<script language='javascript'>"
   response.write "alert('请选择班级');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
end if

set rs=server.createobject("ADODB.Recordset")
sqlstr="select * from 班级 where classno='"&request.form("classno")&"'"
rs.open sqlstr,conn,1,1
if not rs.eof then
  zhuanye=rs("zhuanye")
  xiname=rs("xiname")
  jino=rs("jino")
  banno=rs("banno")
end if
%>
<%
address=request.form("address")
sex=request.form("sex")
teleph=request.form("teleph")
age=request.form("age")
studentname=request.form("studentname")
set rs=server.createobject("ADODB.Recordset")
sqlstr="select * from 学生"
rs.open sqlstr,conn,3,3
rs.addnew
if studentname="" then
   response.write "<script language='javascript'>"
   response.write "alert('请输入该学生姓名');"
   response.write "history.back(1);"
   response.write "</script>"
   response.end
   end if
rs("xiname")=xiname
rs("zhuanye")=zhuanye
rs("jino")=jino
rs("banno")=banno
rs("address")=address
rs("studentname")=studentname
rs("classno")=classno
rs("age")=age
rs("sex")=sex
rs("teleph")=teleph
rs.update
rs.close
response.redirect "scoreaddstu.asp"
%>