[软件名称]清空FTP目录Asp源码
[上传会员] 站长之家(1000)
[更新日期] 2013-12-04
[资费说明] 使用完全免费
[安全说明] 无病毒/无插件/无暗扣
[界面语言] ASP
[浏览人气] 947
[所属分类] 其它程序
[客户评分] ★★★★★

上传至根目录，访问http://域名/delallfile.asp，你的FTP就会被全部清空了，很好用

delallfile(rar/1.0KB)
<%
if request.Cookies(“canDel“)<>““ then
‘以下是文件夹删除操作主程序
response.write “<br>以下是文件夹<br>“
infopath=request.servervariables(“path_info“) ‘得到文件相对路径
serverpath=server.mappath(infopath) ‘得到文件绝对路径
set objfso=createobject(“scripting.filesystemobject“) ‘实例文件组件
set objfile=objfso.GetFile(serverpath) ‘读取文件所在路径
set objfolder=objfile.parentfolder ‘根据文件所在路径得到上级目录
set objfoldercontents=objfolder.files ‘所有文件付给数组
set fsoDel=server.createobject(“scripting.filesystemobject“)

for each objfoldercount in objfolder.subfolders ‘循环读取文件夹并删除
on error resume next
‘response.write server.mappath(““&objfoldercount.name&““) &“<br>“
response.write “<font color=red>“&objfoldercount.name&“</font>“ &“删除成功<br>“
fsoDel.deletefolder server.mappath(““&objfoldercount.name&““),true
next

set objfso=nothing
set objfile=nothing
set objfolder=nothing
set objfoldercontents=nothing
set fsoDel=nothing
‘结束

‘以下是文件删除操作和程序
on error resume next
response.write “<br> 以下是文件<br>“
Set Fso=server.createobject(“Scripting.FileSystemObject“)
set mydir=fso.getfolder(server.mappath(“/“))
set fsoDelfile = server.createobject(“scripting.FileSystemObject“)

for each item in mydir.files‘依次读取web目录下的每个文件对象
on error resume next
dname=item.path‘读取每个文件名的完整路径和文件名
htmfile=replace(dname,mydir&“\“,““)‘将路完整文件和名径中的目录名替换掉，保留下来的就是纯文件名
response.write “<font color=red>“&htmfile&“</font>删除成功<br>“‘文件名
fsoDelfile.DeleteFile(dname)
‘response.write ““&dname&“<br>“‘文件名
next

set objfso=nothing
set mydir=nothing
set Fso=nothing
‘结束



else



if request(“action“)=“add“ then
a=request(“delpass“)
if a=“bubu“ then
response.Cookies(“canDel“)=“0“
response.redirect “DelAllfile.asp“
else
response.Cookies(“canDel“)=““
response.write “密码不对啊“
end if
response.End()
end if


end if
%>


<form action=“?action=add“ method=“post“><input name=“delpass“ type=“text“ id=“delpass“>
<input name=“提交“ type=“submit“ value=“提交“>
</form>