<?

 //การเขียนไฟล์ต้องระบุโหมดที่ไม่ใช่ r

$filename = "NewFile.txt";

$filenum = fopen($filename, "w");

$mystr = "ทดสอบการเขียนไฟล์";

for ($i=1; $i<=3; $i++) {

fputs($filenum, $mystr . " ครั้งที่ $i<br>\n");

}

fclose($filenum); //ปิดไฟล์

$filenum = fopen($filename, "r"); //เปิดไฟล์ขึ้นมาอีกครั้ง

fpassthru($filenum); //ส่งเนื้อหาของไฟล์ไปยังบราวเซอร์

?>