关于ASP批量删除的问题,进来看看,解答尽量具体,有分送!十分感谢!

sessisn 2009-09-16 02:05:00

有若干个CheckBox,值为1,2,3,4.......(这些值和数据库中ID字段对应),当前登录的用户Session_User="111"这个111用户在数据库中对应的ID字段比如是1,现在想实现一个批量删除checkbox选中的用户,但有一个非常重要的前题条件就是不删除当前登陆的用户.(Session)代码该怎么写?请知情者赐教!!谢谢

...全文

50 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

sessisn 2009-09-16

打赏
举报

有人在吗?

sessisn 2009-09-16

打赏
举报

Dim Id,Rs,s,uid
Set Rs=Conn.Execute("Select * From Users Where UserName='"&Session_User&"'")
s=Request("checkbox")
uid=Rs("id")
s = "," & s & ","
s = Replace(s, "," & uid & ",", ",")
If s = "" Or s = "," Then
s = "0"
Else
s = Right(s,Len(s)-1)
s = Left(s,Len(s)-1)
End If
Conn.Execute("Delete From Users Where Id in ("&s&")")

sessisn 2009-09-16

打赏
举报

试了一下,不行.一点删除就全删除了!

hookee 2009-09-16

打赏
举报



<%

s = "1,2,3,4"  ' CheckBox的值 s = Request("checkbox")

uid = "1"      ' uid = session("id") 或根据 Session_User 取出用户id



s = "," & s & ","

s = Replace(s, "," & uid & ",", ",")

If s = "" Or s = "," Then

   s = "0"

Else

  s = Right(s,Len(s)-1)

  s = Left(s,Len(s)-1)

End If



sql = "DELETE FROM users WHERE id IN (" & s & ")"

%>

hookee 2009-09-16

打赏
举报



<%

s = "1,2,3,4"

uid = "1"



s = "," & s & ","

s = Replace(s, "," & uid & ",", ",")

If s = "" Or s = "," Then

   s = "0"

Else

  s = Right(s,Len(s)-1)

  s = Left(s,Len(s)-1)

End If



sql = "DELETE FROM tbl WHERE id IN (" & s & ")"

%>