3.0增加功能:删除新闻同时删除相关的图片文件-风讯CMS教程

方法:

在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=\"/的长度=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 '优化
'添加结束