PHP＋DBM的同學錄程式(3)

6、登出檔案logout.PHP3
<?
setcookie("login",false,time()+31536000);
header("location:login.PHP3");
?>

7、修改資訊檔modify.PHP3
<?
require("common.PHP3");
$id=$login;
if($submit){
  if($name=="")error("請填寫您的名字！");
  elseif($mail=="")error("請填寫您的郵件地址！");
  else{
    $DBM=DBMopen("class","w");
    $intro=nl2br($intro);
    $data="$name|!:!|$nickname|!:!|$mail|!:!|$home|!:!|$oicq|!:!|$icq|!:!|$add|!:!|$tel|!:!|$birth|!:!|$job|!:!|$intro|!:!|$sex";
    DBMreplace($DBM,$id,$data);
    DBMclose($DBM);
    header("Location:index.PHP3");
  }
}else{
        $DBM=DBMopen("class","r");
        $data=DBMfetch($DBM,$login);
    $info=explode("|!:!|",$data);
    DBMclose($DBM);
?