再给一种方法
a=Request.Form("sel")
b=Split(a,",")
Str = ""
For i=0 to Ubound(b)
If id=0 then
Str = " id="&b(i)
Else
Str = Str & " or id=" & b(i)
End if
SQL="delete tb where "&Str
Rs.execute SQL
a=Request.Form("sel")
b=Split(a,",")
Str = ""
For i=0 to Ubound(b)
If id=0 then
Str = " id="&b(i)
Else
Str = Str & " or id=" & b(i)
End if
SQl="select id From YouTable where "&Str
Rs.Open
While Not Rs.Eof
Rs.delete
Rs.update
Rs.MoveNext
wend