초보인데요 잘 모르겠어요

회원가입

출석체크

마이페이지

CGIMALL

jquery , CSS , PHP , Javascript , 무료폰트 , ASP

홈 > 커뮤니티 > 질문과답변 상세보기

클라우드태그

Javascript

PHP

HTML

ASP

mysql

css

Mobile

jquery

image

slide

占쌨댐옙

占쏙옙占쏙옙占쏙옙트

메뉴

현재접속자 명

109

910

2000-06-29 10:23:47

닉네임

Anonymous

이메일

제목

초보인데요 잘 모르겠어요

내용

오라클 DB연동해서 데이타 검색인데요. 관리자메뉴 만드는 중입니다.
insert하고 delete는 제대로 되는데 update가 잘 되지 않는군요. 아래에 소스가 있으니 보시고 답변좀 부탁합니다.좀 급하거든요.
test.cgi
#!/usr/local/bin/perl
#환경변수값을 설정한다. nobody로 접근하는 사용자들에게 꼭 필요한 변수이다.
$ENV{
ORACLE_HOME
} = "/oracle/app/oracle/product/7.3.4";
$ENV{
NLS_LANG
} = "American_America.KO16KSC5601";
require "cgi-lib.pl";
require "teria-lib.pl";
&ReadParse;
$memnum=$in{
memnum
};
$nhanja=$in{
nhanja
};
$nhangu=$in{
nhangu
};
$curjob=$in{
curjob
};
$curoll=$in{
curoll
};
$prejob=$in{
prejob
};
$prroll=$in{
prroll
};
$birthd=$in{
birthd
};
$birthp=$in{
birthp
};
$memadd=$in{
memadd
};
$memtel=$in{
memtel
};
$offtel=$in{
offtel
};
$cacade=$in{
cacade
};
$carrel=$in{
carrel
};
$memcert=$in{
memcert
};
$membook=$in{
membook
};
$defSQL = "select * from ROLLBOOK_TBL where memnum = ".$memnum;
#DBI 를 사용하여 DB Connection 을 한다.
use DBI;
$drh = DBI->install_driver(
Oracle
);
die unless $drh;
$dbh = $drh->connect(
DB
,
user
,
pwd
);
die unless $dbh;
$dbh->{LongReadLen} = 16384;
$cursor = $dbh->prepare($defSQL);
$cursor->execute;
$dbh->disconnect;
print "Content-type:text/html

";
while(($memnum,$nhanja,$nhangu,$nemail,$curjob,$curoll,$prejob,$prroll,$birthd,$birthp,$memadd,$memtel,$offtel,$cacade,$carrel,$memcert,$membook)=$cursor->fetchrow){
print <

EndOfHtml
}

아래는 form문을 받은 upok.cgi입니다.
#!/usr/local/bin/perl

#환경변수값을 설정한다. nobody로 접근하는 사용자들에게 꼭 필요한 변수이다.
$ENV{
ORACLE_HOME
} = "/oracle/app/oracle/product/7.3.4";
$ENV{
NLS_LANG
} = "American_America.KO16KSC5601";

require "cgi-lib.pl";
require "teria-lib.pl";

&ReadParse;

#DBI 를 사용하여 DB Connection 을 한다.
use DBI;
$drh = DBI->install_driver(
Oracle
);
die unless $drh;
$dbh = $drh->connect(
DB
,
user
,
pwd
);
die unless $dbh;

$dbh->{LongReadLen} = 16384;

$memnum=$in{
memnum
};
$nhanja=$in{
nhanja
};
$nhangu=$in{
nhangu
};
$curjob=$in{
curjob
};
$curoll=$in{
curoll
};
$prejob=$in{
prejob
};
$prroll=$in{
prroll
};
$birthd=$in{
birthd
};
$birthp=$in{
birthp
};
$memadd=$in{
memadd
};
$memtel=$in{
memtel
};
$offtel=$in{
offtel
};
$cacade=$in{
cacade
};
$carrel=$in{
carrel
};
$memcert=$in{
memcert
};
$membook=$in{
membook
};
$upSQL = "update ROLLBOOK_TBL set nhanja=".$nhanja.",nhangu=".$nhangu.",curjob=".$curjob.",curoll=".$curoll.",prejob=".$prejob.",prroll=".$prroll.",birthd=".$birthd.",birthp=".$birthp.",memadd=".$memadd.",memtel=".$memtel.",offtel=".$offtel.",cacade=".$cacade.",carrel=".$carrel.",memcert=".$memcert.",membook=".$membook." where memnum=".$memnum;
$cursor = $dbh->prepare($upSQL);
$cursor->execute;
$dbh->disconnect;

이전게시글 우악.. 머르거똬...!

2000-06-29 09:25:24


	다음게시글 쉘스크립트	2000-06-29 14:54:32