ASP批量更新出错(用数组方法)
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db1.mdb")
%>
<%
exec="select * from chengji"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1 
%>
<style type="text/css">
<!--
.STYLE1 {
color: #FF0000;
font: 12;
}
-->
</style>
<style type="text/css">
<!--
.STYLE2 {
color: #993333;
font-size: 12px;
}
.STYLE3 {
color: #0000FF;
font-weight: bold;
font-size: 16px;
}
-->
</style>
<title>学生成绩修改</title>
<div align="center" class="STYLE3">学生成绩修改</div>
<form action="a1.asp" method="post" name="form1">
  <table width="100" border="1" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td width="30" height="20" class="STYLE2"><div align="center">序号</div></td>
      <td width="40" class="STYLE2"><div align="center">姓名</div></td>
      <td width="30" class="STYLE2"><div align="center">语文</div></td>
  
    </tr>
          
  <%do while not rs.eof%>  
    
    <tr>
        <td class="STYLE1"><div align="center"><%=rs("id")%> 
          <input name="id" type="hidden"  value="<%=rs("id")%>"> </div></td>
    
        <td class="STYLE1">  <div align="center"> <%=rs("Name")%> </div></td>
              
        <td > <div align="center">
          <input name="yuwen<%=rs("id")%>" type="text" id="yuwen" value="<%=rs("yuwen")%>" size="3" class="STYLE2" > 
        </div>
  </td>
  </tr>
  
     
  
  <%
rs.movenext
loop
%>
  </table>
    <label>
    <div align="center">
      <input type="submit" name="Submit" value="提交">
  </div>
  
    
    
</label>
</form>
执行页代码:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db1.mdb")
%>
<%
dim id 
  id=request("id") '获取的ID值如: id=1,3
  nid=split(id,", ")  ' 根据逗号把id分割,返回数组nid
  sid=ubound(nid) '得到几个值
  for i = 0 to sid  'nid(i)就是要操作的id,并做循环更新记录
   
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from chengji where id='"&nid(i)&"'" 
  rs.open sql,conn,1,3
  
  rs("yuwen")=request("yuwen"&nid(i)) 
  rs.update 
  rs.close 
  set rs=nothing
  next
%>
数据库:db1.mdb  结构:表chenji   数段  :id  name  yuwen  shuxue  yingyu

 
											





 KxGuzSz0.rar
KxGuzSz0.rar 
	     
											
