<%
' 删除指定的文件
Sub DoDelFile(sPathFile)
     On Error Resume Next
     Dim oFSO
     Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
     oFSO.DeleteFile(Server.MapPath(sPathFile))
     Set oFSO = Nothing
End Sub

'删除某条新闻信息
if objaction="del" then

 ' 取参数：新闻ID
 Dim sNewsID
 sNewsID = Trim(Request("id"))

 ' 新闻ID有效性验证，防止有些人恶意的破坏此演示程序
 If IsNumeric(sNewsID) = False Then
  call errbox("请通过页面上的链接进行操作，不要试图破坏此演示系统","","","","")
 End If
 
 set dirs=server.CreateObject("adodb.recordset")
 dirs.open "select * from news where id="&sNewsID,conn,1,1
 if dirs.eof and dirs.bof then
  call errbox("无效的新闻ID，请点页面上的链接进行操作","","","","")
 else
  sSavePathFileName = dirs("saveimg")
 end if
 dirs.close
 set dirs=nothing
 
 ' 从新闻数据表中取出相关的上传文件
 ' 上传后保存到本地服务器的路径文件名，多个以"|"分隔
 ' 删除文件，要取带路径的文件名才可以，并且只要这个就可以了，原来存的原文件名或不带路径的保存文件名可用于其它地方使用
 Dim sSavePathFileName
 
 ' 把带"|"的字符串转为数组
 Dim aSavePathFileName
 aSavePathFileName = Split(sSavePathFileName, "|")
 ' 删除新闻相关的文件，从文件夹中
 Dim i
 
 For i = 0 To UBound(aSavePathFileName)
  ' 按路径文件名删除文件  
  Call DoDelFile(aSavePathFileName(i))
  'response.write Server.MapPath(aSavePathFileName(i)) & "<br>"
 Next

 dddSQL="Delete * from [news] where id in ("&request("id")&")"
 conn.Execute (dddSQL)
 response.redirect "qwbm.asp"
 response.end
end if

%>