<!--#include file="../SQLconn.asp"-->
<%
rem 定义二维数组存放从表单获取的值
 
xiangmu =Request( "xiangmu" )
pingbiDate =Request( "pingbiDate" )

total =Request( "inumber" )-1

dim strgrade(200)
dim strclass(200)
dim strscore(200)
dim strshuoming(200)

for j= 1 to total
   inputgrade="grade"+cstr(j)
   strgrade(j)=request.form(inputgrade)
   
   inputclass="class"+cstr(j)
   strclass(j)=request.form(inputclass)
   
   inputscore="score"+cstr(j)
   strscore(j)=request.form(inputscore)
   
   inputshuoming="shuoming"+cstr(j)
   strshuoming(j)=request.form(inputshuoming)
next


	
    for i= total to 1 step -1
    rem 循环批量入库
		
		  	 strsql="insert into  banwurizhi(类别,rizhidate,rizhiType,Grade,Class,fenshu,shuoming,teachers,updatetime)  values('班务评比','"&pingbiDate& "','"&xiangmu& "','"&strgrade(i)& "','"&strclass(i)& "','"&strscore(i)& "','"&strshuoming(i)& "','"&request.cookies("tname")& "','"&now& "')"
			
		   conn.execute(strsql)
    next
response.redirect   "OneBWPBmingxi.asp?strGrade="&strgrade(1)&"&strtype="&xiangmu&"&strdate="&pingbiDate
%>
<br />
<br />
<br />
<br />
<br />

<div align="center" title="提示信息框">
           <span style="BACKGROUND:#EEEEFF;COLOR:#FF6633;margin: 10px;border:1px dotted #FF6633;
	    	 font-weight:bold;padding:8px;width=140">数据保存成功</span>
</div>