你可以将要审核的记录芳放在数据库中,经过审核加一定的标示c,而且每条记录要有唯一的标示b,数据读取时可以将要审核的数据唯一标示放在checkbox中,checkbox名称相同aaa。
do while not rs.eof
<input type=checkbox name="aaa" value=rs("b")
rs.movenext
loop
这样你可以多选取值 request("aaa")
for i=1 to request("aaa").count
sql="update talbe set c='' where b='"&request("aaa")(i)&"'"
sql="delete from friends where friends_id="
Set conn=Server.CreateObject("ADODB.Connection")
application("cvec")="dsn=cvec;uid=sa;pwd=password"
conn.open application("cvec")
for i=1 to count
conn.execute sql&request.form("id")(i)
next
conn.close
set conn=nothing
不需要数组,最简单的方法是,所有的checkbox取一样的名字,这样得到的是连续的值.
<input name=checkid type=checkbox value="<%=rs("nid")%>" >
提交后得到"1,2,3,4"
然后
if request("action")="approve" then
nid=request("checkid")
approve=1
sql="update [serversend] set bapprove_ser="&approve&" where nid in(" & nid &")"
response.write sql
conn.execute sql