admin_saveteacher1.asp

成绩管理代码 采取的研究方法：采用网络编程技术

<!--#include file="dataconn.asp"-->
<!--#include file="Admin_IsLogin.asp" -->
<%
dim i,j,set_bj_count,zdcount
set RS=conn.execute("select * from keren")
zdcount=rs.fields.count-1 
  set_bj_count=request.form("set_bj_count")
  for i=1 to set_bj_count
      nj=replace(trim(request.form("nj"&i&"")),"'","")
	  bj=replace(trim(request.form("bj"&i&"")),"'","")
	  bjmaster=replace(trim(request.form("bjmaster"&i&"")),"'","")
	  krid=replace(trim(request.form("krid"&i&"")),"'","")
	  selectterm=replace(trim(request.form("term")),"'","")
	  subject=""
	 	 
	  
	  for j=5 to zdcount
	  subject=subject&rs.fields(j).name&"="
	  subject=subject&"'"&request.form(rs.fields(j).name&i)&"',"

      next
	   subject=left(subject,len(subject)-1)
	  	 
	  
      if i=1 and request.form("bjmaster1")="" then
	  Response.Write "<script>alert(""对不起，请从第一条数据开始录入！"");window.location='Javascript:history.back()';</script>"
      else
	  sql="update keren set nj='"&nj&"',bj='"&bj&"',bjmaster='"&bjmaster&"',"&subject&" where krid="&krid&""
	  conn.execute(sql) 
	  end if
	  
  next
 
  Response.Write "<script>alert(""数据修改成功！"");window.location='teacher_modisetup.asp';</script>"
%>