方法:

在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相關(guān)刪除及重新生成

然后在

'自由JS相關(guān)刪除及重新生成
前一行插入如下代碼:

'刪除相關(guān)圖片文件
Dim tempstr,tempstrnum,tempstr1,tempstr2 '添加臨時(shí)變量
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 '優(yōu)化
Set DelNewsFileObj = Nothing '優(yōu)化
'添加結(jié)束

查看更多 風(fēng)訊cms教程  風(fēng)訊cms模板