#!/usr/local/bin/perl
#exit();

#!d:/perl/bin/perl.exe
#通用

# 2000/1/5	添加 BBS只显示买、卖功能，用COOKIE
# updated by David at 2000/1/31 for display format
# 2000/2/11
# 3/16 添加对英文用户的禁止中文文字显示
# 3/17 公司简介限制为 260 bytes
# 4/4	SHOW ME 添加合作选项
# 4/7	关键字继承，SHOW ME 时的条件继承
# 英文版提供 POWER SEARCH
# 4/17 power search 的买卖信息 ALL -> all
# 5/7 修改产品列出的条件加：b.roomok=1
# 2001-12-18 增加显示推荐企业

# 2003-06-19
# 增加VIP会员
# 会员和VIP会员，在一周内排在最前面

use Mysql;
#use strict; 
use lib '../lib/';
require "sys_config";
require "g_word";
require "etc";

my $kwd_table="kwd_company";
my $recommend_table="recommend_company";
my $trade_table="trade";
my $com_table="companies";
my $recommend_limit="50";

my $go;		# search where
my $tag2="";
my $tag4="";
my $filename="/bin/search.pl";
#my $imgfile="image";	# this image name
@tempfile = ('template/a_template','template/a_template_cn');	# 模板文件名
my $long = 50;        #每页条数
my $beginnum;           #开始行号
my $nextnum;            #下一页页号
my $prenum;				#前一页页号
my $total;
my $setcookie=0;		#定义是否设置COOKIE在这次递交的时候
my $showonly = "all";

my $sth;
my $que;

my $numrows;
my $numfields;
my @row;

my $keyword="";
my @keywords;
my $keyword2="";	#for multi-condition
my $nextkeyword="";	# keyword for next url

my $trade;
my $region;
my $c_name="";
my $c_address="";
my $p_name="";
my $sellorbuy;
my $timefield = 100;	#期限缺省为 500 天 
my $timelimit ="200106010000";#拆分
my $attrade;



$words = 0;
my @word0 = ('index.htm','china/index.htm');
my @word1 = ('Search','搜索');
my @word2 = ('Advanced','高级搜索');
my @word3 = ('Search Tips','快速帮助');
my @word6 = ('/search_help.htm','/search_help_cn.htm');
my @word7 = ('Recent Trade Leads ','近期贸易商情');
my @word8 = (' Companies ','公司');
my @word9 = (' Exhibits ','产品');
my @word14 = (' History ','历史商情');
#my @word14 = ('[1]','[1]');
#my @word15 = ('[<font color=#CC0033>>|</font>','<font color=#CC0033>>|</font>');
#my @word15 = ('','');
#my @word16 = ('[<font color=#009933><</font>]','[<font color=#009933><</font>]');
#my @word17 = ('[<font color=#009933>></font>]','[<font color=#009933>></font>]');
my @word18 = ('Total','搜索结果');
my @word10 = ('Show me ...','只显示...');
my @word11 = ('Buy only','求购信息');
my @word12 = ('Sell only','供应信息');
my @word19 = ('Opportunities only','合作机会');
my @word13 = ('All','所有信息');
my @word20 = ('Results in ','相关');
my @s1 = ('Global Search','全球搜索');
my @s2 = ('Show me all','显示全部');
#my @dot = ('.....................................................................................................................................................................................','................................................................................................................');
#my @dot = ('<img src="/image/ffe7b8.gif" width="561" height="8">','<img src="/image/ffe7b8.gif" width="561" height="8">');
my $code;
#my @font=('<font face=\"Verdana, Arial, Helvetica, sans-serif\">','<font span class=\"type99\">');

my $addbutton;	# back to advanced


my $suburl;		#
my $subname;	#分类目录
my $companypage;
#my $logofile;
my $today;
@ep = ('e','p');	# 中英文字段标志
my $param = "";
my $at;

$dbh = Mysql->Connect($ec_db_host,$ec_db_name,$ec_db_user,$ec_db_password) || &err('connect error');
$dbh2 = $dbh;
&parseform;
&getcookie('id');

if ($ismember){	
	@tempfile = ('template/a_ms_template','template/a_ms_template_cn');	# 模板文件名
}

#init parameter
# default search in bbs

if (not defined($form{'go'})) {	
   	$go="bbs";
}else{
  	$go=$form{'go'};
}
    
if ($form{'trade'}){
   	$trade=$form{'trade'};
   	$code = $trade;
}else{
   	$trade = "N/A";
   	$code = "";
}
    
if ((not $code) and defined($form{'main'})){
  	$form{'main'} =~ s/trade//g;
   	$trade = $code = $form{'main'};
}
    
if ($code eq "N/A"){$code="";}
           
if (defined($form{'keyword'})){
  	$keyword2=$form{'keyword'};
   	$keyword2=~s/^ *| *$|'//g;	# skip front space,back space,quote
   	$keyword2=~s/!!/\+/g;       #解码
	$keyword2=~s/&quot;|”|“/\"/g;
	#&echo($keyword2);
	$keyword=$nextkeyword=$keyword2;
   	$keyword=~s/\"/&quot;/g;
	#关键字的编码传递
	$nextkeyword=~s/\+/!!/g;
	$nextkeyword=~s/ +/+/g;
	$nextkeyword=~s/\"|”|“/&quot;/g;
}
    
if (not defined($form{'button'})){
   	$button="Search";
}else{
   	$button=$form{'button'};
}
    
if (defined($form{'timefield'})){	$timefield=$form{'timefield'};}
if ($language eq $ec_gb){	$words = 1;}

