$title_name

#!/usr/bin/perl ######################################## # design by http://www.greenworld.com.tw ######################################## if(! $ENV{'QUERY_STRING'}) { require "cgi-bin.cgi"; &UnWeb; $PAGE_UU++; &view; } if($ENV{'QUERY_STRING'}) { require "cgi-bin.cgi"; &UnWeb; ($KEYIN,$PAGE_n,$ASDF) = split(/&/,$ENV{'QUERY_STRING'}); if (($PAGE_n eq '')&($in{'PPPAGE'} eq '')){ $PAGE_n=0; } if (($PAGE_n eq '')&($in{'PPPAGE'} != '')){ $PPPAGE=$in{'PPPAGE'}; $PPPAGEaa=$PPPAGE-1; $PAGE_n=$PPPAGEaa; } $PAGE_UU = $PAGE_n; $PAGE_UU++; &view; } sub view { $CGI_FILE = 'view.cgi'; open(NUMBER,"$USER"); @mvps = ; close(NUMBER); $sunwhat_count = 0; foreach$mvp(@mvps) { ($BSN,$BBOOKNAME,$BCOMNAME,$BURL,$BNAME,$BEMAIL,$BAENDATE,$BFANAME,$BFANAB,$BTEL,$BFAX,$BADDRESS,$BHOHO,$BLOWHOHO,$BTOPGIF,$BBGCOLOR,$BBGGIF,$BAAPAGE,$BBBOBB,$BZZZ) = split(/&&/,$mvp); if ($BSN eq "$KEYIN") { $sunwhat_count++; $PaGe_Namb=$BAAPAGE; $cBBGCOLOR=$BBGCOLOR; $cBTOPGIF=$BTOPGIF; $cBOOKNAME=$BBOOKNAME; $cCOMNAME=$BCOMNAME; $cBLOWHOHO=$BLOWHOHO; $cBLOWHOHO =~ s/:::/\n/g; $cBURL=$BURL; $cEMAIL=$BEMAIL; $cAENDATE=$BAENDATE; } } if ($sunwhat_count == 0) { &PrintHeader; print "$title_name$TOP\n"; print " $\"綠界留言板出租首頁\"$

\n"; print "您無權使用本程式
\n"; print "$OVER$LOWSAND\n"; exit; } if ($ENDDATE > "$cAENDATE") { &PrintHeader; print "$BBOOKNAME$TOP

\n"; print " $\"綠界留言板出租首頁\"$

\n"; print "您使用本程式的租約已到期!!

\n"; print "歡迎您再與本公司連絡辦理續約, 感謝您的愛護

\n"; print "$OVER$LOWSAND\n"; exit; } open(NUMBER,"log/$KEYIN.dta"); @mvps = ; close(NUMBER); $mvpcount = @mvps; $count = 0; while($count < $mvpcount) { ($AATIME,$AAPLAY,$AAMAIL,$AASOB,$AAHOHO,$AAWEB) = split(/&&/,$mvps[$count]); if ($count > 200) { $mvps[$count] = ""; } $count++; } open(NUMBER,">log/$KEYIN.dta"); foreach$mvp(@mvps) { print NUMBER "$mvp"; } close(NUMBER); open (FILE,"log/$KEYIN.dta"); @lines=; close(FILE); $caruser=@lines; if ($caruser == 0) { if (-e "log/$KEYIN.dta") { open (DB, ">>log/$KEYIN.dta"); print DB "\n"; close DB; }else { open (DB, ">log/$KEYIN.dta"); print DB "\n"; close DB; } } open (FILE,"log/$KEYIN.dta"); @lines=; close(FILE); $count_SUNall=@lines; $count_SUNall--; $PAGE_OOO = $count_SUNall/$PaGe_Namb; $PAGE_OOO =~ s/\./&&/g; ($PAGE01,$PAGE02) = split(/&&/,$PAGE_OOO); if ($PAGE02 != "") { $PAGE01++; } $PAGE_UP = $PAGE_UU-2; if ($PAGE_UU > 1){ $PagE_nab = "PAGE UP 上一頁"; } &PrintHeader; print "$cBOOKNAME$TOP

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
沒有看到您的留言, 只要按
即可!!勿重複留言

\n"; print "共 $count_SUNall 筆留言 (分成 $PAGE01 頁)
\n"; &PAGEnab; $count_SUN = 0; $ddd_n = $PAGE_UU; $ddd_U =--$ddd_n; $TOP_n = $PaGe_Namb*$PAGE_UU; $LOW_n = $PaGe_Namb*$ddd_U; print "\n"; open(NUMBERS,"log/$KEYIN.dta"); @mvps = ; close(NUMBERS); foreach$mvp(@mvps) { if ($mvp =~ '&&') { ($AATIME,$AAPLAY,$AAMAIL,$AASOB,$AAHOHO,$AAWEB) = split(/&&/,$mvp); $chDATA = $AATIME; $chDATA =~ tr/oeqmsulcbjo/0123456789/; $chYY = substr ($chDATA, 0,2); $chMM = substr ($chDATA, 2,2); $chDD = substr ($chDATA, 4,2); $chTT = substr ($chDATA, 6,2); $chFF = substr ($chDATA, 8,2); if (($count_SUN >= $LOW_n)&($count_SUN < $TOP_n)) { print "\n"; } $count_SUN++; } } if ($count_SUN == 0){ print "
留言者:$AAPLAY | $chYY年$chMM月$chDD日$chTT:$chFF | E-mail: $AAMAIL
【主題】$AASOB
$AAHOHO

\n"; print "目前尚無留言!!

\n"; print "

$cBLOWHOHO

\n"; print "$LOWSAND\n"; exit; } ############## print "

\n"; &PAGEnab; print "

$cBLOWHOHO

\n"; print "$LOWSAND\n"; exit; } sub PAGEnab { if ($PAGE_UU < $PAGE01){ print "

\n"; } if ($PAGE_UU == $PAGE01){ print "$PagE_nab【 - $PAGE_UU - 】

\n"; } }