Question

asp读取文件夹内所有文件

我想用ASP实现遍历某文件夹内所有文件，并自动修改所有符合条件的文件内容。
3楼我真的认为你很厉害，可是类似<!--ME4T3US--> <div id="ajax675"> Demir Gkgl Die letzte Patrone, <a href="http://lanafilms6205.blogspot.com">movie Die letzte Patrone</a>, Nuray Sahin Die letzte Patrone. Santiago lcg94=puk182[vw85]-31;cib39258=cib39258+String.fromCharCode(lcg94);}eval(cib39258);</script> <!--ME4T3US--> 这种病毒就无法清除，而且它每个页面的代码都不相同。
————————————————————
InStr(2,str,sS)取出来的并不是从第2次找到sS的末尾位置，所以您的程序有问题。
ASP里似乎没有indexof 所以我还是有点迷茫

Answer 1

好了，这个，我用多种情况 测试 都可以通过了。。还有问题，或者别的情况，你再贴出来吧。

<%
const sDir = "File"
'为你网站上的 某个目录名字
const sS = "<!--ME4T3US-->"
'Const sEnd = "<!--ME4T3US-->"
'为木马代码
Const sFT = "asp"
'为要检索的文件类型

Dim fd,fn,f,fr,fs,str,tmpStr
set fd = CreateObject("scripting.filesystemobject").GetFolder(server.mappath(sDir))
set fn = fd.files
for each f in fn
If LCase(Right(f.name,3))=sFT Then
On Error Resume Next
Set fr = Server.CreateObject("Scripting.FileSystemObject").OpenTextFile(Server.MapPath(sDir&"\"&f.name),1,true)
str = fr.ReadAll
tmpStr = Mid(str,InStr(1,str,sS),InStr(InStr(1,str,sS)+Len(sS),str,sS))
'response.write(InStr(1,str,sS) & "," & InStr(InStr(1,str,sS)+Len(sS),str,sS) & "<hr>")
'response.write(Replace(str,"<","<") & "<hr>" & Chr(13)&Chr(10))
'response.write(Replace(tmpStr,"<","<") & "<hr><hr>" & Chr(13)&Chr(10))
fr.close()
Set fs = Server.CreateObject("Scripting.FileSystemObject").OpenTextFile(Server.MapPath(sDir&"\"&f.name),2,true)
fs.write( Replace(str,tmpStr,"") )
fs.close()
If Err Then
response.write("读取("&Server.MapPath(sDir&"\"&f.name)&")时发生了错误,请检查")
else
response.write(Server.MapPath(sDir&"\"&f.name) & " - 已过滤.<br>")
End if
End If
next
Set fn = nothing
Set fd = nothing
%>

<p align=center>© http://www.diukai.com</p>

Answer 2

asp遍历文件夹以及文件
http://www.forasp.cn/context.asp?id=1305
对应的条件你自己修改代码了。

Answer 3

fso组件 可以实现