<!--#Include file = "ADOVBS.INC"-->
<%
  Dim cn1,rs,filepath
  filePath = Server.MapPath("a1.mdb")
  Set cn1 = Server.CreateObject("ADODB.Connection")
  cn1.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & filePath
  Set rs = Server.CreateObject("ADODB.RecordSet")
  '对工资为1200元的记录进行修改
  rs.Open "select * from S where 工资=1500",cn1,1,3  
  
 rs.movefirst----->(错误提示：BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。取消后显示正常)
  do while not rs.eof
   if rs.eof then
   exit do
   end if
   
  rs("工资")=1400
  rs.Update
  rs.movenext
  loop
  '关闭记录集于数据库连接
  rs.Close
  Set rs= Nothing
  cn1.Close
  Set cn1 = Nothing
  Response.Redirect "8-5.asp"
%>

高人还没有出现呀？请快速指教 。