<%
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 编辑 ]
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 编辑 ]
QQ:63572063
