", $note); $note = str_replace ("\n","
", $note); $note = stripslashes($note); $taiwan = stripslashes($taiwan); $nickname = str_replace ("∥","│", $nickname); $nickname = stripslashes($nickname); $email = str_replace ("∥","│", $email); $main = $nickname."∥".$email."∥".$t."∥".$note."∥".$from_addr."\n"; $f = fopen("guest.dat","a"); fwrite($f,$main); fclose($f); } // end of function guestsave() ******* $perPage = 20; #設定分頁, 每頁幾筆留言 if (empty($number)) { $number = $perPage; } ?>

線上討論

留言太短了，請勿灌水！"; $err = true; } if (!ereg("^.+@.+\..+$",$email)) { echo "
請填寫您的電子信箱！
"; $err = true; } if (strlen($nickname)<4) { echo "
請別忘了填您的名子喔！
"; $err = true; } if (!$err) { guestsave(); $nickname=""; $email=""; $note=""; $submit=""; } } $lines=file("guest.dat"); $count= count($lines); ?>
您的名字:
電子信箱:
留言內容:

現有 筆， 筆
= ($number-$perPage) && $i < $number) { echo "
"; list($username,$taiwan,$email,$date,$mess,$rip)=explode("∥",$line[$i]); if ($email) { $username="$username"; } if ($rip) { $rip = chop($rip); $rip=" From [$rip]"; } if ($mess) { echo "($taiwan) $username 說： ($date) $rip
\n"; echo "$mess"; echo "\n"; } } } if ($count > $perPage) echo "
"; ?>
($num-($perPage))) { if($perPage < $count){ if(($number-($perPage-1)) == $y && $number == $num){ echo "[$y 筆至 $num 筆] "; } else { echo "[$y 筆至 $num 筆]\n"; } } $num+=$perPage; $y+=$perPage; } echo "

"; echo "回上衣層";?>