[asp]删除多条记录 在线等待..................

这个问题闹的我好半天了..各位编程高手帮忙.
以下是删除过程.
<%
Sub delete()
ID = Trim(Request.Form("ID"))
If Trim(Request.Form("ID")) = "" Then
Response.write("<script>alert('对不起，您至少选择一条需要删除的日志！');location.href='AMwrite.asp'</script>")
Response.End
End If
Dim things
Dim things_numRows
Set things = Server.CreateObject("ADODB.Recordset")
things.ActiveConnection = MM_conn_STRING
things.Source = "SELECT * FROM thing Where ID In("& ID &")"
things.CursorType = 1
things.CursorLocation = 2
things.LockType = 3
things.Open()
If things.Eof And things.Bof Then
things.Close()
Set things = Nothing
Response.Write("<script>alert('您所提交的数据编号不存在，可能已经被管理员删除！');location.href='AMwrite.asp'</script>")
Response.End
Else
things.delete()
things_numRows = 0
things.Close()
Set things = Nothing
Response.Write("<script>alert('日志删除成功！');location.href='AMwrite.asp'</script>")
Response.End
End If
End Sub
%>
上面是删除过程的代码怎么删除无法删除多条记录呢？
--------------------------------------------------------
Trim(Request.Form("ID")) 输出为 ：
1,2,3,4,5,6,7
--------------------------------------------------------
请各位帮忙看看啊！~

[ 本帖最后由 jxyjiy 于 2008-8-14 15:39 编辑 ]

在线等..................