想做一个删除选中后的后台面,checkbox用的序号id名字
在循环上吃不住,老错
想删除后返回最后一个选项的页,有页码标记page

出错的代码？

在外面上网
没带
能否帮忙写一个
就是把多个checkbox选中以后，用个后台程序循环删除选中的选项

用SQL语句来作
例如，如下代码
Public Function PlDeleteSQL(SQLStr,Field,Ary(),Type)
Dim i
For i=0 To UBound(Ary)-1
Select Case Type
Case "value"
SQLStr=SQLStr&Field&"="&Ary(i)&" Or "
Case "text"
SQLStr=SQLStr&Field&"='"&Ary(i)&"' Or "
End Select
Next
PlDeleteSQL=Mid(SQLStr,1,Len(SQLStr)-4)
End Function
利用SQL语句批量删除数据库内容。

函数用法实例
'假设前面已经得到选择的checkbox数组
Dim AryID()
'……省略数组得到代码
Dim DelSQL
DelSQL="Delete Form TableName Where "
DelSQL=PlDeleteSQL(DelSQL,"ID",AryID,"value")
'如此就批量的生成了删除数据的SQL语句最后在
con.Execute DelSQL
'就删除了数据库的内容。