批量修改某一字段

<%dim id,sql,rs,topcolortopcolor=Request.Form("topcolor")Set rs=Server.CreateObject("adodb.recordset") SQL="select topcolor from table"rs.Open SQL,Conn,1,3Do While Not rs.eofrs("topcolor")=topcolorrs.updaters.MoveNextLooprs.CloseResponse.Redirect("aaa.asp")%>