asp的批量更新代码需要修改一下

Question

access结构如下：
id自动编号
xuanzhe字段属性为是/否
目的功能：在文本框中输入新品牌的名字后提交，立刻把所有已经勾选的复选框的记录全部更新成新的品牌名
asp错误示例代码如下：

<%
if request("send")="ok" then

username=trim(request.form("id"))

if username="" or request.form("id")="" then
response.write "<script language='javascript'>"
response.write "alert('您没有选择要更新的记录！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if

SQL="select * from pinpai where id=159 "
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,3
rs("pinpai")=Request("pinpai")
rs.Update
end if
%>

<form action=book_write.asp method=post name="book">
<table>
<tr>
<td><input type="checkbox" name="id" value="111" checked></td></tr><tr>
<td><input type="checkbox" name="id" value="222" checked></td></tr><tr>
<td><input type="checkbox" name="id" value="333" checked></td></tr><tr>
</table>
<table><tr><td>
品牌：<input type="text" name="pinpai">
<input type="submit" name="Submit" value="提交">
<input type="hidden" name="ok" value="ok">
</form>
看看以下代码行吗？显示缺少语句，应该怎么改？
<%
SQL="select * from pinpai where id in ("&username&")"
<input type="hidden" name="send" value="ok">
rs.open SQL,conn,1,3
if not(rs.eof and rs.bof) then
do while not rs.eof
rs("pinpai")=Request("pinpai")
rs.update
rs.movenext
loop
end if
%>

Answer 1

复选得到的是一组数据，首先你表单里面要把value设置为对应的ID，然后asp处理的时候用in 别用=
select * from pinpai where id in (选择的值的列表)

追问

有网友回答以下代码，但是显示缺少语句，麻烦您看看哪里需要修改，谢谢

rs.open SQL,conn,1,3
if not(rs.eof and rs.bof) then
do while not rs.eof
rs("pinpai")=Request("pinpai")
rs.update
rs.movenext
loop
end if
%>

追答

"
response.write "alert('您没有选择要更新的记录！');"
response.write "location.href='javascript:history.go(-1)';"
response.write ""
response.end
end if

SQL="select * from pinpai where id in ("&username&")"
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,3
if not(rs.eof and rs.bof) then
do while not rs.eof
rs("pinpai")=request.form("pinpai")
rs.update
rs.movenext
loop
nd if

rs.Update
end if
%>

试试