1234567891011121314151617181920 |
- <%
- option explicit
- Response.Expires = -1
- Server.ScriptTimeout = 600
- %>
- <!-- #include file="config.asp" -->
- <%
- 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
- %>
|