A cópia do código é a seguinte:
<%@idioma = vBScriptCodePage = 936%>
<%
'Pesquisa automática de arquivo em lote Substitua Inserir ver2.0
'Feiyun Writing, CSDN Conta: JSPadmin, QQ: 33323489
'Site pessoal http://www.pifoo.com Site chinês, bem -vindo ao Exchange Links. Este site fornece aplicativos e registro de blog gratuitos.
'Você pode usar ou modificar este código, mas mantenha as informações ou links de direitos autorais, obrigado por usá -lo!
'Se você tiver alguma dúvida ou sugestão, deixe -me uma mensagem http://www.pifoo.com/guestbook/
%>
<%
bakpath = solicitação ("bakpath")
delbak = server.mappath (bakpath)
setfso = createObject ("script.filesystemoBject")
Response.Write "O resultado da operação de exclusão é o seguinte:" & "<br>"
itera (Delbak)
FunctionIferate (caminho)
Dimfolder, pastas, arquivos, arquivo
setFolder = fso.getFolder (caminho)
setfiles = pasta.files
foreachfileinfiles
iffso.getexTextensionName (file.name) = "bak" então
Response.writefile.name & "foi excluído com sucesso! <br>" & file.path & "<br> <br>"
file.deletetrue
endif
próximo
SetFolders = pasta.subFolders
foreachfinfolders
iteratef.path
próximo
Função final
setfso = nada
%>
<ahref = "index.asp"> retornar à página inicial </a>