CALL台灣專業工商名錄

#!/usr/bin/perl ######################################## # design by http://www.greenworld.com.tw ######################################## require "00cgi-bin"; &UnWeb; &PrintHeader; print <<__END_OF_ENTRANCE__; CALL台灣專業工商名錄

網路開店的第一品牌

網站申辦線上刷卡

免費超商代收系統

購物車出租系統

網友相本/Anow貼圖區

F2M表單轉信系統申請

TAIWAN 台灣區大型專業工商資料庫搜索引擎‧是您刊登廣告的最佳選擇
【登錄您的公司】 . 【修改您的公司資料】 . 【新登入公司資料】

__END_OF_ENTRANCE__ print "
\n"; print "全省分區: \n"; print "行業分類:
\n"; print "相關字串: \n"; print "

\n"; print "【查詢方法: 輸入

以空格分開即可】

\n"; #print "

\n"; open(HEADER,"index.dta"); @headers_new=

; close(HEADER); $ALL_NAB = 0; foreach$header(@headers_new) { $ALL_NAB++; } $ALL_BAN = $ALL_NAB/3; $ALL_BAN2 = $ALL_BAN+$ALL_BAN; ($AAC,$DDC) = split(/\./,$ALL_BAN); if ($DDC eq "") { } else { $AAC++; } ($BBC,$DDC) = split(/\./,$ALL_BAN2); if ($DDC eq "") { } else { $BBC++; } $ALL_01 = 0; print "

\n"; print "

\n"; foreach$header(@headers_new) { if ($ALL_01 < $ALL_NAB){ ($NAME,$NAB,$AQQQ) = split(/&&/,$header); if ($ALL_01 eq $AAC){ print "

\n"; } if ($ALL_01 eq $BBC){ print "

\n"; } print "● $NAME
\n"; $ALL_01++; } } print "

\n"; print "

\n"; print "推翻傳統書面查詢‧天價般的收費

\n"; print "● 從今起‧您將多\一個絕佳的廣告選擇。
\n"; print "● 不用再花數萬元‧換來幾通少的可以的電話聲。
● 無壓力的最佳廣告新寵兒‧等您來加入。
\n"; print "

\n"; print <<__END_OF_ENTRANCE__;

__END_OF_ENTRANCE__ exit;