Question

ASP　批量更新修改的字段内容（ACCESS）

＆lt；％dim　UserID，sql，rsUserID＝trim（Request（＆quot；ID＆quot；））idArr＝split（UserID）kddh＝request．form（＆quot；kddh＆quot；）if　userid＝＆quot；＆quot；　thenresponse．write＆quot；＆lt；script　language＝javascript＆gt；alert（＆＃39；未选择任何订单！＆＃39；）；history．go（－1）；＆lt；＆＃47；script＆gt；＆quot；　　else　for　i　＝　0　to　ubound（idArr）sql＝＆quot；update　xinxi　set　ckkddh＝＆＃39；＆quot；kddh＆quot；＆＃39；　where　ID＝＆quot；＆amp；clng（idarr（i））　　　conn．Execute　sqlnextresponse．write＆quot；＆lt；script　language＝javascript＆gt；alert（＆＃39；已修改所选订单！＆＃39；）；history．go（－1）；self．location＝document．referrer＆lt；＆＃47；script＆gt；＆quot；　　　　end　if　　conn．close　set　rs＝nothing　set　conn＝nothing　　　％＆gt；＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿通过多选框．提交多条所选页面字段　kddh　过来本页．．．然后批量修改．．现有的语句o循环有点问题想破脑袋．希望高手帮忙．．

Answer 1

idArr=split(UserID)有错，应该是: idArr=split(UserID,",")

不过不建议使用你那方法，有个更简单的：

<%
Dim userId,sql,rs,kddh
userId=request.form("ID")
kddh=request.form("kddh")
If userid="" Then
    response.write"<script>alert('未选择任何订单！');history.back();</script>"
Else
    conn.Execute("update xinxi set ckkddh='"&kddh&"' where ID in("&userId&")")
    response.write"<script>alert('已修改所选订单！');self.location=document.referrer;</script>"
End If
rs.close
Set rs=Nothing
conn.close
Set conn=Nothing
%>