\n"; print "$info[0][$Lan-1]"; print "

#!/usr/bin/perl ################################################################################ # Project : Chinavista YellowPage search engine, Copyright Xindeco BIC # # Author : walker.Chen (ChenChaoRen) # # E-mail : walker@chinavista.com # ################################################################################ require "/u/web/chinav/cgi-local/cgi-lib.chen"; #require "/usr/people/walker/cgi-local/cgi-lib.walker"; use Msql; # Read parameters ReadParse(*input); $Lan = &SplitParam($input{'Lan'}); # Classes $TcNum = 15; @Tc=([1000,"All","�窒","全部"], [2000,"Banking & Finance","窅俴﹜踢⺈珛","銀行、金融業"], [3000,"Computers & Internet","數呾儂﹜弊暱誑薊厙","計算機、國際互聯網"], [4000,"Consulting & Legal","訰戙﹜楊薺","咨詢、法律"], [5000,"Entertainment & Recreation","軓氈﹜秏ザ","娛樂、消遣"], [6000,"Government","淉葬","政府"], [7000,"Health & Fitness","怹汜﹜翩艙","衛生、健康"], [8000,"Industry & Manufacturing","馱珛﹜秶婖珛","工業、制造業"], [9000,"Media & Publishing","羸极﹜堤唳珛","媒體、出版業"], [10000,"Real Estate","滇華莉珛","房地產業"], [11000,"Science & Technology","褪悝﹜撮扲","科學、技朮"], [12000,"Shipping & Forwarding","蝠籵﹜堍怀珛","交通、運輸業"], [13000,"Trade","籀眢","貿易"], [14000,"Travel","藏蚔","旅游"], [15000,"Other","［坳","其它"] ); @info_navi=( ["Add your company into our yellowpage","樓⻌▲笢弊硌鰍◎酴珜杅擂踱","加入《中國指南》黃頁數據庫"], ["ChinaVista","笢弊硌鰍","中國指南"], ["CityVistas","傑庈硌鰍","城市指南"], ["Business","妀珛硌鰍","商業指南"], ["Tech","褪撮硌鰍","科技指南"], ["Discover China","朸笣軝筵","神州縱橫"], ["Search","潰坰","檢索"], ["Services","督昢","服務"], ["Xindeco Business Information Co., Ltd.","陓湛妀ロ衄癹鼠侗","信達商情有限公司"], ["All rights reserved.","唳�垀衄","版權所有"], ); @tech_info=( ["Bugs reports can be mail to walker\@chinavista.com, thanks!", "⺼衄恀枙ㄛ辣茩蠟楷蚘璃祫walker\@chinavista.com﹝", "如有問題，歡迎您發郵件至walker\@chinavista.com。"], ["","",""], ["","",""], ); @info=( ["Chinavista Yellow Page","笢弊硌鰍酴珜","中國指南黃頁"], ["Key words : ","壽瑩趼ㄩ","關鍵字："], ["Search","潰坰","檢索"], ["Search in : ","婓狟蹈毓峓囀潰坰ㄩ","在下列范圍內檢索："], ["Add your company","轎煤樓⻌","免費加入"], ["Layout : ","唳醱ㄩ","版面："], [" Display"," 藩珜珆尨"," 每頁顯示"], ["lines per page.","俴﹝","行。"], ["Any word","⑤饜￤珨棵","匹配任一詞"], ["All words","⑤饜垀衄棵","匹配所有詞"], ["Options : ","恁砐ㄩ","選項："], ["Key words are required, thanks!","ワ怀⻌脤戙壽瑩趼ㄛ郅郅ㄐ",""], ["","",""], ["","",""], ["","",""], ); @Version=( ["English Version","荎恅唳","英文版"], ["Chinese GB Version","潠极笢恅唳","簡體中文版"], ["Chinese B5 Version","楛极笢恅唳","繁體中文版"], ); @Navi=( ["/home.html","/chhome.html","/b5home.html"], ["/cities/home.html","/cities/chhome.html","/cities/b5home.html"], ["/business/home.html","/business/chhome.html","/business/b5home.html"], ["/tech/home.html","/tech/chhome.html","/tech/b5home.html"], ["/discover.html","/chdiscover.html","/b5discover.html"], ["/search.html","/chsearch.html","/b5search.html"], ["/services.html","/chservices.html","/b5services.html"] ); # Output result print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "$info[0][$Lan-1]"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "\n"; print "

