<%
set fso=Server.CreateObject("scripting.filesystemobject")
path=server.MapPath("../6531tupianjia/dianpu/")
if fso.FolderExists(path)then
    Set theFolder=fso.GetFolder(path)
   For Each theFile In theFolder.Files
if path&rsdp("tupian")<>path&theFile.name
fso.DeleteFile path&theFile.name
end if
next
end if
set fso=Nothing
%>

[ 本帖最后由 wangjy500 于 2010-9-4 20:45 编辑 ]