<!--#include file="../checkLogin.asp"-->
<!--#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)
   if strscore(j) ="" then
     strscore(j)="0"
	end if
   
   inputshuoming="shuoming"+cstr(j)
   strshuoming(j)=request.form(inputshuoming)
next


	
    for i= total to 1 step -1
    rem 循环批量入库
		if strscore(i)<>"0"  then
		  	 strsql="insert into  banwurizhi(years,类别,rizhidate,rizhiType,Grade,Class,fenshu,shuoming,teachers,updatetime)  values('"&request.cookies("nowxueqi")& "','班务评比','"&pingbiDate& "','"&xiangmu& "','"&strgrade(i)& "','"&strclass(i)& "','"&strscore(i)& "','"&strshuoming(i)& "','"&request.cookies("tname")& "','"&now& "')"
			  conn.execute(strsql)
		 end if
    next
response.redirect   "BWPBInput.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>