批量修改記錄

<% 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 在上一頁通過表單提交，表單內循環顯示要修改的記錄。