change peerDB
| From: | pakino | Date: | Fri, 30 Apr 2004 06:35:18 +0000 |
| Subject: | change peerDB | ||
| Groups: | php.pear.general | ||
| Request: | Send a blank email to pear-general+get-12240@lists.php.net to get a copy of this message | ||
hi...
this is php3 coding..
how about change peerDB code?
i don't know what it uses procedure in peerDB..
<?php
/*
// login procedure
CREATE OR REPLACE PROCEDURE CJMAIN.CheckLogin
(mem_id in varchar2,mem_pass in varchar2,err_Code out varchar2)
IS
tmp_id varchar2(20);
tmp_name varchar2(20);
tmp_email varchar2(50);
BEGIN
SELECT id,user_name,email
INTO tmp_id,tmp_name,tmp_email
FROM cjmember
WHERE id = mem_id;
err_Code := 0;
IF SQL%FOUND THEN
BEGIN
SELECT id,user_name,email
INTO tmp_id,tmp_name,tmp_email
FROM cjmember
WHERE id = mem_id AND passwd = mem_pass;
EXCEPTION
WHEN OTHERS THEN
err_Code := -2;
END;
END IF;
EXCEPTION
WHEN no_data_found THEN
err_Code := -1;
WHEN OTHERS THEN
err_Code := -1;
END;
*/
?>
<form action="<?=$PHP_SELF?>">
<input type="hidden" name="aa" value="aa">
<input type="text" name="memid" size="14">
<input type="password" name="mempass" size="14">
<input type="submit">
<form>
<BR>
<?php
IF ($aa=='aa') {
$conn = OCILogon(test,test,test);
$sql = "BEGIN CheckLogin(:mem_id,:mem_pass,:err_Code); END;";
$stmt = OCIParse($conn, $sql);
OCIBindByName($stmt,":mem_id",$memid,25);
OCIBindByName($stmt,":mem_pass",$mempass,25);
OCIBindByName($stmt,":err_Code",$err_Code,25);
OCIExecute($stmt);
IF ($err_Code==0) {
echo "
<script>
alert('ok');
location.replace('$PHP_SELF');
</script>
";
} ELSE IF ($err_Code==-1){
echo "
<script>
alert('errNo : '+$err_Code+'\\n No id');
location.replace('$PHP_SELF');
</script>
";
} ELSE IF ($err_Code==-2) {
echo "
<script>
alert('errNo : '+$err_Code+'\\n Wrong password'');
location.replace('$PHP_SELF');
</script>
";
}
}
?>