#!/usr/bin/perl ######################################################################### # 程式名稱：新聞公告系統 # # 版本編號：00080版 完成日期：2000年10月15日 # # 程式作者：幻 # # 電子郵件：good_lover@kimo.com.tw # # 作者網站：http://best.24cc.com/ # # # # 版權說明：本程式屬於【依戀虹心】所有，本人對此軟體有修改權利。本軟體 # # 只允許本站授權者使用，未向本站註冊者，視同盜用。您只可以針 # # 對版面美化作修改，不可任意修改程式，如果需修改程式請來信告 # # 知，取得本人同意。本段著作權申明不得刪除，包括已取得使用授 # # 權者。如果本程式有任何問題麻煩請告知。 # ######################################################################### $vgurl ="news.cgi"; #主程式 $usehtml ="ON"; #語法總開關 $useimg ="ON"; #貼圖小開關 $unix ="ON"; #鎖檔開關 $ii ="10"; #顯示新聞數 $iii ="3"; #顯示新聞數2 $chktime =0; #時差 $ver ="00080"; #版本編號 $gif ="new.gif"; #新聞圖示 $newpost ="5"; #new保留天數 $password ="TEST∥TEST"; #前面是帳號後面是密碼 $most ="100"; #新聞總數 $data ="data.txt"; #新聞資料檔 ####################以下不需修改######################################### $|=1; print "Content-type: text/html\n\n"; ######################################################################### ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time+($chktime*3600)); $mon++; if ($mon<10) {$mon="0$mon";} if ($day<10) {$day="0$day";} if ($hour<10){$hour="0$hour";} if ($min<10) {$min="0$min";} if ($sec<10) {$sec="0$sec";} $year=$year+1900; $yearn=$yearn+1900; $daten = "$year年$mon月$day日-$hour\時$min\分$sec秒"; $yearn = "$year年$mon月$day日"; $nowsec =$sec + ($min*60) + ($hour*60*60) + ($day*24*60*60); $dsec1 =$nowsec-($newpost*60*60*24); $dsec2 =$nowsec+($newpost*60*60*24); ####################################################### @querys = split(/&/, $ENV{'QUERY_STRING'}); foreach $query (@querys) { ($name, $value) = split(/=/, $query); $VG{$name} = $value; } read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; $value =~ s/
錯誤唷
\n"; print "
\n"; print "
$_[0]
正在轉回首頁中
"; exit; } ######################################################################### sub aa { print<
新聞發表
依 戀 虹 心 新 聞 公 告 發 表 處
帳 號：
密 碼：
新聞主題：
新聞內容：
程式編撰：
幻
版本編號
$ver
版
本程式屬
依戀虹心
所有
HTML exit; } sub ab { $id=$VG{a1}; $ps=$VG{a2}; ($p1,$p2)=split(/∥/,$password); unless ($id eq $p1 && $ps eq $p2) { &error("您沒有此一權限!!");exit; } &error("您忘了填寫新聞主題") if ($VG{a3} eq ""); &error("您忘了填寫新聞內容") if ($VG{a4} eq ""); $VG{a4} =~s/\cM\n/
/g; open (VG, "$data");@VG=
;close (VG); foreach (@VG) { ($a,$b,$c,$d)=split(/║/); &error("請勿重覆留言
謝謝^_^") if ($VG{a3} eq "$a" && $VG{a2} eq "$b"); } $totle=0; $most=$most-1; open (VG, ">$data"); flock(VG,2) if ($unix eq "ON"); print VG "$VG{a3}║$VG{a4}║$daten║$nowsec║\n"; print VG for splice @VG, 0, $most; flock(VG,8) if ($unix eq "ON"); close (VG); print "
轉頁中
\n"; print "
\n"; print "
資 料 寫 入中 . . . . . .
"; exit; } sub list { open (VG, "$data");@VG=
;close (VG); for($w=0;$w<=$#VG;$w++) { ($a,$b,$c,$d)=split(/║/); } print<
首頁
歡 迎 大 家 來 到 小 說 作 者 任 易 虹 的 專 屬 網 站 ==> 依 戀 虹 心!
│ 現有新聞數:
$w
│ 新聞顯示數:
$ii
│ 新聞最大數:
$most
│
新增新聞
│
管理新聞
│
VG if ($user eq ON) {print "
";} $i=0; $ss=""; $ss="$ss&s1=$VG{s1}" if ($VG{s1} ne ""); $ss="$ss&s2=$VG{s2}" if ($VG{s2} ne ""); if ($ss ne "") { @T=(); foreach (@VG) { ($a,$b,$c,$d)=split(/║/); $S1=0; $S2=0; if ($VG{s1} ne "") {$S1++; if ($a=~/$VG{s1}/i) {$S2++;}} if ($VG{s2} ne "") {$S1++; if ($b=~/$VG{s2}/i) {$S2++;}} if ($S1==$S2) { push(@T,"$_"); } } @VG=@T; } if ($ss ne "") {$ii=$most;$iii=0} if ($user eq "ON" && $md eq "ca") {$ii=$most;$iii=0;} if ($user eq "ON" && $md eq "cb") {$ii=$most;$iii=$most;} foreach $list (@VG) { ($a,$b,$c,$d)=split(/║/, $list); $i++; if (($d<$dsec1) || ($d>$dsec2)) {$new="";} else {$new="
";} if ($i < $ii) { if ($i <= $iii) { if ($user eq "ON" && $md eq "cb") { $b =~s/
/\n/g; print<
$a $new
$c
$b
VG } else { print<
$a $new
$c
$b
VG }} else { if ($user eq "ON" && $md eq ca) { print<
$a $new
$c
VG } else { print<
$a $new
$c
$b
VG }}}} $max=$i; if ($user eq ON && $md eq ca) { print<
VG } elsif ($user eq ON && $md eq cb) { print<
VG } else { print<
標題搜尋:
內容搜尋:
VG } print ""; exit; } sub ac { print<
新聞系統管理區
新 聞 版 管 理 區
輸入帳號
輸入密碼
刪除新聞
修改新聞
若 非 管 理 員 請 離 開 本 頁
HTML exit; } sub pp { $idd=$VG{idd}; $md=$VG{md}; $pss=$VG{pss}; ($p1,$p2)=split(/∥/,$password); unless ($idd eq $p1 && $pss eq $p2) { &error("您沒有此一權限!!");exit; } } sub ss { if ($VG{ba} == 1){ open (FILE, "$data");@A=
;close (FILE); open (FILE, ">$data"); flock(FILE,2) if ($unix eq "ON"); for ($j=0;$j<=$#A;$j++) { ($a,$b,$c,$d)=split(/║/,$A[$j]); for ($i=$VG{min};$i<=$VG{max};$i++) { if ($a eq "$VG{$i}") {$aa="";last;} else {$aa="$a║$b║$c║$d║\n";} } if ($aa ne "") {print FILE "$aa";} } flock(FILE,8) if ($unix eq "ON"); close (FILE); print "
轉頁中
\n"; print "
\n"; print "
資 料 刪 除 中 . . . . . .
"; exit; } elsif ($VG{ba} == 2){ open (FILE, "$data");@A=
;close (FILE); open (FILE, ">$data"); flock(FILE,2) if ($unix eq "ON"); for ($j=0;$j<=$#A;$j++) { ($a,$b,$c,$d)=split(/║/,$A[$j]); for ($i=$VG{min};$i<=$VG{max};$i++) { $ii="$i$i"; $VG{$ii} =~s/\cM\n/
/g; if ($a eq "$VG{$i}") {$aa="$a║$VG{$ii}║$c║$d║\n";last;} else {$aa="$a║$b║$c║$d║\n";} } if ($aa ne "") {print FILE "$aa";} } flock(FILE,8) if ($unix eq "ON"); close (FILE); print "
轉頁中
\n"; print "
\n"; print "
資 料 修 改 中 . . . . . .
"; exit; } else {&error("無工作指示!!");} }