N个
allid=Trim(Request.Form("你定义的名称"))'批量ID
dim id_a,id_b,j '作用:批量审核
id_a=split(allid,", ")
id_b=ubound(id_a)
For j=0 to id_b
'Response.Write(id_a(j))&"
"
conn.execute(" update [表名称] set 字段=xxx where ID="&id_a(j)&" ")'更新为审核属性
Next
每条数据后面跟一个checkbox 名字一样,比如都是ckhbox 值是这个数据对应的id
xxxx.asp获取chkbox的值,就是你选中的所有数据。
然后执行对应的操作就可以了