asp批量删除:asp批量不定项删除数据来源: 发布时间:星期六, 2008年12月13日 浏览:70次 评论:0
<%
'*************************************************** '作 者: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 = L(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))&"="&C(Trim(arrID(i)))) Next ElseIf IsNumeric(ID)=True Then conn.execute("delete from "&Cstr(Trim(strTable))&" where "&Cstr(Trim(strItem))&"="&C(Trim(ID))) Else Exit Sub End If End If End Sub %> 1
相关文章
读者评论
发表评论 |