asp 图片文件删除代码

<%
function DelectImageFile(NewsID,i)

set DelectFile=server.CreateObject("scripting.filesystemobject")
CurrentPath=server.MapPath("images/news/")
FileName=CurrentPath  & "" & NewsID & "-" & i & ".gif"

if DelectFile.FileExists(FileName) then
DelectImageFile="images/news/" & NewsID & "-" & i & ".gif"
exit function
else
FileName=CurrentPath  & "" & NewsID & "-" & i & ".jpg"

if DelectFile.FileExists(FileName) then
DelectImageFile="images/news/" & NewsID & "-" & i & ".jpg"
exit function
else
DelectImageFile="images/news/" & NewsID & "-" & i & ".bmp"
exit function
end if
end if

end function

function DelectImageFile_Upload(NewsID,i)

set DelectFile=server.CreateObject("scripting.filesystemobject")
CurrentPath=server.MapPath("../images/news/")
FileName=CurrentPath  & "" & NewsID & "-" & i & ".gif"

if DelectFile.FileExists(FileName) then
DelectImageFile_Upload= NewsID & "-" & i & ".gif"
exit function
else
FileName=CurrentPath  & "" & NewsID & "-" & i & ".jpg"

if DelectFile.FileExists(FileName) then
DelectImageFile_Upload= NewsID & "-" & i & ".jpg"
exit function
else

FileName=CurrentPath  & "" & NewsID & "-" & i & ".bmp"
if DelectFile.FileExists(FileName) then
DelectImageFile_Upload= NewsID & "-" & i & ".bmp"
exit function
else
DelectImageFile_Upload=""
exit function
end if

end if
end if

end function