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

IP电话/视频会议

开发平台:

ASP/ASPX

  1. <!--#include file = "Startup.asp"-->
  2. <%
  3. ' ======================
  4. ' 功能:删除新闻
  5. ' 描述:新闻删除后,页面转向新闻列表页。
  6. '       删除新闻的同时,删除此新闻相关的上传文件。
  7. ' ======================
  8. Call Header("删除新闻")
  9. Call Content()
  10. Call Footer()
  11. ' 本页内容区
  12. Sub Content()
  13. ' 取参数:新闻ID
  14. Dim sNewsID
  15. sNewsID = Trim(Request("id"))
  16. ' 新闻ID有效性验证,防止有些人恶意的破坏此演示程序
  17. If IsNumeric(sNewsID) = False Then
  18. GoError "请通过页面上的链接进行操作,不要试图破坏此演示系统。"
  19. End If
  20. ' 从新闻数据表中取出相关的上传文件
  21. ' 上传后保存到本地服务器的路径文件名,多个以"|"分隔
  22. ' 删除文件,要取带路径的文件名才可以,并且只要这个就可以了,原来存的原文件名或不带路径的保存文件名可用于其它地方使用
  23. Dim sSavePathFileName
  24. sSql = "SELECT D_SavePathFileName FROM NewsData WHERE D_ID=" & sNewsID
  25. oRs.Open sSql, oConn, 0, 1
  26. If Not oRs.Eof Then
  27. sSavePathFileName = oRs("D_SavePathFileName")
  28. Else
  29. GoError "无效的新闻ID,请点页面上的链接进行操作!"
  30. End If
  31. oRs.Close
  32. ' 把带"|"的字符串转为数组
  33. Dim aSavePathFileName
  34. aSavePathFileName = Split(sSavePathFileName, "|")
  35. ' 删除新闻相关的文件,从文件夹中
  36. Dim i
  37. For i = 0 To UBound(aSavePathFileName)
  38. ' 按路径文件名删除文件
  39. Call DoDelFile(aSavePathFileName(i))
  40. Next
  41. ' 删除新闻
  42. sSql = "DELETE FROM NewsData WHERE D_ID=" & sNewsID
  43. oConn.Execute sSql
  44. ' 3秒转向新闻列表页
  45. response.write "<p align=center>新闻删除成功,3秒后自动返回新闻列表页!<script>window.setTimeout(""location.href='list.asp'"",3000);</script></p>"
  46. End Sub
  47. ' 删除指定的文件
  48. Sub DoDelFile(sPathFile)
  49. On Error Resume Next
  50. Dim oFSO
  51. Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
  52. oFSO.DeleteFile(Server.MapPath(sPathFile))
  53. Set oFSO = Nothing
  54. End Sub
  55. %>