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

NO IMAGE

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);
?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>同學錄使用者修改資訊</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="style.css">
</HEAD><BODY bgcolor="#FFFFFF" topMargin=0>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"><BR>
<DIV align=center></DIV><CENTER><TBODY></TBODY></center>
  </TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="60%" align="center">
<TBODY> <TR vAlign=top>
    <TD bgColor=#000000 width="100%" height="336">  
      <DIV align=center>
        <TABLE border=0 cellPadding=4 cellSpacing=1 height=390 width=586>
          <TBODY>  
          <TR>  
            <TD align=middle bgColor=#2f5e8c colSpan=2 height=14 vAlign=top><form method="POST" action="modify.php3"> <FONT color=#ffffff>修改資訊-同學錄<?echo$login;?></FONT></TD>
          </TR>
          <tr>  
            <td align=middle bgcolor=#ffffff height=25 width=121>NickName: </td>
            <td align=left bgcolor=#ffffff height=25 width=486>  
              <input class=stedit maxlength=20 name=nickname size=23 value=<?echo$info[1];?>>
            </td>
          </tr>
          <TR>  
            <TD align=middle bgColor=#ffffff height=25 width=121>電子郵件: </TD>
            <TD align=left bgColor=#ffffff height=25 width=486>  
              <INPUT class=stedit maxLength=30 name=mail size=23 value=<?echo$info[2];?>>
              *必須填寫 </TD>
          </TR>
          <tr>  
            <td align=middle bgcolor=#ffffff height=25 width=121>您的OICQ: </td>
            <td align=left bgcolor=#ffffff height=25 width=486>  
              <input class=stedit maxlength=9 name=oicq size=23 value=<?echo$info[4];?>>
            </td>
          </tr>
          <tr>  
            <td align=middle bgcolor=#ffffff height=25 width=121>您的主頁: </td>
            <td align=left bgcolor=#ffffff height=25 width=486>  
              <input class=stedit maxlength=50 name=home size=23 value="<?echo$info[3];?>">
            </td>
          </tr>
          <tr>  
            <td align=middle bgcolor=#ffffff height=25 width=121>您的 ICQ: </td>
            <td align=left bgcolor=#ffffff height=25 width=486>  
              <input class=stedit maxlength=10 name=icq size=23 value=<?echo$info[5];?>>
            </td>
          </tr>
          <tr>  
            <td align=middle bgcolor=#ffffff height=25 width=121>您的名字: </td>
            <td align=left bgcolor=#ffffff height=25 width=486>  
              <input class=stedit maxlength=10 name=name size=23 value=<?echo$info[0];?>>
              *必須填寫 </td>
          </tr>
          <tr>  
            <td align=middle bgcolor=#ffffff height=25 width=121>您的電話: </td>
            <td align=left bgcolor=#ffffff height=25 width=486>  
              <input class=stedit maxlength=20 name=tel size=23 value=<?echo$info[7];?>>
            </td>
          </tr>
          <tr>  
            <td align=middle bgcolor=#ffffff height=25 width=121>出生日期: </td>
            <td align=left bgcolor=#ffffff height=25 width=486>  
              <input class=stedit maxlength=11 name=birth size=23 value=<?echo$info[8];?>>
              *類似2000-10-10 </td>
          </tr>
          <tr>  
            <td align=middle bgcolor=#ffffff height=25 width=121>聯絡地址: </td>
            <td align=left bgcolor=#ffffff height=25 width=486>  
              <input class=stedit maxlength=50 name=add size=23 value=<?echo$info[6];?>>
            </td>
          </tr>
          <tr>  
            <td align=middle bgcolor=#ffffff height=25 width=121>您的職業: </td>
            <td align=left bgcolor=#ffffff height=25 width=486>  
              <select name="job">
                <option value="學 生">學 生</option>
                <option value="老 師">老 師</option>
                <option value="其 他">其 他</option>
              </select>
            </td>
          </tr>
          <tr>  
            <td align=middle bgcolor=#ffffff height=25 width=121>您的性別: </td>
            <td align=left bgcolor=#ffffff height=25 width=486>  
              <select name="sex">
                <option value="俊  男">俊  男</option>
                <option value="靚  女">靚  女</option>
                <option value="其  他">其  他</option>
              </select>
            </td>
          </tr>
          <tr>  
            <td align=middle bgcolor=#ffffff height=25 width=121>個人簡介: </td>
            <td align=left bgcolor=#ffffff height=25 width=486>  
              <textarea class="stedit" name="intro" cols="40" rows="4"><?echo$info[10];?></textarea>
            </td>
          </tr>
          <TR bgColor=#ffedc8>  
            <TD bgColor=#ffffff colSpan=2>  
              <div align="center">  
                <input type="submit" name="submit" value="確認修改" class="stbtm">
                  
                <input type="reset" name="reset" value="重置資訊" class="stbtm">
              </div></form>
            </TD>
          </TR>
          </TBODY>  
        </TABLE>
      </DIV></TR></TBODY></TABLE><BR><TR><TD></TD></TR>
</BODY>
</HTML>
<?
}
?>