$cnStr="provider=microsoft.jet.oledb.4.0;data source=".realpath("db.mdb");
$cn;
function OpenDB()
{
 global $cn,$cnStr;
 $cn=new COM("adodb.connection");
 $cn->open($cnStr);
}

function CloseDB()
{
 global $cn;
 $cn->close();
 $cn=null;
}

$result=false;
$rs=$cn->execute("select id from [user] where username='".str_replace("'","''",$name)."'");
if($rs->eof ||$rs->bof||(int)$rs->fields[0].value==(int)$id)$result=true;
//和asp的游标差不多，也可以使用 $rs[0]这样来获取，注意asp是rs(0)
$rs->close();$rs=null;
return $result;

$sql="select * from [user] where 1=2";
if($ac=="up")$sql.=" or id=".$id;
$rs=new COM("adodb.recordset");
OpenDB();
if(!CKNameExist($cn,$un,$id)){//检查用户名是否已经存在
echo "<script>alert('该用户名已经存在，请另外输入新的用户名！');history.back();</script>";
CloseDB();
die();
}
$rs->open($sql,$cn,1,3,1);
if($ac=="add")$rs->AddNew();
elseif($rs->eof || $rs->bof){
$rs->close();$rs=null;CloseDB();
echo "<script>alert('该用户信息不存在！');history.back();</script>";
die();
}
$rs[1]=$un;
$rs[2]=$pw;
$rs->Update();
$rs->close();$rs=null;
CloseDB();

OpenDB();
$cn->execute("delete from [user] where id=".$id);
CloseDB();