<%
'Created by shatan Jan 8
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("filename")<>"" then
objFSO.DeleteFile(Server.MapPath("uploadimages\"&request("filename")))
end if
Set uploadFolder=objFSO.GetFolder(Server.MapPath("uploadimages\"))
Set uploadFiles=uploadFolder.Files
For Each Upname In uploadFiles
upfilename="upload/"&upname.name
response.write ""&upfilename&"删除 "
next
set uploadFolder=nothing
set uploadFiles=nothing
%>