批量修改记录

<% dim id,rec,sqlcount,rscount,i
 id=split(trim(request.form("id")),",")
 rec=split(trim(request.form("rec")),",")
 for i=0 to ubound(id)
   if rec(i) <> "" Then dbconn.execute("update sc_url set sc_rec ='"&trim(rec(i))&"' where id= "&id(i)&"")
 next
 Response.Write "<script>alert('修改成功');location='newurl.asp';</script>"
%>
/
id rec 在上一页通过表单提交，表单内循环显示要修改的记录。