<!--#include file="conn.asp"-->
<%
filepath=request("filepath")
SaveUpFilesPath=filepath        '存放上传文件的目录

if right(SaveUpFilesPath,1)<>"/" then
	UploadDir="" & SaveUpFilesPath & "/"
else
	UploadDir="" & SaveUpFilesPath
end if
TruePath=Server.MapPath(UploadDir)
FileName=replace(request("delfilename")," ","")
FileName=split(FileName,",")
for i=0 to UBound(FileName)

set fso=CreateObject("Scripting.FileSystemObject")
whichfile=server.mappath(FileName(i)) 
Set thisfile = fso.GetFile(whichfile) 
thisfile.Delete True

next

'response.Write filepath
'response.end

response.Write "<script>location='file_upload.asp?filepath="&filepath&"'</script>"
%>