<%@language=vbscript codepage=936 %> <% '**************************************************************** '** 版权所有:烈火工作室 演示网站http://www.strongfire.cn ** '** QQ:839225572 邮箱:strongfire2008@163.com ** '** 非正版用户不得擅自非法修改用于商业用途!查出必究。 ** '**************************************************************** %> <% dim ClassName,sql ClassID=Request("ClassID") if ClassID<>"" then sql="delete from Class where id=" & ClassID conn.Execute sql '清除列表文件 '删除相关图片 Set Rs = Server.CreateObject( "ADODB.Recordset" ) Sql = "SELECT id,SavePathFileName FROM article WHERE ClassID=" & ClassID Rs.Open Sql, Conn, 1, 3 If Not Rs.Eof Then do while not Rs.EOF sSavePathFileName = Rs("SavePathFileName") id=Rs("id") if sSavePathFileName<>"" then ' 把带"|"的字符串转为数组 aSavePathFileName = Split(sSavePathFileName, "|") ' 删除新闻相关的文件,从文件夹中 For i = 0 To UBound(aSavePathFileName) ' 按路径文件名删除文件 Call DoDelFile(aSavePathFileName(i)) Next end if ' 删除新闻 Rs.delete Rs.update Rs.movenext loop Rs.Close set Rs=nothing End If end if conn.close set conn=nothing response.redirect "ClassManage.asp" %>