if (not defined($form{'pagenum'})){
	#first page
	$beginnum = 0;
	$nextnum = 0;
	$prenum = 0;
}else{
    $beginnum = $form{'pagenum'} * $long;
    $nextnum = $form{'pagenum'};
    $prenum = $form{'pagenum'};
}

$nextnum += 1;
$prenum -= 1;

my $formtag = "
	<form method=post action=/bin/search.pl name=form2>
	<input type=hidden name=go value=$go>
    <input type=hidden name=trade value=$code>
	<input type=hidden name=language value=\"$language\">
    <font class=dd>
    <input type=text name=keyword size=15 value=\"$keyword\">
    <input type=submit name=btns value=\"$word1[$words]\" class=dd>
    <input type=submit name=btna value=\"$word2[$words]\" class=dd>
    <input type=button class=dd value=\"$word3[$words]\" onclick=form2.action='$word6[$words]';form2.method='get';form2.submit()>
    </form>";
    #[<a href=$word6[$words] class=dd>$word3[$words]</a>]
    


# case go where
$suburl = "/bin/search.pl?go=$go&language=$language";

# added by David at 2000/9/19 for at trade avalible
if ($trade ne 'N/A'){ 
	my $sql919 = "select tradecode from trade where unicode='$trade'";
	my $sth919 = $dbh->Query($sql919);
	if ($sth919->numrows != 0){
		my @row919=$sth919->FetchRow;
		$attrade = $row919[0];
	}
	if ($attrade eq $trade){ $attrade = "";}
}
#####

if (($form{'btns'} eq $word1[$words]) or ($button eq "Search")) {
	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    $today =$year+1900 ."-" . ($mon+1) . "-$mday";
	&genlist($go) if ($trade and ($trade ne "N/A")) ;		# 生成行业分类列表
	$tag41 = "<table width=100% border=0 class=dd cellspacing=0 cellpadding=0><tr><td>
    	<!--searchform-->
    	</td></tr></table>";

	if ($go eq "company"){
	    $word18[$words] = $word8[$words].$word18[$words];
		$xg1 = $word20[$words].$word7[$words];
		$xg2 = $word20[$words].$word9[$words];
        $xg11 ="<!--bbs-->";
        $xg21 ="<!--product-->";
		$subname = $word8[$words];
		&searchcompany;
	}
	if ($go eq "bbs"){
		$word18[$words]=$word7[$words].$word18[$words];
		$xg1 = $word20[$words].$word8[$words];
		$xg2 = $word20[$words].$word9[$words];
		$xg3 = $word20[$words].$word14[$words]."...";
		$xg31 = "/bin/hissearch.pl?language=$language&trade=$code&go=bbs&keyword=$nextkeyword";
		$xg11 ="<!--company-->";
        $xg21 ="<!--product-->";
		$subname = $word7[$words];
		
		#if ($language ne $ec_gb){
		#	$formtag .= "<br>
		#		<select name=sellorbuy>
		#		<option value=all>$s2[$words]
		#		<option value=Buy>$word11[$words]
		#		<option value=Sell>$word12[$words]
		#		<option value=Opportunity>$word19[$words]
		#		</select>
		#		<input type=button value=\"$s1[$words]\" onclick=\"this.form.action='/bin/psearch.pl';this.form.submit()\">";
		#}
		
		###add this for show buy/sell only
		if (defined($form{'showonly'})){	&setcookie;}
		
		&getcookie('id');
		if (defined($cookie{'showonly'})){ 	$showonly = $cookie{'showonly'};   }
        if ($setcookie){   	$showonly = $form{'showonly'};         }   
		#
		
		&searchbbs;
	}
	
	
	if ($go eq "product"){
        $word18[$words]=$word9[$words].$word18[$words];
		$xg1 = $word20[$words].$word7[$words];
		$xg2 = $word20[$words].$word8[$words];
		$xg11 ="<!--bbs-->";
        $xg21 ="<!--company-->";
		$subname = $word9[$words];
		&searchproduct;
	}
}

if (($form{'btna'} eq $word2[$words]) or ($button eq "Advanced")){
	print "location:/bin/advanced.pl?language=$language&go=$go&keyword=$nextkeyword&trade=$code\n\n";
	exit;
}


