现在需要录入全区所有学校的小升初考试的语文成绩，但是不能一个人一个人的录入，那样显然效率太差，现在我的想法是一页显示50个考生，每个考生占一行，每一行中包含准考证号、文本框(输入语文成绩)，页面下方是提交按钮，全部录入完50个考生的语文成绩后，点击提交就录入了50个考生的语文成绩。然后转向下50个考生以继续录入。



表：student。相关字段：id(准考证号),chn1(语文成绩)。还有其他的，就不列举了。



按钮sub(value=更新)，文本框chn1(录入成绩的)



以前我做的都是针对每一条记录的更新，但如何实现一次更新多条记录呢？

<%@LANGUAGE=" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="Conn.asp"-->
<!--#include file="KS_Cls/Kesion.MemberCls.asp"-->
<!--#include file="KS_Cls/Kesion.Label.CommonCls.asp"-->
<!--#include file="KS_inc/Session.asp"-->
<%
dim fname,i,SqlStr,xuehao,xingming,chengji
fname=array(Request.Form("name"),",")
for i=0 to ubound(fname)

if Request.Form("name")(i+1)="" and Request.Form("lname")(i+1)="" and Request.Form("id")(i+1)="" then
else
xuehao=Request.Form("id")(i+1)
xingming=Request.Form("name")(i+1)
chengji=Request.Form("lname")(i+1)
   SqlStr="insert into KS_Form_success (KS_StudentsId,KS_StudentsName,KS_num) values ("&xuehao&",'"&xingming&"',"&chengji&")"
  Conn.Execute(SqlStr)
  if err.number<>0 then
Response.Write"<script>alert('对不起，录入失败!');history.back();</script>"
else
  Response.Write"<script>alert('恭喜您，录入成功!');history.back();</script>"
  end if
xuehao=""
xingming=""
chengji=""
End if
next

%>
  好了

只能说不能程序的人就来挂眼科了