Question

ASP 批量修改的问题

我是通过checkbox表单批量获取ID，在跳转页面把获取的ID读取出来。我就是想问下要怎么修改（只修改其中的几个字段）我把代码放出来。
1，获取ID并读取数据代码
<!--#include file="../include/conn_view.asp" -->
<%
a=request.Form("checkbox")
b=split(a,",")
for i=0 to UBound(b)
if i = 0 then m=b(i)
if i <>0 then m=m&","&b(i)
next
'response.Write(m)
m="("&m&")"
set rs= server.CreateObject("adodb.recordset")
sql = "select * from [house_jiangan] where id in "&m
'response.Write sql
rs.open sql,conn,3,3
%>
<style type="text/css">
<!--
@import url("../style.css");
-->
</style>
<div align="center"><span class="font4">批量核准</span><br>
</div>
<form name="form2" action="2.asp?id=<%=rs("id")%>" onClick="return check2()">
<table width="737" height="56" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFFFFF" class="kuan">
<tr>
<td width="41" height="25" align="center" background="../images/system1.gif" class="font"><strong><font color="#FF9B59">区域</font></strong></td>
<td width="31" align="center" background="../images/system1.gif" class="font"><strong><font color="#FF9B59">核准</font></strong></td>
<td width="158" align="center" background="../images/system1.gif" class="font"><strong><font color="#FF9B59">发证日期</font></strong></td>
<td align="center" background="../images/system1.gif" class="font"><strong><font color="#FF9B59">某某某</font></strong></td>
<td align="center" background="../images/system1.gif" class="font"><strong><font color="#FF9B59">某某某</font></strong></td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#E7E2FE">
<td height="9" align="center" class="font"><%=rs("qy")%></td>
<td height="9" align="center"><input name="pass2" type="checkbox" id="pass2" value="是" checked disabled></td>
<td height="9" align="center" class="font"><input name="Comments_year" type="text" class="textinput" id="Gs_year" value="<%=year(now)%>" size="1">
<span class="font">.</span> <input name="Comments_month" type="text" class="textinput" id="Gs_month" value="<%=right(cstr(100+month(now)),2)%>" size="1">
<span class="font">.</span> <input name="Comments_day" type="text" class="textinput" id="Gs_day" value="<%=right(cstr(100+day(now)),2)%>" size="1"></td>
<td width="49" height="9" align="center"><input name="jbr" type="checkbox" id="jbr" value="某某" checked>
</td>
<td width="39" align="center"><input name="jbr" type="checkbox" id="pass232" value="某某"></td>
</tr>
<%
rs.movenext
loop%>
</table>
<%
rs.close
%>
<p><input type="submit" name="Submit" value="提交"></p>
</form>
我就是想问下在点了“提交”后的代码怎么写，附代码（自己写的，不知道为什么老出错。错误Microsoft JET Database Engine 错误 '80040e14'
语法错误 (操作符丢失) 在查询表达式 'id in ()' 中。
/hh/webmap/system/admin/2.asp，行15
）

Answer 1

我是楼主，补充满了。
2.asp代码
<!--#include file=../include/conn_view.asp-->
<%
a=request.form("id")
b=split(a,",")
for i=0 to UBound(b)
if i = 0 then m=b(i)
if i <>0 then m=m&","&b(i)
next
response.Write(m)
m="("&m&")"
set rs= server.CreateObject("adodb.recordset")
sql = "select * from [house_jiangan] where id in "&m
'response.Write sql
rs.open sql,conn,3,3
do while not rs.eof
rs("Comments_year")=request.Form("Comments_year"&m)
rs("Comments_month")=request.Form("Comments_month"&m)
rs("Comments_day")=request.Form("Comments_day"&m)
rs("pass2")=request.Form("pass2"&m)
rs("jbr")=request.Form("jbr"&m)
rs.update
rs.movenext
loop
rs.close
conn.close
set rs=nothing
%>
请各位大大帮帮忙吧！实在是做不下去了
是要求能修改多个字段，是批量修改

Answer 2

2.asp

id=request("id")
字段名 = request.form("提交上来的值")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [house_jiangan] where id="&id,conn,1,3
rs(字段名) = 字段名
....
rs.update
rs.close

Answer 3

a=request.Form("checkbox")
b=split(a,",")
for i=0 to UBound(b)
sql="update table set 字段=修改的值 where 字段=b(i)
con.execute(sql)

next
这是修改你选中的每一个数据

Answer 4

你这里提交过去只有一个id就是你读出来的第一条信息.

也就是说修改数据库里的信息只能修改一条.