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("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. set rs=conn.execute("select * from gslr where id="&x)
  30. dim fileurl
  31. fileurl=rs("pic")
  32. if fileurl<>"" then
  33. call DoDelFile("../../UPLOAD/"&fileurl)
  34. end if
  35. sql="delete from gslr where id="&x
  36. Set rs=Conn.Execute(sql)
  37. call showmsg("记录删除成功!","List.asp")
  38. End Function
  39. '-------------------------------
  40. call COCLS
  41. %>