功能簡(jiǎn)介：

刪除下載、新聞的同時(shí)，刪除遠(yuǎn)程存圖的圖片

補(bǔ)丁下載：
點(diǎn)擊瀏覽該文件

補(bǔ)丁運(yùn)用：
(1)備分相應(yīng)文件
(2)替換目錄inc\Function.asp中的文件
(3)替換目錄Admin\Info中的文件DelContent.asp

這些文件中可能包含其它補(bǔ)丁，如查直接替換有問題請(qǐng)參照下列修改方法去修改。

修改方法分三大步：
一、在文件Inc\Const.asp中增加一句
Const Delpic="yes" '新聞與下載刪除的同時(shí)，是否刪除遠(yuǎn)程保存的圖片(僅刪BeyondPicDir中的)。yes:刪除，其它不刪除。

二、在文件Admin\Info\DelContent.asp中

(1)在
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
后插入
'------------刪除遠(yuǎn)程存圖的圖片--doudou888--------
If LCase(Delpic)="yes" Then
Call DelLocalFile(replace(DelNewsFileObj("Content"),DelNewsSysRootDir,""&delnewssysrootdir/' target=_blank>"&DelNewsSysRootDir))
Dim timPic,timPicPath
timPic=DelNewsFileObj("PicPath")
If InStr(LCase(timPic),LCase(UpFilesZn))>0 Then '站內(nèi)
timPicPath=DelNewsSysRootDir&Mid(timPic,1,InstrRev(timPic,"/")-1)
Else '站外
timPicPath=Mid(timPic,1,InstrRev(timPic,"/")-1)
End If
'Call DelFilesFolder(timPicPath,"",Mid(timPic,InstrRev(timPic,"/") 1))
Call DelFilesFolder(timPicPath,"",DelNewsFileObj("NewsID")&"_")
End if
'-------------------------------------------------
(2)在
if MyFile.FileExists(Server.MapPath(DelNewsSysRootDir & DelDownClassObj("SaveFilePath") & "/"& DelDownClassObj("ClassEName")) & "/" & DelDownloadObj("FileName") & "." & DelDownloadObj("FileExtName")) then
MyFile.DeleteFile (Server.MapPath(DelNewsSysRootDir & DelDownClassObj("SaveFilePath") & "/"& DelDownClassObj("ClassEName")) & "/" & DelDownloadObj("FileName") & "." & DelDownloadObj("FileExtName"))
end if
后插入
'-----------------刪除遠(yuǎn)程存圖的圖片---------------
If LCase(Delpic)="yes" Then
Call DelLocalFile(replace(DelDownloadObj("Description"),DelNewsSysRootDir,""&delnewssysrootdir/' target=_blank>"&DelNewsSysRootDir))
Dim timPic,timPicPath
timPic=DelDownloadObj("Pic")
If InStr(LCase(timPic),LCase(UpFilesZn))>0 Then '站內(nèi)
timPicPath=DelNewsSysRootDir&Mid(timPic,1,InstrRev(timPic,"/")-1)
Else '站外
timPicPath=Mid(timPic,1,InstrRev(timPic,"/")-1)
End If
'Call DelFilesFolder(timPicPath,"",Mid(timPic,InstrRev(timPic,"/") 1))

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