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

导航：返回上一页

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

方法:

在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,tempstrnum,tempstr1,tempstr2 '添加临时变量
tempstr=LCase(DelNewsFileObj("Content"))
do while InStr(tempstr,"src=")>0
tempstr1 =mid(tempStr,InStr(tempstr,"src=") + 21 ) 
'src="http://127.0.0.1/的长度=21只填域名长度，不要包含虚拟目录长度
tempstr2=left(tempstr1,InStr(tempstr1,"""") - 1 )
If MyFile.FileExists(Server.Mappath(tempstr2))  then
    MyFile.DeleteFile(Server.Mappath(tempstr2))
End if
tempstr=mid(tempstr,instr(tempstr,tempstr2)+len(tempstr2))
loop
DelNewsFileObj.Close '优化
Set DelNewsFileObj = Nothing '优化
'添加结束 

参考来源

• 参考来源