2个页面   一个是读取数据库并进行批量更新的    另一个就是批量更新程序

第一个
<style type="text/css">
<!--
.STYLE1 {font-size: 18px}
-->
</style><p>
  <!--#include file="inc\conn.asp"-->
<%Set rs1=Server.CreateObject("ADODB.Recordset") 
sqlstr1="select * from use where name='"&request.Cookies("name")&"'"
rs1.Open sqlstr1,conn,1,1
bmry=rs1("bmry")

Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="Select * from 1 where bmry='"&bmry&"' "
rs.Open sqlstr,conn,1,1
%>
</p>
<form action="save1.asp" method="post" enctype="multipart/form-data" name="form1">
  <p>第一周工作情况：</p>
  <table width="943" height="63" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
    <tr >
      <td width="88" height="28" bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center">填表人</div></td>
      <td width="82" height="28" bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center">部门人员</div></td>
      <td width="91" height="28" bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center">填写日期</div></td>
      <td width="116" height="28" bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center">工作内容</div></td>
      <td width="68" height="28" bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center">意见建议</div></td>
      <td width="68" height="28" bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center">实际完成</div></td>
      <td width="68" height="28" bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center">原因分析</div></td>
      <td width="68" height="28" bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center">采取措施</div></td>
      <td width="76" height="28" bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center">验证</div></td>
      <td width="68" height="28" bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center">验证人</div></td>
      <td width="66" height="28" bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"></div></td>
      <td width="71" height="28" bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"></div></td>
    </tr>

<%do while not rs.eof%>

    <tr >
      <td bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"><%=rs("tianbiaoren")%>
        </div></td>
      <td bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"><%=rs("bmry")%></div></td>
      <td bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"><%=rs("nyr")%></div></td>
      <td bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"><%=rs("gznr")%></div></td>
      <td bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"><%=rs("yjrq")%></div></td>
      <td bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"><%=rs("sjwc")%></div></td>
      <td bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"><%=rs("yyfx")%></div></td>
      <td bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"><%=rs("cs")%></div></td>
      <td bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center">
        <select name="select">
          <option value="符合">符合</option>
          <option value="不符合">不符合</option>
        </select>
        </div></td>
      <td bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"><%=rs("yzr")%></div></td>
      <td bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"></div></td>
      <td bordercolor="#ffffff" bgcolor="#FFFFFF"><div align="center"></div></td>
    </tr>
  
 <% rs.movenext
loop%></table>
  <p align="center">
    
    <input type="submit" name="Submit" value="确定">
  </p>
</form>
<p>&nbsp;</p>


第二个
<!--#include file="inc\conn.asp"-->
<%
dim tianbiaoren
tianbiaoren=request.form("tianbiaoren")
Set rs=Server.CreateObject("ADODB.Recordset") 
sqlstr="Select * from 1 where tianbiaoren='"&tianbiaoren&"'"
rs.Open sqlstr,conn,1,3
do while not rs.eof
rs("yz")=request("select")
rs.Update 
rs.movenext
loop
rs.close 
set rs=nothing 
conn.close 
set conn=nothing
%>




我要以填表人为条件来批量更新数据库

第一个就是按部门名称读取显示数据,然后发送到第二个来验证是否符合.

请高手指教