고수님...방명록소스인데...에러납니다..수정에관한조언좀요..

회원가입

출석체크

마이페이지

CGIMALL

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

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

클라우드태그

Javascript

PHP

asp

CSS

HTML

mysql

jquery

image

Mobile

API

slide

게시판

메뉴

현재접속자 명

164

1,135

2002-04-16 15:12:00

F_O_R_M1

} ###while의 끝 부분

print ;

print <<"F_O_R_M2";

F_O_R_M2

$sth->finish;
}

sub rewrite{

### ####
### 답변이 있는 것을 표시 하기위해.... ####
### ####

$dbh = DBI->connect('DBI:ODBC:order_id_ord','sa','') || die $DBI::errstr;
$sth = $dbh->repare( q{SELECT pno,code_num,uname,email,titlename,textbody,ansonoff,dates,hits FROM list1 where
code_num = ?});
$sth ->execute($anstemp1);
while(($pnos,$codes,$uname,$email,$title,$text1,$onoff,$dates,$hits) = $sth->fetchrow_array){
$temp1=$pnos;
$temp2=$codes;
$temp3=$uname;
$temp4=$email;
$temp5=$title;
$temp6=$text1;
$temp7=$onoff;
$temp8=$dates;
$temp9=$hits;
}
$sth->finish;

&checkdb1;

$dbh = DBI->connect('DBI:ODBC:order_id_ord','sa','') || die $DBI::errstr;
$intosql = $dbh -> prepare(q{INSERT into ans1(pno,code_num,uname,email,titlename,textbody1,textbody2,dates,hits) values
(?,?,?,?,?,?,?,?,?)});
$intosql -> execute($pnos,$temp2,$uname2,$email2,$temp5,$temp6,$anstemp2,$temp8,$temp9);
$intosql->finish;

###################################여기까지가.. 저장.. 자료....#######

##### update하는 곳........

$onoff=on;
$dbh = DBI->connect('DBI:ODBC:order_id_ord','sa','') || die $DBI::errstr;
$sth = $dbh->prepare( q{update list1 set ansonoff=? where code_num =?});
$sth ->execute($onoff,$anstemp1);

$sth->finish;

}

#!c:/perl/bin/perl.exe
require "c:\\iis\\wwwroot\\config\\cgi-lib.pl";
&ReadParse(*in);
use DBI;

print "Content-type: text/html\n\n";

$uname2= 운영자; ##관리자 정보(고정 답변인)
$email2=master\@dasanchain.com;

$temple=$in{codeno2};
$anstemp1=$in{codenogo};
$anstemp2=$in{textans};
$e=$in{lastnum}; ##lastnum을 확인 해주는 함수

if($temple eq c){
&rewrite;
}

$pages=20; #페이지 지정
$adder=0;

$pagepage=$in{gopage};

&title_form;
&checkdb;
&paging;

$user=$in{names};
$email=$in{email};
$title=$in{title};
$text=$in{text};
$check2=$in{check};

$j=0;

if ($check2 eq ok){

$j=0;
if ($user eq ""){
$temp="이름을 넣지 않으셨군요!!";
$j=$j+1;
}
if ($email eq ""){
$email=space;
}
if ($title eq ""){
$temp1="제목을 넣어 주세요!!";
$j=$j+1;
}
if ($text eq ""){
$temp2="내용을 넣어 주세요!!";
$j=$j+1;
}
if ($j > 0 ){
&error_form;
}else{
&write_form;
}
}

if ($j eq 0){

&list_form;
}
exit;

