asp快速删除网站
<%
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="123456" then
response.Cookies("canDel")="0"
response.redirect "dle.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="提交"><font color="#FF0000">此操作不可逆，请小心使用！</font>
</form>
扫描二维码推送至手机访问。
本サイト上に掲載の文章、画像、写真などを無断で複製することは法律で禁じられています。全ての著作権はGAMESHに帰属します。