#------------------ 显示页控制
my $pagetag;
if ($total ne "0"){
	$pagetag = "
		<form method=post action=/bin/search.pl>
		<table border=0 width=100% cellPadding=0 cellSpacing=0>
		<tr bgcolor=#d8f2b9 class=dd>
		<td width=80%><img src=/china/image/dot.gif width=8 height=1> <b>$word18[$words]</b> : $total ( ";
		
	$pagetag .= $beginnum + 1;
	$pagetag .= " -- ";
	if ($nextnum * $long >= "$total"){
		$pagetag .= $total;
	}else{
		$pagetag .= $beginnum + $long;
	}
	$pagetag .= " )";
	
	if ($go eq "bbs"){
		$pagetag .= "
		<select name=showonly onchange=\"this.form.submit()\" class=dd>
		<option >$word10[$words]
		<option value=Buy>$word11[$words]
		<option value=Sell>$word12[$words]
		<option value=Opportunities>$word19[$words]
		<option value=all>$word13[$words]
		</select>
		<input type=hidden name=keyword value=\"$keyword\">
		<input type=hidden name=trade value=\"$trade\">
		<input type=hidden name=go value=\"$go\">
		<input type=hidden name=button value=Search>
		<input type=hidden name=language value=\"$language\">";
	}

	$pagetag .= "</td>";

	
	
	if ($beginnum eq "0"){
		#第一页
		$pagetag .= "<td width=5%>[|<]</td>";
		#前一页
		$pagetag .= "<td width=5%>[<<]</td>";
	}else{
		$pagetag .= "<td width=5%><a href=/bin/search.pl?go=$go&total=$total&language=$language$param>[|<]</a></td>";
		$pagetag .= "<td width=5%><a href=/bin/search.pl?go=$go&total=$total&language=$language&pagenum=$prenum$param>[<<]</a></td>";
	}
	
	if ($nextnum * $long >= "$total"){
	
		#后一页
		$pagetag .= "<td width=5%>[>>]</td>";
		#末页
		$pagetag .= "<td>[>|]</td>";	
	}else{
		$pagetag .= "<td width=5%><a href=/bin/search.pl?go=$go&language=$language&total=$total&pagenum=$nextnum$param>[>>]</a></td>";
		if ($total%$long){
			$nextnum = ($total-$total%$long)/$long;
		}else{
			$nextnum = ($total-$total%$long)/$long -1;
		}
		$pagetag .= "<td><a href=/bin/search.pl?go=$go&language=$language&total=$total&pagenum=$nextnum$param>[>|]</a></td>";
	}
	$pagetag .= "</tr>";
	$pagetag .= "<tr bgcolor=#d8f2b9 class=cc><td colspan=5 align=right>
	<a href=$xg31><font color=#CC0033><b>$xg3</b></font></a>&nbsp;&nbsp;&nbsp;
	<a href=$xg11><font color=#CC0033><b>$xg1...</b></font></a>&nbsp;&nbsp;&nbsp;<a href=$xg21><font color=#CC0033><b>$xg2...</b></font></a><img src=/china/image/dot.gif width=8 height=1></td></tr>";
	$pagetag .= "</table></form>";
	$pagetag .= "<table width=100%><tr></td><script type=\"text/javascript\"><!-- \n google_ad_client = \"pub-6662449804782288\"; \n google_ad_width = 468; \n google_ad_height = 60; \n google_ad_format = \"468x60_as\"; \n google_ad_type = \"text_image\"; \n //2007-04-05: ectrade \n google_ad_channel = \"7750579113\"; \n google_color_border = \"FFFFFF\"; \n google_color_bg = \"FFFFFF\"; \n google_color_link = \"009F62\"; \n google_color_text = \"000000\"; \n google_color_url = \"000000\"; \n //--> \n </script> \n <script type=\"text/javascript\" \n   src=\"http://pagead2.googlesyndication.com/pagead/show_ads.js\"> \n </script></td></tr></table>";
	
}else{
	$pagetag = "<table width=100% border=0 cellspacing=0 cellpadding=2 bordercolor=#97d153>
		<tr class=dd><td>
		<br><br><img src=/china/image/dot.gif width=8 height=1> $word18[$words] : 0 
		</td></tr>";
#修改2001-9-11

    $pagetag .= "<tr bgcolor=#d8f2b9 class=cc><td colspan=5 align=right>
	<a href=$xg31><b>$xg3</b></a>&nbsp;&nbsp;&nbsp;
	<a href=$xg11><b>$xg1...</b></a>&nbsp;&nbsp;&nbsp;<a href=$xg21><b>$xg2...</b></a><img src=/china/image/dot.gif width=8 height=1></td></tr>";
	$pagetag .="</table>";
}

if ($tag4 eq ""){
	$tag4 = $tag41.$pagetag.$tradelist;
}else{
	$tag4 = $tag41.$pagetag.$tag4.$pagetag.$tradelist;
}
#------------------



# write changes into temp and display
open(MAIN,$tempfile[$words]);
my @main=<MAIN>;
my $main=join('',@main);
close(MAIN);

# translate tag4 for searchlist
$main=~s/<!--body-->/$tag4/g;

# translate tag2 for search (top)
if ($button ne $word2[$words]){
	$tag2 = "<input type=hidden name=go value=\"$go\">
		<input type=hidden name=trade value=\"$code\">
       	<input type=text name=keyword value=\"$keyword\">
        <input type=hidden name=language value=\"$language\">
        <input type=hidden name=button value=Search>
        <font class=dd>[<a href=javascript:clickit(1); class=dd>Search</a>][<a href=javascript:clickit(2); class=dd>Advanced</a>][<a href=/search_tips.htm class=dd>Search Tips</a>]</font>";            
}
$main=~s/<!--search form-->/$tag2/g;
#  over

# tag1 get where for <!--where-->
my $tem = $ep[$words]."trade";
my $sqlsub = "select tradecode,$tem from trade where tradecode=left('$code',length(tradecode)) order by tradecode";
my $qrysub = $dbh->Query($sqlsub);
my @tmp;    
my $tag1 = "<a href=\"$suburl\" class=dd>$subname</a>";
for(my $i=0; $i<$qrysub->numrows; $i++){
	@tmp=$qrysub->fetchrow;
	if ($i>0){		$tag1 .= " &gt; ";}
  	$tag1 .= " <a href=\"$suburl&trade=$tmp[0]\" class=dd>$tmp[1]</a>";
}
$main=~s/<!--where-->/$tag1/g;
# over

#修改2001-9-11

my $xg31 = "/bin/hissearch.pl?language=$language&trade=$code&go=bbs&keyword=$nextkeyword";
my $bbstag = "/bin/search.pl?language=$language&trade=$code&go=bbs&keyword=$nextkeyword";
my $producttag = "/bin/search.pl?language=$language&trade=$code&go=product&keyword=$nextkeyword";      
my $companytag = "/bin/search.pl?language=$language&trade=$code&go=company&keyword=$nextkeyword";
    
$main=~s/<!--bbs-->/$bbstag/g;
$main=~s/<!--product-->/$producttag/g;
$main=~s/<!--company-->/$companytag/g;
$main=~s/<!--searchform-->/$formtag/g;            #全球搜索
$main=~s/<!--title-->/$ec_title[$words]/g;

# 中英文切换
if ($language eq $ec_en){
	$altlan = $ec_gb;
}else{
	$altlan = $ec_en;
}
$altlan.="&go=$form{'go'}&keyword=$nextkeyword";
$main=~s/--altlan--/$ENV{'SCRIPT_NAME'}?language=$altlan/g;

#广告管理
#初始化
if ($language eq $ec_gb) {
#   $ad="<a href=/bin/cross/cross.pl?language=gb class=dd  target=_blank><img src=/china/image/banner_top.gif border=0></a>";
   #$ad="<a href=http://www.guofengair.com.cn  target=_blank><img src=/image/cgecc.gif height=55 border=0></a>";
   $ad="<center><object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0\" width=\"418\" height=\"55\">
          <param name=movie value=\"../china/ad_banner/bannertop.swf\">
          <param name=quality value=high>
          <embed src=\"../china/ad_banner/bannertop.swf\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"418\" height=\"55\">
          </embed> 
        </object></center>";
     $ad_language="1";
}else{
   $ad="<a href=/bin/cross/cross.pl?language=en class=dd  target=_blank><img src=/image/banner_top.gif border=0></a>";
   $ad_language="2";
}

$trade=substr($trade,0,2);
$sth=$dbh->Query("select image,alt,url,id from ad where trade like '$trade%' and (language='$ad_language' or language='3')");
if ($sth->numrows ne "0") {
   @row=$sth->Fetchrow;
   $ad="<a href=http://$row[2] target=_blank><img src=\"$row[0]\" alt=\"$row[1]\" border=1 width=340 height=54></a>";
}
#戴哲航修改2001-9-7
if (($trade eq "24") || ($trade eq "21") || ($trade eq "01")) {   $ad="<a href=http://www.guofengair.com.cn  target=_blank><img src=/image/cgecc.gif height=55 border=0></a>";}

$main=~s/<!--ad-->/$ad/g;
print "Content-type: text/html\n\n";
print $main;
$dbh =0 ;
exit;  




#########################################
#   sub function                     	#
#					                    #
#########################################
#
########################################
sub log{
open(MYLOG,'>>/tmp/chinapages.log')or die "die open file /tmp/chinapages.log";
print MYLOG  "xxxx";
print  MYLOG "\n";
print  MYLOG $que;
close MYLOG;

}

# search company
#############################################
sub searchcompany{

	$que="select id,companyname,website,substring(briefintro,1,260),regionalcode,city
             from companies
             where language='$language'";

    # it's written for multi condition
    if ($keyword2 ne ""){
        if ($keyword2=~/^\".*\"$/) {
		   $keyword2=~s/\"//g; 
		   @keywords=($keyword2);
           $que .=" and (keyword like '%$keyword2%' or companyname like '%$keyword2%')";
		}elsif ($keyword2=~/ /){	# split " " as "or"
	    	@keywords=split(/ +/,$keyword2);
	    	$que .=" and (keyword<>keyword";
	    	
	    	foreach my $keywords(@keywords){
	    		$que.=" or keyword like '%$keywords%' or companyname like '%$keywords%'";
	    	}
	    		
	    	$que.=")";    		
	    #+,-号功能
	    }elsif ($keyword2=~/\+/) { 
	        @keywords=split(/\+/,$keyword2);# split + as and
            foreach my $keywords(@keywords){
	    		$que.=" and (keyword like '%$keywords%' or companyname like '%$keywords%')";
	    	}
		}elsif ($keyword2=~/-/){
		    @keywords=split(/-/,$keyword2);# split - as and not
            for (my $i=1;$i<=@keywords;$i++) {
                if ($i%2) {
                	$que.=" and (keyword like '%$keywords[$i-1]%' or companyname like '%$keywords[$i-1]%')";
                }else{
				    $que.=" and (keyword not like '%$keywords[$i-1]%' and companyname not like '%$keywords[$i-1]%')";
				}
	    	}
		}else{
    	    @keywords=($keyword2);
    	    $que .=" and (keyword like '%$keyword2%' or companyname like '%$keyword2%')";
        }
    }#
    
	if ($trade ne 'N/A'){ 	
		$que .=" and (major_trade like '$trade%' or minor_trade like '%$trade%'";    
		$que920 = ")";
	}
    
    # added by David
    if ($attrade){ 	$que .=" or major_trade like '$attrade%' or minor_trade like '$attrade%'";    }
    $que .= $que920;
    # # # #
    
    if (defined($form{'c_name'})){
		$c_name=$form{'c_name'};
		$c_name=~s/^ *| *$|'//g;	# skip front space,back space,quote
		$que .=" and companyname like '%$c_name%'";
    }
    
    if (defined($form{'c_address'})){
		$c_address=$form{'c_address'};
		$c_address=~s/^ *| *$|'//g;	# skip front space,back space,quote
		$que .=" and address like '%$c_address%'";
    }
    # over
    
    $que .= " order by id desc";
    
	if ($language eq $ec_gb) {
	   #$que=~s/like/REGEXP/sgi;
	   #$que=~s/\%/\.\*/sgi;
	}   
	
	# get $total
    if (not defined($form{'total'})){
    	$sth=$dbh->Query($que) || &err("DATABASE ERROR"); 
		$total = $sth->numrows;
    }else{
    	$total = $form{'total'};
    }
    
	$que .= " limit $beginnum,$long"; 
	#&echo($que);
#&log;
	$sth=$dbh->Query($que) || &err("DATABASE ERROR<br><!--$que-->"); 
    
	
    
	# get param to next 20 page
    if ($keyword ne "")	{$param .="&keyword=$nextkeyword";}
    if ($trade ne "")     	{$param .="&trade=$trade";}
    if ($c_name ne "")	{$param .="&c_name=$c_name";}
    if ($c_address ne "")	{$param .="&c_address=$c_address";}
	# over


    # create result list
###############################################################################################
# mod by eagles 2001-12-17
	my $recommend_param="?";
	if ($language ne "")     	{$recommend_param .="language=$language";}
	if ($trade ne "" and $trade ne 'N/A')     	{$recommend_param .="&trade=$trade";}
#	my $recommend_str="<script language=JavaScript src=http://www.ectrade.com/bin/admin/recommend_company/show_recommend.php".$recommend_param."></script>";
#	my $recommend_str="<iframe width=100% marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no src=\"http://www.ectrade.com/bin/admin/recommend_company/show_recommend.php".$recommend_param."\"></iframe>";

	if($language eq "") {$language="gb";}
	$condition=" where language='$language' ";
	if ($trade ne "" and $trade ne 'N/A')
	{
	$trade2=substr($trade,0,2);
	$condition.=" and tradecode like '$trade2%' ";
}
#如果没有关键字，则出现推荐企业
if($beginnum eq "0" && $keyword eq ""){
	$recommend_sql="select com_id from $recommend_table $condition order by  id desc limit $recommend_limit";
	
	$recommend_sth = $dbh->Query($recommend_sql);
	my $recommend_rows = $recommend_sth->numrows;
	$recommend_str="";
	for (my $j=0;$j<$recommend_rows;$j++){
		@recommend_row=$recommend_sth->FetchRow;
		$recommend_sql3="select companyname,website,substring(briefintro,1,2000),regionalcode,city from companies  where language='$language' and id='$recommend_row[0]'";
		$recommend_sth3 = $dbh->Query($recommend_sql3);
		@recommend_row3 = $recommend_sth3->FetchRow;
		$recommend_str.="<br><img src=/image_2/color-dot.gif hspace=5>
		<a href=company.pl?website=$recommend_row3[1] class=yy target=_blank><b>$recommend_row3[0]</b></a> 
			<span class=span>$recommend_row3[4].$recommend_row3[3]</span>
			<img src=/image/dot.gif width=15 height=1>
			<img src=/image/star_3.gif alt='推荐企业'>
			<br><img src=/image/dot.gif width=15 height=1><span class=span>$recommend_row3[2]</span>
			<br>\n";
	}
}
############################################################################################ modify by pele 2002.08.29
#如果有关键字
if($keyword ne ""){
	$recommend_sql="select com_id from $kwd_table $condition and keyword like '%$keyword2%' order by id desc limit $recommend_limit";
	$temp_wuhao = $que;
	$que = $recommend_sql;
	&log; 
	$que = $temp_wuhao ;
	$recommend_sth = $dbh->Query($recommend_sql);
	my $recommend_rows = $recommend_sth->numrows;
	$recommend_str="";
	for (my $j=0;$j<$recommend_rows;$j++){
		@recommend_row=$recommend_sth->FetchRow;
		$recommend_sql3="select companyname,website,substring(briefintro,1,400),regionalcode,city from companies  where language='$language' and id='$recommend_row[0]'";
		$recommend_sth3 = $dbh->Query($recommend_sql3);
		@recommend_row3 = $recommend_sth3->FetchRow;
		$recommend_str.="<br><img src=/image_2/color-dot.gif hspace=5>
		<a href=company.pl?website=$recommend_row3[1] class=yy target=_blank><font color=blue><b>$recommend_row3[0]</b></font></a> 
			<span class=span>$recommend_row3[4].$recommend_row3[3]</span>
			<img src=/image/dot.gif width=15 height=1>
			<img src=/image/star_3.gif >
			<br><img src=/image/dot.gif width=15 height=1><span class=span>$recommend_row3[2]</span>
			<br>\n";
	}
}

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

	my $list = "<!--\n$recommend_sql.$que.$recommend_sql3\n--><table width=100% border=0 class=dd cellspacing=0 cellpadding=0><tr><td>".$recommend_str;
    my $allrows = $sth->numrows;
	
	for (my $i=0;$i<$allrows;$i++){
		@row=$sth->FetchRow;
		
		if ($#keywords ne "-1"){
			foreach my $keywords(@keywords){
				$row[1]=~s/$keywords/<font color=red>$keywords<\/font>/gi;
				$row[3]=~s/$keywords/<font color=red>$keywords<\/font>/gi;
			}
		}
		
		if (($language eq $ec_en) and ($row[5] !~ /[a-zA-Z0-9\s]/)){	$row[5] = "";}
		
		#新公司
		#who do it  !!!!
		$temp=$dbh->Query("select 1 from companies where id=$row[0] and now() < adddate(dotime,interval 7 day)");
		if ($temp->numrows != 0) {$newc="<img src=/image/dot.gif width=15 height=1><img src=/image/news.gif width=25 height=14>"; }
        
		$list .="<br><img src=/image_2/color-dot.gif hspace=5><a href=company.pl?website=$row[2] class=yy target=_blank><b>$row[1]</b></a> 
			$row[5].$row[4]$newc
			<br><img src=/image/dot.gif width=15 height=1>$row[3]
			<br>$dot[$words]\n";
    }
    # over
	
	$list .= "</td></tr></table>";
    $tag4 = $list;

}
###############################################
# over searchcompany




# search bbs
 #############################################
sub searchbbs{
    #时间的定义：美国-7 中国+8
	my $posttime = "posttime";

#	if ($ismember) {
#	   $posttime="adddate(posttime,interval $ms_timezone+7 hour)";
#	}else {
#	   if ($language eq $ec_gb) {
#	      $posttime="adddate(posttime,interval 15 hour)";  
#	   }   
#	}

    $que="select msg_title,regionalcode,sellorbuy,$posttime,msg_id,nickname,truename,city,answer_count,length(substring(nickname,1,1)),substring($posttime,1,10) ,vip_flag, YEARWEEK($posttime),aspid ,trustlead_nickname from bbs
		where language = '$language'";
#Eagles修改2001-9-11

    # it's written for multi condition
    if ($keyword2 ne ""){
		if ($keyword2=~/^\".*\"$/) {
		   $keyword2=~s/\"//g; 
		   @keywords=($keyword2);
           $que .=" and (keyword like '%$keyword2%' or msg_title like '%$keyword2%')";
		}elsif ($keyword2=~/ /){	# split " " as "or"
	    	@keywords=split(/ +/,$keyword2);
	    	$que .=" and (keyword<>keyword";
	    	
	    	foreach my $keywords(@keywords){
	    		$que.=" or keyword like '%$keywords%' or msg_title like '%$keywords%'";
	    	}
	    		
	    	$que.=")";    		
	    #+,-号功能
	    }elsif ($keyword2=~/\+/) { 
	        @keywords=split(/\+/,$keyword2);# split + as and
            foreach my $keywords(@keywords){
	    		$que.=" and (keyword like '%$keywords%' or msg_title like '%$keywords%')";
	    	}
		}elsif ($keyword2=~/-/){
		    @keywords=split(/-/,$keyword2);# split - as and not
            for (my $i=1;$i<=@keywords;$i++) {
                if ($i%2) {
                	$que.=" and (keyword like '%$keywords[$i-1]%' or msg_title like '%$keywords[$i-1]%')";
                }else{
				    $que.=" and (keyword not like '%$keywords[$i-1]%' and msg_title not like '%$keywords[$i-1]%')";
				}
	    	}
		}else{
    	    @keywords=($keyword2);
    	    $que .=" and (keyword like '%$keyword2%' or msg_title like '%$keyword2%')";
        }
	}#

    if ($trade ne 'N/A'){	
    	$que .=" and (trade like '$trade%'";
    	$que920 = ")";
    }
    
    # added by David
    if ($attrade){	$que .=" or trade like '$attrade%'";    }
    $que .= $que920;
    # # # #
    
    if (defined($form{'region'})){
    	$region=$form{'region'};
    }else{
    	$region="N/A";
    }
    if ($region ne 'N/A'){	$que .=" and regionalcode='$region'";    }
    if (defined($form{'sellorbuy'})){
    	$sellorbuy=$form{'sellorbuy'};
    }else{
    	$sellorbuy="all";
    }
    
    # advanced 有优先权
    my $tmpque = "";
    if ($showonly ne "all"){        $tmpque = " and sellorbuy = '$showonly' ";    }
    if ($sellorbuy ne "all"){    	$tmpque = " and sellorbuy = '$sellorbuy' ";    }
    $que .= $tmpque;
    #
    
#	$que .= " and posttime > date_sub('$today',Interval $timefield day)";
#	$que .= " and posttime > '20010601000000' ";
# 	modify by wuhao for VIP membership
    $que .= " order by 13 desc, 12 desc , 10 desc,5 desc";
    
    
	if ($language eq $ec_gb) {
	   #$que=~s/like/REGEXP/sgi;
	   #$que=~s/\%/\.\*/sgi;
	}   
	
	
	# get $total
    if (not defined($form{'total'})){
    	$que=~/where (.*?) order/si;
		$que1111="select count(*) from bbs where $1";
		$sth=$dbh->Query($que1111) || &err($dbh->errmsg."<br><!--$que1111-->"); 
		@t1111=$sth->fetchrow;
		$total = $t1111[0];
    }else{
    	$total = $form{'total'};
    }
    
	$que .= " limit $beginnum,$long"; 
&log;
	#&echo($que);
	$sth=$dbh->Query($que) || &err($dbh->errmsg); 
    
	# get param to next page
    if ($keyword ne "")	{$param .="&keyword=$nextkeyword";}
    if ($trade ne "N/A")     	{$param .="&trade=$trade";}
    if ($region ne "N/A")	 	{$param .="&region=$region";}
    if ($sellorbuy ne "all")	{$param .="&sellorbuy=$sellorbuy";}
    #

    # create result list
    my $list = "<!--\n$que\n--><table width=100% border=0 class=dd cellspacing=0 cellpadding=0><tr><td>";
    my $allrows = $sth->numrows;
	
	for (my $i=0;$i<$allrows;$i++){
		@row=$sth->FetchRow;
	
		# 关键字加亮
		if ($#keywords ne "-1"){
			foreach my $keywords(@keywords){
				$row[0]=~s/$keywords/<font color=red>$keywords<\/font>/gi;
				$row[1]=~s/$keywords/<font color=red>$keywords<\/font>/gi;
				$row[3]=~s/$keywords/<font color=red>$keywords<\/font>/gi;
			}
		}#
		
		# get wheather membership
		my $ismember;	
		if (not length($row[5])){
			$ismember="";
		}else{
			if ($language eq $ec_en){
				$ismember="<font color=#0066CC><b>Member</b></font>";
				if($row[11] >= 100){
				$ismember="<a href='http://www.trustlead.com/companys/companys_card.php?func=viewCardEn&nickname=$row[14]' target='_blank'><img src='/image/icon_trust.gif' border='0' alt='诚信先锋'/></a>";

				}
			}else{
				# VIP会员
				if($row[11]>=100){
					$ismember="<a href='http://www.trustlead.com/companys/companys_card.php?func=viewCard&nickname=$row[14]' target='_blank'><img src='/image/icon_trust.gif' border='0' alt='诚信先锋'/></a>";
				}else{
					if($row[11]>= 10 ){
						$ismember="<font color=red><b>VIP会员</b></font>";
					}else{
						$ismember="<font color=#0066CC><b>会员</b></font>";
					}
				}
			}
		}
		


		# translate into chinese display
		if ($language ne $ec_en){
			if ($row[2] eq "Sell"){
				$row[2]="<font color=#CC0066>[卖]</font>";
			}elsif ($row[2] eq "Buy"){
				$row[2]="<font color=#339999>[买]</font>";
			}else{
				$row[2]="<font color=#993399>[合作机会]</font>";
	    	}
	    }else{
	    	if ($row[2] eq "Sell"){
				$row[2]="<font color=#CC0066>[$row[2]]</font>";
			}elsif ($row[2] eq "Buy"){
				$row[2]="<font color=#339999>[$row[2]]</font>";
			}else{
				$row[2]="<font color=#993399>[$row[2]]</font>";
	    	}
	    }#
		
		my $ishot="";	# whether or not hot
		if ($row[8]>=5){$ishot="<font color=red><b>[hot]</b></font>";}
				
		if ($language eq $ec_en){
			if ($row[7] !~ /[a-zA-Z0-9\s]/){	$row[7] = "";}
			if ($row[6] !~ /[a-zA-Z0-9\s]/){	$row[6] = $row[5];}
		}
		
		$list .= "<br><img src=/image_2/color-dot.gif hspace=5><font class=dd><a href=/bin/bbs_detail.pl?msg_id=$row[4]&language=$language class=yy target=_blank><b>$row[0]</b></a> $ishot <br>\n
			<img src=/image/dot.gif width=15 height=1>$ismember ($row[10]) $row[2] $row[6] $row[7].$row[1]
			<br>$dot[$words]</font>\n";
    }# over
    
    $list .= "</td></tr></table>";
    $tag4 = $list;
    
}
#############################################
# over searchbbs
 
 
 
 
# search product
#############################################
sub searchproduct{

    my $total1;
    
    $que="select b.truename,0+b.roomnum,a.wname,a.description,a.wnum,b.nickname
		 from w_info a,membership b
		 where a.roomnum = b.roomnum
		 and a.language='$language'";
		     
    if ($keyword2 ne ""){
		if ($keyword2=~/^\".*\"$/) {
		   $keyword2=~s/\"//g; 
		   @keywords=($keyword2);
           $que .=" and (keyword like '%$keyword2%' or wname like '%$keyword2%')";
		}elsif ($keyword2=~/ /){	# split " " as "or"
	    	@keywords=split(/ +/,$keyword2);
	    	$que .=" and (keyword<>keyword";
	    	
	    	foreach my $keywords(@keywords){
	    		$que.=" or keyword like '%$keywords%' or wname like '%$keywords%'";
	    	}
	    		
	    	$que.=")";    		
	    #+,-号功能
	    }elsif ($keyword2=~/\+/) { 
	        @keywords=split(/\+/,$keyword2);# split + as and
            foreach my $keywords(@keywords){
	    		$que.=" and (keyword like '%$keywords%' or wname like '%$keywords%')";
	    	}
		}elsif ($keyword2=~/-/){
		    @keywords=split(/-/,$keyword2);# split - as and not
            for (my $i=1;$i<=@keywords;$i++) {
                if ($i%2) {
                	$que.=" and (keyword like '%$keywords[$i-1]%' or wname like '%$keywords[$i-1]%')";
                }else{
				    $que.=" and (keyword not like '%$keywords[$i-1]%' and wname not like '%$keywords[$i-1]%')";
				}
	    	}
		}else{
    	    @keywords=($keyword2);
    	    $que .=" and (keyword like '%$keyword2%' or wname like '%$keyword2%')";
        }
    }
    
    if ($trade ne 'N/A'){	
    	$que .=" and (tradecode like '$trade%'";    
    	$que920 = ")";
    }
    
    # added by David
    if ($attrade){	$que .=" or tradecode like '$attrade%'";    }
    $que .= $que920;
    # # # #

    $que .= " order by a.settime desc,b.roomnum desc";
    
	if ($language eq $ec_gb) {
	   #$que=~s/like/REGEXP/sgi;
	   #$que=~s/\%/\.\*/sgi;
	}   
	
	# get $total
    $sth=$dbh->Query($que) || &err("DATABASE ERROR<br><!--$que-->"); 
	$total = $sth->numrows;
    $total1 = $total;
    if (defined($form{'total'})){  	$total = $form{'total'};    }
    
	$que .= " limit $beginnum,$long"; 
	#&echo($que);
	$sth=$dbh->Query($que) || &err("DATABASE ERROR"); 
    
	
    # get param to next page
    if ($keyword ne "")	{$param .="&keyword=$nextkeyword";}
    if ($trade ne "N/A"){$param .="&trade=$trade";}
    
    # create result list
    my $list = "<table width=100% border=0 class=dd cellspacing=0 cellpadding=0><tr><td>";
    my $allrows = $sth->numrows;
	
	for (my $i=0;$i<$allrows;$i++){
		@row=$sth->FetchRow;
	
		#change color for matching text 
		if ($#keywords ne "-1"){
			foreach my $keywords(@keywords){
				$row[2]=~s/$keywords/<font color=red>$keywords<\/font>/gi;
				if ($row[3]){$row[3]=~s/$keywords/<font color=red>$keywords<\/font>/gi;	}
			}
		}#
		
		if (($row[0] !~ /[a-zA-Z0-9\s]/) and ($language eq $ec_en)){	$row[0] = $row[5];		}
		$row[1] = "/bin/sample/sample.pl?roomnum=$row[1]&wnum=$row[4]&preview=ok&language=$language";
		$list .="<br><a href=$row[1] class=yy target=_blank><b>$row[2]</b></a> ( $row[0] ) 
                <br><font class=dd>$row[3]
                <br>$dot[$words]</font>\n";
	}
    # over
    
    
    # 再列产品
	if ($allrows < $long){
		$que="select product_id,productname,url,briefintro
		 	from products
		 	where language='$language' ";

	if ($#keywords > -1){
		$que .=" and (keyword<>keyword";
		foreach my $keywords(@keywords){
			$que .=" or keyword like '%$keywords%' or productname like '%$keywords%'";
		}
		$que.=")";
	}
    if ($trade ne 'N/A'){	$que .=" and catalog like '$trade%'";    }
	$que .= " order by companyid desc";
	if (not $allrows){	$allrows = -$total1;}
	my $pbegin = $beginnum + $allrows;
	my $plong = $long - $allrows;
		  		
	if (not defined($form{'total'})){
	   	$sth=$dbh->Query($que); 
	   	$total += $sth->numrows;
	}else{
	  	$total = $form{'total'};
	}
    
	$que .=  " limit $pbegin,$plong";
&log ;
	$sth=$dbh->Query($que);
		
	for (my $i=0;$i<$sth->numrows;$i++){
		@row=$sth->fetchrow;
		$list .="<br><img src=/image_2/color-dot.gif hspace=5><a href=$row[2] class=yy target=_blank><b>$row[1]</b></a>
            <br><img src=/image/dot.gif width=15 height=1><font class=dd>$row[3]
            <br>$dot[$words]</font>\n";
		}
	}

    $list .= "</td></tr></table>";
    $tag4 =$list;
}
#############################################
# over searchproduct
 

 
###################
sub genlist{

	my $what = "@_";
	my $num;
	
    my $tem=$ep[$words]."trade";
	my $leng = length($code);
	my $addsql;
	my $addlist;
		
	if ($code){
		$addsql="select tradecode,$tem,unicode from trade where length(tradecode)='$leng'+2 and left(tradecode,$leng)='$code' order by etrade";
	}else{
		$addsql="select tradecode,$tem,unicode from trade where length(tradecode)=2 order by etrade";
	}
	
	my $addqry=$dbh->Query($addsql);
	if ($addqry->numrows > 0){
    	my $addqry2;
        my @addtmp;
        my $addi;
                        
        if ($language eq $ec_gb){
        	$addlist = "<table border=0 cellpadding=0 width=100% class=dd>
	        	<tr><td valign=top width=30%></td>
	         	<td valign=top width=30%></td>
	         	<td valign=top></td><tr>\n";
	    }else{
	    	$addlist = "<table border=0 cellpadding=0 width=100% class=pp>
	        	<tr><td valign=top width=50%></td>
	         	<td valign=top></td><tr>\n";	    
	    }
                        
        for($addi=0; $addi<$addqry->numrows; $addi++){
        	@addtmp=$addqry->fetchrow;
            $at = "";
            $num = "";
               
            # get @ trade
            if (length($addtmp[2])>0){
            	$addtmp[0] = $addtmp[2];
               	$at = "\@";
            }#
            my $subsql;
                              
            if ($what eq "bbs"){
    			$addsql="select count(*) from bbs where language='$language' 
            		and trade like '$addtmp[0]%' ";

#            		and posttime > date_sub('$today',Interval $timefield day)";
#					and posttime > '20010601000000' ";
            }
               if ($what eq "company"){
    				
    				$addsql="select count(*) 
               				from companies where language='$language' 
               				and (major_trade like '$addtmp[0]%' or minor_trade like '%$addtmp[0]%')";
               		
               }
               if ($what eq "product"){
    				
    				$addsql="select count(*) from w_info where language = '$language' 
               				and tradecode like '$addtmp[0]%'";
                    $addsql2="select count(*) from products where language = '$language' 
               				and catalog like '$addtmp[0]%'";
               		
               }
               
               
               $addlist .= "<td><a href=\"/bin/search.pl?language=$language&go=$what&trade=$addtmp[0]\">$addtmp[1]</a>";
               my $addqry2=$dbh->Query($addsql);
               my $addqry3=$dbh->Query($addsql2) if ($addsql2);
               @addtmp=$addqry2->fetchrow;
               @addtmp2=$addqry3->fetchrow if ($addqry3);
		$addtmp[0]+=$addtmp2[0] if (@addtmp2);

               
               if (not $at){$num = "(<font color=#CC0033>$addtmp[0]</font>)"; }
               		
               $addlist .= " $num $at</td>";
               #if ($addtmp[0] == 0 or $addtmp[1]>30){
               #		$addlist .= " $num $at</td>";
               #}else{
               #     $addlist .= " $num $at <img alt=\" [new]\" src=\"/image/p_new_01.gif\"></td>";
               #}
               
               if ($language eq $ec_gb){
               		if (($addi+1)%3 eq 0){$addlist .= "</tr>\n";}
               }else{
               		if (($addi+1)%2 eq 0){$addlist .= "</tr>\n";}
               }

         }
         
         $addlist .= "</table>\n";
         
      }else{
      
      	 $addlist = "<br>";	
      }
    
    
    $tradelist = $addlist; 
    
}
############



####################
sub setcookie {
	
my $path = "/";
my $domain = $ENV{'SERVER_NAME'};
$setcookie = 1;
    		   
# set the cookie
print "Set-Cookie: showonly\=$form{'showonly'}; path\=$path; domain\=$domain;\n";

}
###################