<%
' 删除指定的文件
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
%>
苏公网安备 32070502010230号