Die Codekopie lautet wie folgt:
<%@Sprache = vbScriptCodePage = 936%>
<%
'Batch -Datei Automatische Suche Ersetzen Sie einfügen ver2.0 einfügen
'Feiyun Writing, CSDN Account: Jspadmin, QQ: 33323489
'Persönliche Website http://www.pifoo.com Chinesische Website, Willkommen zum Austausch von Links. Diese Website bietet kostenlose Blog -Anwendung und -registrierung.
„Sie können diesen Code verwenden oder ändern, aber bitte behalten Sie die Copyright -Informationen oder -Links bei, danke, dass Sie ihn verwendet haben!
„Wenn Sie Fragen oder Vorschläge haben, hinterlassen Sie mir bitte eine Nachricht http://www.pifoo.com/guestbook/
%>
<%
BakPath = Anfrage ("BakPath")
Delbak = Server.Mappath (BakPath)
setfso = createObject ("scripting.filesystemObject")
Antwort.Write "Löschungsbedienerergebnis lautet wie folgt:" & "<br>"
iterieren (Delbak)
Funktionsteuerung (Pfad)
DimFolder, Ordner, Dateien, Datei
setFolder = fso.getFolder (Pfad)
setFiles = order.files
foreachFileInfiles
IFFSO.GETEXTEXTAInNAME (Datei.name) = "Bak" dann
response.writeFile.name & "wurde erfolgreich gelöscht! <br>" & file.path & "<br> <br>"
Datei.deletetrue
Endif
nächste
setFolders = ordner.subfolders
foreachfinfolders
ITERATEF.PATH
nächste
Endfunktion
setfso = nichts
%>
<Ahref = "index.asp"> zur Homepage zurückkehren </a>