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
%>