List_Del.asp
上传用户:xxtaishan
上传日期:2022-01-02
资源大小:4063k
文件大小:1k
源码类别:

IP电话/视频会议

开发平台:

ASP/ASPX

  1. <!--#include file="../../inc/conn.asp"-->
  2. <!--#include file="../../inc/FUNC.asp"-->
  3. <%
  4. If Request("operation")="del" Then
  5. Del
  6. end if
  7. Function Del
  8. Dim query
  9. query=Request.Form("checkbox")
  10. If query<>"" Then
  11. If instr(query,",")>0 Then
  12. Dim chx
  13. Dim i
  14. chx=Split(query,",")
  15. For i=0 to ubound(chx)
  16. call DelInfo(chx(i))
  17. Next
  18. Else
  19. call DelInfo(query)
  20. End If
  21. Else
  22. call showerr("请选择删除记录!")
  23. End IF
  24. End Function
  25. '-------------------------------
  26. Function DelInfo(x)
  27. Dim rs
  28. Dim sql
  29. sql="delete from words2 where id="&x
  30. Set rs=Conn.Execute(sql)
  31. call showmsg("记录删除成功!","List.asp")
  32. End Function
  33. '-------------------------------
  34. %>
  35. <%
  36. call COCLS
  37. %>