asp批量不定项删除数据

<%
'***************************************************
'作 者：XfengNet
'创建时间：2008-01-26
'过程名：DeleteRsShow(strAct,strBox,strTable,strItem)
'作 用：批量不定项删除数据
'参 数：strAct/strBox/strTable/strItem,act值/多选项名称/表名/字段名
'返回值：无
'使用方法
'Dim act
'act = Request.QueryString("act")
'If act="Del" or act="del" Then
' call DeleteRsShow(act,"ID","News","ID")
' Response.Redirect("NewsList.asp")
'End If
'***************************************************
Public Sub DeleteRsShow(strAct,strBox,strTable,strItem)
Dim act,ID,arrID,i
act = Lcase(Cstr(Trim(strAct)))
If IsEmpty(strBox)=True or IsEmpty(strTable)=True or IsEmpty(strItem)=True Then
Exit Sub
ElseIf act="del" Then
ID = Request.Form(Cstr(Trim(strBox)))
If Instr(ID,",")>0 Then
arrID = Split(ID,",")
For i=LBound(arrID) to UBound(arrID)
conn.execute("delete from "&Cstr(Trim(strTable))&" where "&Cstr(Trim(strItem))&"="&Cint(Trim(arrID(i))))
Next
ElseIf IsNumeric(ID)=True Then
conn.execute("delete from "&Cstr(Trim(strTable))&" where "&Cstr(Trim(strItem))&"="&Cint(Trim(ID)))
Else
Exit Sub
End If
End If
End Sub
%>