<%

 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—表单内循环显示要修改的记录。