PHP＋DBM的同学录程序(1)_php基础

这个同学录原来给我们班级用的，因为服务器没有mysql支持，就选择了dbm
国内还没有什么dbm程序，国外也几乎没有
花了一个晚上，在几乎没有任何参考的情况下写了出来
现在公布出来
是一个非常好的dbm使用范例

1、index.php3

if($login){
?>

A {text-decoration: none; color: #336699; font-family: "宋体"; font-size: 9pt}
A:hover {text-decoration: underline; color: #FF0000; font-family: "宋体"; font-size: 9pt}  
body {font-family: "宋体", "serif"; font-size: 9pt} td {font-family: "宋体", "serif"; font-size: 9pt}
input {font-size: 9pt} p {font-size: 9pt}
br {font-size: 9pt}

tr {font-size: 9pt} table {font-size: 9pt} INPUT {    FONT-FAMILY: arial,宋体; FONT-SIZE: 9pt; PADDING-TOP: 3px }
INPUT.text {
    BACKGROUND-COLOR: #f0f0f0; BORDER-BOTTOM: #101010 1px solid; BORDER-LEFT: #101010 1px solid; BORDER-RIGHT: #101010 1px solid; BORDER-TOP: #101010 1px solid; COLOR: #000000

    
    
    
    
    
    
  

$dbm=dbmopen("class","r");
$key = dbmfirstkey($dbm);
while ($key) {
    $data=dbmfetch($dbm, $key);
    $info=explode("|!:!|",$data);
    echo "";
    $key = dbmnextkey($dbm, $key);
}
?>
    
    
  

姓名	NickName	OICQ	邮件地址	详细信息
$info[0]	$info[1]	$info[4]	$info[2]	点击查看
修改资料||修改密码||点击退出

} INPUT.file {     BACKGROUND-COLOR: #f0f0f0; BORDER-BOTTOM: #101010 1px solid; BORDER-LEFT: #101010 1px solid; BORDER-RIGHT: #101010 1px solid; BORDER-TOP: #101010 1px solid; COLOR: #000000 } SELECT {     BACKGROUND-COLOR: #f0f0f0; BORDER-BOTTOM: #101010 1px solid; BORDER-LEFT: #101010 1px solid; BORDER-RIGHT: #101010 1px solid; BORDER-TOP: #101010 1px solid; COLOR: #000000 } TEXTAREA {     BACKGROUND-COLOR: #f0f0f0; BORDER-BOTTOM: #101010 1px solid; BORDER-LEFT: #101010 1px solid; BORDER-RIGHT: #101010 1px solid; BORDER-TOP: #101010 1px solid; COLOR: #000000 } .stedit { font-size: 9pt; border-left: 1px solid #4a3163;   border-right: 1px solid #4a3163; border-top: 1px solid #4a3163;   border-bottom: 1px solid #000066 } .stbtm { background-color: #cococo; color: #000000; font-size: 9pt; height: 20px;   border-left: 1px solid #ffffff; border-right: 1px solid #665b8e;   border-top: 1px solid #ffffff; border-bottom: 1px solid #665b8e } .ddd {COLOR: #ffffff; FILTER: glow(color=black,strength=1); FONT-SIZE: 9pt; LINE-HEIGHT: 13pt; POSITION: relative; WIDTH: 100%} 深圳中学2000届高中（12）班同学录                                 $dbm=dbmopen("class","r"); $key = dbmfirstkey($dbm); while ($key) {     $data=dbmfetch($dbm, $key);     $info=explode("|!:!|",$data);     echo "";     $key = dbmnextkey($dbm, $key); } ?>            

姓名	NickName	OICQ	邮件地址	详细信息
$info[0]	$info[1]	$info[4]	$info[2]	点击查看
修改资料||修改密码||点击退出

Ex同学录v1.0版本程序制作：y10k

  欢迎访问：http://www.best4cn.com

}else header("location:login.php3");
?>

2、更改密码的changepwd.php3

require("common.php3");
if($submit){
$id=$login;
if($id==false)error("请登陆后再修改密码");
else{
  $data=dbmopen("password","w");
  $pass=dbmfetch($data,$login);
  if($password==$pass){
    if($password2==$password1){
      dbmreplace($data,$id,$password2);
      header("location:index.php3");
    }else error("您两次输入的密码不一样啊！");
  }else error("对不起，您输入的原来的密码错误，不能修改密码！");
}
}else{
?>


href="style.css" rel=stylesheet>

    
        
        
        

      color=#ffffff>