3.0增加功能:删除新闻同时删除相关的图片文件

bucuo123

   

3.0增加功能:删除新闻同时删除相关的图片文件 方法: 在admin/info/delcontent.asp文件中找到: '删除新闻物理文件 Dim DelNewsClassFileObj,DelNewsFileObj Set DelNewsFileObj = Conn.Execute("Select FileName,FileExtName,content,ClassID from News where NewsID='"&DelNewsIDArray(DN_i)&"'") If Not DelNewsFileObj.eof then Set DelNewsClassFileObj = Conn.execute("Select ClassEName,SaveFilePath from NewsClass where ClassID='"&DelNewsFileObj("ClassID")&"'") If Not DelNewsFileObj.eof then If MyFile.FileExists(Server.Mappath(DelNewsSysRootDir&DelNewsClassFileObj("SaveFilePath")&"/"&DelNewsClassFileObj("ClassEName"))&"/"&DelNewsFileObj("FileName")&"."&DelNewsFileObj("FileExtName")) then MyFile.DeleteFile(Server.Mappath(DelNewsSysRootDir&DelNewsClassFileObj("SaveFilePath")&"/"&DelNewsClassFileObj("ClassEName"))&"/"&DelNewsFileObj("FileName")&"."&DelNewsFileObj("FileExtName")) End if End If End If '自由JS相关删除及重新生成 然后在 '自由JS相关删除及重新生成 前一行插入如下代码: '删除相关图片文件 Dim tempstr]tempst...

   

内容已隐藏,请关注公众号输入验证码查看

               
验证码 

  

本帖支持关注公众号查看

【无套路  无套路  无套路 扫描二维码关注公众号发送【验证码】收到验证码 在上面输入点击提交查看即可显示隐藏内容】