del_img.asp

购物系统(本版为正式商业版

<!--#include file="../conn2.asp" -->
<!--#include file="set.asp"-->
<%
     Dim FSO,filepath,photofile,file
	 photofile=request("photofile")
	 FileNameList=split(request("photo"))
     filepath=server.mappath(photofile)

    for i=0 to ubound(FileNameList)
	FileName=replace(FileNameList(i),",","")
	 on error resume next
     Set FSO = CreateObject("Scripting.FileSystemObject")
       Set file = FSO.GetFile(""&filepath&"\"&FileName&"")
	   file.delete
   next
   response.redirect""&request("url")&""
%>