GAMESH

游戏美术动画unity资源搬运工!

剧情党,完美控!
桐崎千棘
当前位置:首页 > 学习 > 正文内容

asp快速删除网站

admin7年前 (2015-08-02)学习7740

<%

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に帰属します。

本文链接:https://pylblog.com/post/30.html

标签: ASP
分享给朋友:

相关文章

PHP利用经纬度精确拦截某个区域的访问

PHP利用经纬度精确拦截某个区域的访问

利用百度提供的ip定位可以得到访问者的一个大概的地理位置一般可以精确到某个区,在返回的json可以得到访问者的地理位置,如果你需要禁止某个地区的访客可以根据json的地理位置关键词区做一个匹配,这样是...

全国大学生益智节目题库

全国大学生益智节目题库

一分钟快问快答:清华大学一:人被生锈的钢钉扎破脚后,注射破伤风抗毒素即可避免破伤风,这属于什么免疫?(人工被动免疫)二:2011 年 4 月 12 日发生的福岛核电站事故被定为几级事故?(7 级)三:...

MySQL使用字段名for无法写入数据

MySQL使用字段名for无法写入数据

$sql="INSERT INTO count (year,month,day,time,get,referrer,for,ip,country,province,city,district...

为何欧美手游普遍能长存

为何欧美手游普遍能长存

主要的客观原因是国外人力成本高,换皮没那么容易,所以得一切都设计好再做;单纯的讨论产品意义不大,得在产品制造流程和制度的立足点找问题。产品的三要素是时间人力加财力,这和管理水平很有关系,国内管理水平和...

unity3d模型导入动画变形

unity3d模型导入动画变形

 unity3d中遇到模型导入出现变形问题,从max导出fbx文件放到unity里面出现角色缩成一团,之前由于绑定时没注意max的场景尺寸,所以缩放过场景由于只更改了skin文件,所以后面骨...

Global Game Jam 2016

Global Game Jam 2016

Global Game Jam 是一个独立游戏开发者的盛会,在这之前我并不知道有这个活动!但是现在我知道了。Global GameJam是全球最大的游戏创作活动,2015年的GGJ活动在全球...

发表评论

访客

看不清,换一张

QQ登录
◎欢迎参与讨论,请在这里发表您的看法和观点。