fputs覆盖第一行是csv

Question

这是我写入CSV的代码。我的问题是它覆盖了我的csv文件的顶行。有什么方法可以做到这一点吗？我想将新数据添加到csv的开头，而不会覆盖已存在的任何内容。

    // Send Routine 
    $filename="contact.csv";
    $datfile=fopen($filename, 'r+');
            spamcheck($EReply);     
            $ESubject=$Subject;

//          $EMessage = $MsgHeader;
            $EMessage = "Form Submission:\r\n";
            for(reset($FormField); $key=key($FormField); next($FormField)) {
                spamcheck($FormField[$key]);
                $EMessage .= $key.": ".$FormField[$key];
//              $EMessage .= "<br><br>\r\n";
                $EMessage .= "\r\n";
                $datachunk="\"".$FormField[$key]."\",";
                fputs($datfile, $datachunk);
            }
    fputs($datfile, "\r\n");
    fclose($datfile);