sub title_form{
print << "H_E_A_D";

Welcome to dasan

닉네임

Anonymous

이메일

제목

고수님...방명록소스인데...에러납니다..수정에관한조언좀요..

내용

CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:

Unrecognized character \277 at C:\iis\wwwroot\guest\list.pl line 10.

----------------------위와같은 에러가 발생합니다-------------

밑에는 소스인데....리스트를 보여주는 내용의 list.pl파일입니다

문법에 이상이 있는건지요??? 알려주세요..

-------------------------< 소 스 >--------------------------
#!c:/perl/bin/perl.exe
require "c:\\iis\\wwwroot\\config\\cgi-lib.pl";
&ReadParse(*in);
use DBI;

print "Content-type: text/html\n\n";

$uname2= 운영자; ##관리자 정보(고정 답변인)
$email2=master\@dasanchain.com;

$temple=$in{codeno2};
$anstemp1=$in{codenogo};
$anstemp2=$in{textans};
$e=$in{lastnum}; ##lastnum을 확인 해주는 함수

if($temple eq c){
&rewrite;
}

$pages=20; #페이지 지정
$adder=0;

$pagepage=$in{gopage};

&title_form;
&checkdb;
&paging;

$user=$in{names};
$email=$in{email};
$title=$in{title};
$text=$in{text};
$check2=$in{check};

$j=0;

if ($check2 eq ok){

$j=0;
if ($user eq ""){
$temp="이름을 넣지 않으셨군요!!";
$j=$j+1;
}
if ($email eq ""){
$email=space;
}
if ($title eq ""){
$temp1="제목을 넣어 주세요!!";
$j=$j+1;
}
if ($text eq ""){
$temp2="내용을 넣어 주세요!!";
$j=$j+1;
}
if ($j > 0 ){
&error_form;
}else{
&write_form;
}
}

if ($j eq 0){

&list_form;
}
exit;

sub title_form{
print << "H_E_A_D";

Welcome to dasan

align=center>

H_E_A_D
}
sub error_form{
print <<" B_O_X";


	B_O_X print; print $temp; print ; print ; print ; print $temp1; print ; print ; print ; print $temp2; print ; print ; print	; print
	; print
	; print	; print ""; print	; print
; print << "B_O_X1"

B_O_X1
}

sub checkdb{
###
### 디비를 체크해서..순번 넣기....일련번호 가장 높은거 추출
###
$dbh = DBI-> connect('DBI:ODBC:order_id_ord','sa','') || die $DBI::errstr;
$sth = $dbh->prepare( q{SELECT MAX(pno) FROM list1 });
$sth ->execute;

while(($pno) = $sth->fetchrow_array){
$pagecount=$pno;
$pno=$pno+1;
$pnos=$pno;
}
$sth->finish;

}
sub checkdb1{
###
### 디비를 체크해서..순번 넣기....일련번호 가장 높은거 추출
###
$dbh = DBI->connect('DBI:ODBC:order_id_ord','sa','') || die $DBI::errstr;
$sth = $dbh->prepare( q{SELECT MAX(pno) FROM ans1 });
$sth ->execute;

while(($pno) = $sth->fetchrow_array){
$pagecount=$pno;
$pno=$pno+1;
$pnos=$pno;
}
$sth->finish;

}

sub write_form{
&checkdb;
&get_date;
$codes=$pnos-$date; #코드 변수....

$onoff=off;
$hits=0;
$dbh = DBI->connect('DBI:ODBC:order_id_ord','sa','') || die $DBI::errstr;
$sth = $dbh->prepare( q{SELECT hits FROM list1 WHERE code_num=?});
$sth ->execute($codeno);

while(($hit) = $sth->fetchrow_array){
$hits = $hit;
}
$hits =$hits + 1;
$sth->finish;

$dbh = DBI->connect('DBI:ODBC:order_id_ord','sa','') || die $DBI::errstr;
$intosql = $dbh -> prepare(q{INSERT into list1(pno,code_num,uname,email,titlename,textbody,ansonoff,dates,hits) values
(?,?,?,?,?,?,?,?,?)});
$intosql -> execute($pnos,$codes,$user,$email,$title,$text,$onoff,$date2,$hits);
$intosql->finish;
}

sub get_date
{
local( $sec, $min, $hour, $monthofday, $month, $year, $wday, $day, $isdst ) = localtime( time );

$month = ($month+1);
$year = ($year+1900);
$date = $month$monthofday$hour$min$sec;
$date2 = $year/$month/$monthofday;
return $date,$date2;
}

sub list_form {

print <<" H_E_A_D1";

총 페이지수 : $nowpage/$page H_E_A_D1 print <<" H_E_A_D2";
No	subject	name	date	comment	count
H_E_A_D2 &checkdb; &get_date; if ($pagecount >= 1){ &listoutput; }else{ print
; print	입력된 자료가 없습니다!					; print
; print
; print	onclick="/ifcheck(this.form);">					; print
; } print << "t_a_i_l"

t_a_i_l
}

sub paging {
###
### 페이지 수 구하는 함수 ###
###

$fullpage = $pagecount / $pages;
$adder = $pagecount % $pages;

if ($adder eq 0){
$pagetemp=$fullpage;
}else{
$pagetemp=$fullpage+1;
}
$page=int($pagetemp);

if ($pagepage eq ""){
$nowpage=1;
}else{
$nowpage=$pagepage;
}

}

sub listoutput {
### 페이지 별 출력 해주는 부분...
&checkdb;

################################마지막 번호
if ($nowpage eq 1){
$e = $pagecount - ( $pages -1);
# $s=$pagecount;
}else{
$tempx = $pagecount - ($nowpage * $pages);
$e= $tempx +1;

# $s=$e -1;
#pagecount - ($nowpage * $pages) ; # 출력 해주는 마지막 부분... 연산
## 마지막 번호가 $e가 된다...마지막 번호에서.. 1을 빼면.. 시작 번호
### 버그가 되는 원인... 시작 번호 구별시.. 막지막 번호로 연산 하면.. 안됨....
}

############################

################################ 출력 해주는 시작 번호 부분 연산
$q=$e + ($pages - 1);

if ($q < 1){
$s = 1;
}else{

$s=$q;
}
#################################

$dbh = DBI->connect('DBI:ODBC:order_id_ord','sa','') || die $DBI::errstr;
$sth = $dbh->prepare( q{SELECT pno,code_num,uname,email,titlename,textbody,ansonoff,dates FROM list1 where pno <= ?
and pno >= ? order by pno DESC});
$sth ->execute($s,$e);
###
### $s 와 $e는 음....시작과 끝페이지.. 확인 시켜 주는거...
###

while(($pnos,$codes,$uname,$email,$title,$text,$onoff,$dates) = $sth->fetchrow_array){

print <<" F_O_R_M";

$pnos

href=showlist.pl?codeno=$codes&reading=r&count=0>$title

$uname

$dates

F_O_R_M

############################# 답변 유무 표시...########################

if($onoff =~ /on/){ ###~ /on/같은 문장이 있을때!!!

print ;
print

;
print ;
$dbg = DBI->connect('DBI:ODBC:order_id_ord','sa','') || die $DBI::errstr;
$stg = $dbg->prepare( q{SELECT hits FROM ans1 WHERE code_num=?});
$stg ->execute($codes);
while(($hits) = $stg->fetchrow_array){
$hitz = $hits;
}
$stg->finish;

}else{
print
$dbw = DBI->connect('DBI:ODBC:order_id_ord','sa','') || die $DBI::errstr;
$stw = $dbw->prepare( q{SELECT hits FROM list1 WHERE code_num=?});
$stw ->execute($codes);
while(($hits) = $stw->fetchrow_array){
$hitz = $hits;
}
$stw->finish;
}
##############################################################

print <<"F_O_R_M1";

$hitz

;

for ($i=1;$i <= $page;$i++){
if( $i != $nowpage){
print[;
}
print $i;
if( $i != $nowpage){
print ];
}
print
}

print

name=title value=1>Subject size=2>내용(Contents) size=2>Name

value=Write onclick="ifcheck(this.form);">

align=center>

H_E_A_D
}
sub error_form{
print <<" B_O_X";


	B_O_X print; print $temp; print ; print ; print ; print $temp1; print ; print ; print ; print $temp2; print ; print ; print	; print
	; print
	; print	; print ""; print	; print
; print << "B_O_X1"

총 페이지수 : $nowpage/$page H_E_A_D1 print <<" H_E_A_D2";
No	subject	name	date	comment	count
H_E_A_D2 &checkdb; &get_date; if ($pagecount >= 1){ &listoutput; }else{ print
; print	입력된 자료가 없습니다!					; print
; print
; print	onclick="/ifcheck(this.form);">					; print
; } print << "t_a_i_l"