<% '**************************************************************** '** 版权所有:烈火工作室 演示网站http://www.strongfire.cn ** '** QQ:839225572 邮箱:strongfire2008@163.com ** '** 非正版用户不得擅自非法修改用于商业用途!查出必究。 ** '**************************************************************** %> <% ClassName=Request("ClassName") if Request("page")="" then page=1 else page=Request("page") end if for each a in request("pldel") '删除相关图片 id=a Set oRs = Server.CreateObject( "ADODB.Recordset" ) sSql = "SELECT * FROM article WHERE id=" & a oRs.Open sSql, Conn, 1, 3 If Not oRs.Eof Then sSavePathFileName = oRs("SavePathFileName") if sSavePathFileName<>"" then ' 把带"|"的字符串转为数组 aSavePathFileName = Split(sSavePathFileName, "|") ' 删除新闻相关的文件,从文件夹中 For i = 0 To UBound(aSavePathFileName) ' 按路径文件名删除文件 Call DoDelFile(aSavePathFileName(i)) Next end if ' 删除新闻 oRs.delete oRs.update End If oRs.Close next conn.close set conn=nothing Response.Redirect "ArticleModifylist.asp?ClassName="&ClassName&"&page="&page %>