myclass_20_updata.asp

来自「综合测评．你自己看着办」· ASP 代码 · 共 37 行

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<!--#include file="session_1.asp" -->
<!--#include file="Connections/conn1.asp" -->
<%
var x=Request("month")(1);
var y=x.charAt(1)+x.charAt(2);
var sc="s"+y;
var bsc="b"+y;
var userno1=new Array();
var score1=new Array();
var bscore1=new Array();

var cmd = Server.CreateObject("ADODB.Command");
cmd.ActiveConnection = MM_conn1_STRING;
var i=1;
var j=0;
for(i=1;i<=20;i++)
  {   userno1[i]=Request(i)
	  if(userno1[i]=="")
	  continue;
	  if(userno1[i]!="")
	  {score1[i]=Request("c"+i);
	   bscore1[i]=Request("b"+i);
	   cmd.CommandText = "UPDATE score  SET "+sc+"="+score1[i]+" ,"+bsc+"='"+bscore1[i]+"' WHERE userno='"+userno1[i]+"' ";
       cmd.CommandType = 1;
       cmd.CommandTimeout = 0;
       cmd.Prepared = true;
       cmd.Execute();	  
	   j++;
	   }
  }
 Response.Write("成功插入["+j+"]条记录") ;
 Response.Write("<script language='javascript'>window.alert('成功插入'); location=('myclass_score_view.asp');</script>")
%>