\n"; print "" if( $Lan == 1 ); print "$info_navi[1][$Lan-1] | \n"; print "$info_navi[2][$Lan-1] | \n"; print "$info_navi[3][$Lan-1] | \n"; print "$info_navi[4][$Lan-1] | \n"; print "$info_navi[5][$Lan-1] | \n"; print "$info_navi[6][$Lan-1] | \n"; print "$info_navi[7][$Lan-1]\n"; print "\n" if( $Lan == 1 ); print "
\n"; print "\n"; print "

\n"; $buf = `lynx -source http://www.chinavista.com/adserver/ad_gen.phtml`; print $buf; print "

\n"; print "\n"; print "

$info[0][$Lan-1]\n"; print "\n"; print "\n"; print "\n"; if( $Lan != 1 ) { print ""; } if( $Lan != 2 ) { print ""; } if( $Lan != 3 ) { print ""; } print ""; print "\n"; print "
"; print "" if( $Lan == 1 ); print "" if( $Lan == 1 ); print "$Version[0][$Lan-1]\n"; print "" if( $Lan == 1 ); print "" if( $Lan == 1 ); print " "; print "" if( $Lan == 1 ); print "" if( $Lan == 1 ); print "$Version[1][$Lan-1]\n"; print "" if( $Lan == 1 ); print "" if( $Lan == 1 ); print " "; print "" if( $Lan == 1 ); print "" if( $Lan == 1 ); print "$Version[2][$Lan-1]\n"; print "" if( $Lan == 1 ); print "" if( $Lan == 1 ); print " "; print "" if( $Lan == 1 ); print "" if( $Lan == 1 ); print "$info[4][$Lan-1]\n"; print "" if( $Lan == 1 ); print "" if( $Lan == 1 ); print "
\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "" if( $Lan == 1 ); print "$info[1][$Lan-1]\n"; print "" if( $Lan == 1 ); print "\n"; print "\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; $Half = $TcNum/2; $Half++ if( $Half != (int $Half) ); $Half = int $Half; $checked = "checked"; for( $i = 0; $i < $Half; $i++ ) { print "\n"; print "\n"; $checked = ""; $Position = $Half + $i + 1; last if $Half+$i >= $TcNum; print "\n"; print "\n"; } print "
\n"; print "" if( $Lan == 1 ); print "$info[10][$Lan-1]"; print "" if( $Lan == 1 ); print " \n"; print "" if( $Lan == 1 ); print "\n"; print ""; print "$info[8][$Lan-1] "; print ""; print "" if( $Lan == 1 ); print "" if( $Lan == 1 ); print " \n"; print ""; print "$info[9][$Lan-1]"; print ""; print "" if( $Lan == 1 ); print "
\n"; print "" if( $Lan == 1 ); print "$info[5][$Lan-1]"; print "" if( $Lan == 1 ); print " \n"; print "" if( $Lan == 1 ); print ""; print "$info[6][$Lan-1] "; print "\n"; print "$info[7][$Lan-1]"; print ""; print "" if( $Lan == 1 ); print "
\n"; print "" if( $Lan == 1 ); print "$info[3][$Lan-1]"; print "" if( $Lan == 1 ); print "
\n"; print "" if( $Lan == 1 ); $Position = $i + 1; print "\n"; print "\n"; print "$Tc[$i][$Lan]\n"; print "" if( $Lan == 1 ); print " "; print "" if( $Lan == 1 ); print "\n"; print "\n"; print "$Tc[$Half + $i][$Lan]\n"; print "" if( $Lan == 1 ); print "
\n"; print "
\n"; print "

\n"; print "" if( $Lan == 1 ); print ""; print "

$tech_info[0][$Lan-1]

\n"; print "\n"; print "\n" if( $Lan == 1 ); print "

"; print "\n"; print "

\n"; print "

\n"; print "\n"; print ""; exit(0);