7faee4d558e6d2886a572728ba046c3760ac5803.svn-base 405 B

1234567891011121314151617181920
  1. <%
  2. option explicit
  3. Response.Expires = -1
  4. Server.ScriptTimeout = 600
  5. %>
  6. <!-- #include file="config.asp" -->
  7. <%
  8. dim FH, imgName, imgPath
  9. imgName = Request.QueryString("filepath")
  10. imgName = Mid(imgName, InStrRev(imgName, "/") + 1)
  11. imgPath = UPLOAD_PATH & imgName
  12. Set FH = Server.CreateObject("Scripting.FileSystemObject")
  13. if FH.FileExists(imgPath) then
  14. FH.DeleteFile(imgPath)
  15. end if
  16. set FH = nothing
  17. %>