<% option explicit Response.Expires = -1 Server.ScriptTimeout = 600 %> <% dim FH, imgName, imgPath imgName = Request.QueryString("filepath") imgName = Mid(imgName, InStrRev(imgName, "/") + 1) imgPath = UPLOAD_PATH & imgName Set FH = Server.CreateObject("Scripting.FileSystemObject") if FH.FileExists(imgPath) then FH.DeleteFile(imgPath) end if set FH = nothing %>