<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
<!--#include file="../inc/classcount.asp"-->
<%
show=Replace_Text(request("show"))
keywords=Replace_Text(request("keywords"))
qylb=Replace_Text(request("qylb"))
sortid=replace_text(request("sortid"))
typeid=replace_text(request("typeid"))
country=Replace_Text(request("country1"))
sf=Replace_Text(request("province"))
city=Replace_Text(request("city"))
%>
<%
sql="select * from corporation where zycp like '%"&keywords&"%' and cflag=1"
if Chkrequest(sortid) then sql=sql&" and sortid="&sortid&""
if Chkrequest(typeid) then sql=sql&" and typeid="&typeid&""
if country>"" then sql=sql&" and country='"&country&"'"
if sf>"" then sql=sql&" and sf='"&sf&"'"
if city>"" then sql=sql&" and city='"&city&"'"

if qylb>"" then sql=sql&" and qylb like '%"&qylb&"%'"

if show="trust_score" then
sql=sql&" order by trust_score desc"
else
sql=sql&" order by id desc"
end if

Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 

msg_per_page=20 '定义每页显示记录条数
%>
<%
Function showinfosalecount()
if Chkrequest(sortid) then
if Getsearchsortcount1>=0 then showinfosalecount=Getsearchsortcount1
elseif Chkrequest(typeid) then
if Getsearchtypecount1>=0 then showinfosalecount=Getsearchtypecount1
else
if Getsearchsalecount1>=0 then showinfosalecount=Getsearchsalecount1
end if
End Function

Function showproductcount()
if Chkrequest(sortid) then
if Getsearchprosortcount>=0 then showproductcount=Getsearchprosortcount
elseif Chkrequest(typeid) then
if Getsearchprotypecount>=0 then showproductcount=Getsearchprotypecount
else
if Getsearchprocount>=0 then showproductcount=Getsearchprocount
end if
End Function
%>
<!--#include file="../inc/headpage.asp"-->
<style type="text/css">
<!--
.searchbar1 {BORDER-TOP: #f1f1f1 3px solid;  FONT-WEIGHT: bold; BACKGROUND: #e7e7e7; BORDER-BOTTOM: #bebebe 3px solid; FONT-FAMILY: 宋体; padding-top:3px}
.companybar1 {background:url("/seller/images/search_bg.gif");border:#999999 solid;border-width:1 1 0 1;height:29px;border-bottom:#666666 3 solid;text-align:center;font:bold 14px;padding-top:4px;}
.orangeborder {border:#CC3300 2 solid;padding-left: 15px}
.cate {padding-left: 14px;font-size:12px;LINE-HEIGHT: 150%;}
.smalltoppad3 {padding-top:3px}
-->
</style>
<!--#include file="headcor.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Br>
<table width="98%"  border="0" align="center" cellpadding="10" cellspacing="0"  class=outborder>
  <tr>
    <td bgcolor="E7E7E7">
      <table width="100%"  border="0" cellspacing="0" cellpadding="2">
        <tr>
          <td> <b>“<font color=FF0000><%=keywords%></font>”的相关公司共 <%if totalrec>0 then response.write""&totalrec&"" else response.write"0" end if%>  条</b><br>          </td>
          <td align=right class=S> <a href="/staric/index.asp"><img src="../images/trust1.gif" width=22 height=14 border=0  align=absmiddle></a> <font color=939393>商贸通会员 | <img src="../images/brand.gif" width=21 height=23 align=absmiddle> 网上有名</font> 
        </tr>
      </table>
      <table width="100%"  border="0" cellspacing="0" cellpadding="3">
        <tr>
          <td width=165 class="nobianbuttonborder M blackbordernobottom"  nowrap>
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td>&nbsp;</td>
                <td><div align="left"><b><a href="searchsale.asp?sortid=<%=sortid%>&typeid=<%=typeid%>&keywords=<%=keywords%>">供应信息</a></b> <b>(<%=showinfosalecount%>)</b></div></td>
              </tr>
          </table></td>
          <td rowspan=3 class="orangeborder" bgcolor=#FFFFFF>
            <table width="100%"  border="0" cellspacing="0" cellpadding="7">
              <tr>
                <td><img src="../images/icon_point.gif" border=0 width=18 height=19  align=absmiddle> <span class="text13">
                  <%response.write"<A href='searchcor.asp?typeid="&typeid&"'>所有公司</a>"%>
                  <img src="../images/icon_point.gif" border=0 width=18 height=19  align=absmiddle> <b><a 
            href="../member/corporation/company_edit.asp">发布公司介绍</a></b> <img src="../images/icon_point.gif" border=0 width=18 height=19  align=absmiddle></span> <span class="text13"><b><a 
            href="../member/corporation/company_edit.asp">修改公司介绍</a> <img src="../images/icon_point.gif" border=0 width=18 height=19  align=absmiddle> <b><a 
            href="../member/myemail/orderbegin.asp" class=red>按关键字订阅商机</a></b></b></span></td>
              </tr>
              <tr>
                <td><TABLE cellSpacing=0 cellPadding=0 border=0>
                  <FORM name=frmAreaSearch action="searchcor.asp?sortid=<%=sortid%>&typeid=<%=typeid%>&keywords=<%=keywords%>" method=post>
                    <TBODY>
                      <TR>
                        <TD class=text13 noWrap>过滤公司：
                            <SELECT name=qylb>
                              <OPTION value="" selected>所有经营模式</OPTION>
                              <OPTION value="生产型">生产型</OPTION>
                              <OPTION 
                          value="贸易型">贸易型</OPTION>
                              <OPTION value="服务型">服务型</OPTION>
                              <OPTION value="政府或其他机构">政府或其他机构</OPTION>
                            </SELECT>
          地区
          <SELECT style="WIDTH: 90px" 
            onchange=javascript:changeCountry1(this); name=country1>
          </SELECT>
          <SELECT style="WIDTH: 60px" 
            onchange=changeProvince(this); name=province>
            <OPTION value="" 
              selected>省份</OPTION>
          </SELECT>
          <SELECT name=city>
            <OPTION value="" 
              selected>地级</OPTION>
          </SELECT>
          <input name="imageField" type="image" src="../seller/images/search.gif" align="top" width="65" height="22" border="0">
</TD>
                      </TR>
                  </FORM>
                </TABLE>
				<SCRIPT language=javascript src="../js/area.js"    
      purpose="INITIALIZER"></SCRIPT>
	  <SCRIPT language=javascript>
<!--
    //设置国家1的缺省值
    for (var i=0;i<5;i++){
	    if (country1Form1.options[i].value == '<%=country%>'){
		    country1Form1.options[i].selected=true;
		}
	}

    for (var i=0;i<catArr1.length;i++) {
		catForm1.options[i+1]=new Option(catArr1[i].title,catArr1[i].id);
		//设置省选择框的选择值
		if(catForm1.options[i+1].value == '<%if country="中国" then response.write""&sf&""%>'){
	        	catForm1.options[i+1].selected=true;
	        }
	}
	changeProvince(catForm1);
	var len = boardForm1.options.length;
	for (var i=0;i<len;i++) {
		//设置城市选择框的选择值
		if(boardForm1.options[i].value == '<%if country="中国" then response.write""&city&""%>') {
		    boardForm1.options[i].selected=true;
		}
	}
	
    if (country1Form1.options[country1Form1.selectedIndex].value!='中国') {
	    catForm1.style.display = 'none';
	    boardForm1.style.display = 'none';
		}
			 //设置公司类别的缺省值
    for (var i=0;i<5;i++){
       if (document.frmAreaSearch.qylb[i].value =='<%=qylb%>'){
            document.frmAreaSearch.qylb[i].selected = true;
        }
    }
-->
</SCRIPT>				</td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td class="nobianbuttonborder M blackbordernobottom"  nowrap>
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td>&nbsp;</td>
                <td><div align="left"><b><a href="searchproduct.asp?sortid=<%=sortid%>&typeid=<%=typeid%>&keywords=<%=keywords%>">产品目录</a> (<%=showproductcount%>)</b></div></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td class="buttoncolor M" nowrap>
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td>&nbsp;</td>
                <td align="left"><b><font color=FFFFFF>相关公司 <%if totalrec>0 then response.write"("&totalrec&")" else response.write"(0)" end if%></font></b></td>
              </tr>
          </table></td>
        </tr>
    </table></td>
  </tr>
</table>
<br>
<table width="98%"  border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
     <td width="170" valign="top" style="BORDER-BOTTOM: #FFFFFF 20px solid;">
       <table width="170"  border="0" cellspacing="0" cellpadding="5" class="outborder">
  <tr>
    <td bgcolor=#B8B8B8>
      <table width="170"  border="0" cellspacing="0" cellpadding="5" class="outborder">
        <tr>
          <td height="117" class="searchbar1">
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="../seller/images/img_search.gif"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <form name=searchForm action="../select.asp" 
    onSubmit="javascript:if(doSearch()==false) return false;" method=post>
                <tr>
                  <td>
                    <table width="100%"  border="0" cellspacing="0" cellpadding="3">
                      <tr>
                        <td colspan="2">
                          <input type="text" name="keywords" value="<%=keywords%>" size="23">
                        </td>
                      </tr>
                      <tr>
                        <td>
                          <select name="which" class="text13">
                            <option value="all">供求信息</option>
                            <option value="sale">供应信息</option>
                            <option value="buy">求购信息</option>
                            <option value="productshow">产品目录</option>
                            <option value="corporation" selected>公司库</option>
                            <option value="news">行业资讯</option>
                          </select></td>
                        <td>
                          <input name="imageField2" type="image" src="../images/serch.gif" align="top" width="65" height="22" border="0"></td>
                      </tr>
                      <tr>
                        <td colspan="2"><img src="../images/icon_point.gif" width="18" align="absmiddle"> <a href="../help/Search_Answer.asp"><b>如何搜索</b></a></td>
                      </tr>
                  </table></td>
                </tr>
              </form>
          </table></td>
        </tr>
      </table>
      <script language='JavaScript' src='../js/search.js' type='text/javascript'></script>
          <br>
		    <%
if not(rs.eof and rs.bof) then
%>
      <table  border="0" cellspacing="0"  width="170" cellpadding="5" class="outborder">
        <tr>
          <td height=28 class="searchbar1">&nbsp;搜索结果分类</td>
        </tr>
        <tr>
          <td class="text13" bgcolor=#FFFFFF> 
<%
if Chkrequest(sortid) then
sortsql="select class_2.typeid,class_2.typename,class_1.* from class_2,class_1 where class_2.sortid="&sortid&" and class_1.sortid=class_2.sortid"
Set rssort= Server.CreateObject("ADODB.Recordset") 
rssort.open sortsql,conn,1,1
if rssort.eof then
response.write"暂无信息"
else
if Getsearchsortcount12>0 then response.write"<b><A href='searchcor.asp?sortid="&sortid&"&keywords="&keywords&"'>"&rssort("sort")&"</A> ("&Getsearchsortcount12&")</b><br>"
do while not rssort.eof
response.write"<span class=lh15>"
if Getsearchtypecount12>0 then response.write"·<a href='searchcor.asp?typeid="&rssort("typeid")&"&keywords="&keywords&"' class=s>"&rssort("typename")&"</a> ("&Getsearchtypecount12&")<br>"
rssort.movenext    
loop
end if
rssort.close
set rssort=nothing


elseif Chkrequest(typeid) then
typesql="select class_2.typeid,class_2.typename,class_1.* from class_2,class_1 where class_2.typeid="&typeid&" and class_1.sortid=class_2.sortid"
Set rstype= Server.CreateObject("ADODB.Recordset") 
rstype.open typesql,conn,1,1
if rstype.eof then
response.write"暂无信息"
else
if Getsearchsortcount13>0 then response.write"<b><A href='searchcor.asp?sortid="&rstype("sortid")&"&keywords="&keywords&"'>"&rstype("sort")&"</A> ("&Getsearchsortcount13&")</b><br><span class=lh15>"
if Getsearchtypecount1_1_1_1>0 then response.write"·<a href='searchcor.asp?typeid="&rstype("typeid")&"&keywords="&keywords&"' class=s>"&rstype("typename")&"</a> ("&Getsearchtypecount1_1_1_1&")<br>"
end if
rstype.close
set rstype=nothing

else

sortsql="select * from class_1"   
Set rssort= Server.CreateObject("ADODB.Recordset") 
rssort.open sortsql,conn,1,1
if rssort.eof then
response.write"暂无信息"
else
do while not rssort.eof
response.write"<span class=lh15>"
if Getsearchcorsortcount1>0 then response.write"<b><A href='searchcor.asp?sortid="&rssort("sortid")&"&keywords="&keywords&"'>"&rssort("sort")&"</A> ("&Getsearchcorsortcount1&")</b><br>"
typesql="select * from class_2 where sortid="&rssort("sortid")&""
Set rstype= Server.CreateObject("ADODB.Recordset") 
rstype.open typesql,conn,1,1
if rstype.eof then
response.write"暂无信息"
else
do while not rstype.eof
if Getsearchcortypecount1>0 then response.write"·<a href='searchcor.asp?typeid="&rstype("typeid")&"&keywords="&keywords&"' class=s>"&rstype("typename")&"</a> ("&Getsearchcortypecount1&")<br>"
rstype.movenext    
loop
end if
rstype.close
set rstype=nothing
rssort.movenext
loop
end if
rssort.close
set rssort=nothing
end if
%>
<br>
</td>
</table>
	<%end if%>
	</td>
  </tr>
</table>
</td>
<td width="10">&nbsp;</td>
<td valign=top>
<%
if rs.eof then
response.Write"<div align='center'>暂无任何信息</div>"
else
%>
<TABLE width="100%" height=40 border="0" align="center" cellpadding="0" cellspacing="1">
    <TBODY>
      <TR>
        <TD bgcolor=E7E7E7 align=center width=10% class=S>
          <table border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><a href="javascript:win=window.open('../help/trust_score.asp','contact','width=550,height=450,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();"><img src="../images/icon_trust_score_help.gif" alt="什么是商贸通指数" width="19" height="19" border="0"></a></td>
              <td><span class="s">
                <%response.write"<A href='searchcor.asp?sortid="&sortid&"&typeid="&typeid&"&keywords="&keywords&"&country1="&country&"&province="&sf&"&city="&city&"&datetime="&datetime&"&show=trust_score'class=S><font color=666666>按商贸通<br>指数排序</A>"%>
              </span> </td>
            </tr>
        </table></TD>
        <TD bgcolor=E7E7E7 align=center width=40% class=S><font color=#666666>公司/主营产品、服务</font></TD>
        <TD bgcolor=E7E7E7 align=center width=8% class=S><font color=#666666>成立日期</font></TD>
        <TD bgcolor=E7E7E7 align=center width=8% class=S><font color=#666666>员工人数</font></TD>
        <TD bgcolor=E7E7E7 align=center width=10% class=S><font color=#666666>注册资本(元)</font></TD>
        <TD bgcolor=E7E7E7 align=center width=10% class=S><font color=#666666>年营业额(元)</font></TD>
        <TD bgcolor=E7E7E7 align=center width=10% class=S><font color=#666666>在线留言</font></TD>
      </TR>
    </TBODY>
</TABLE>	  
<%do while not rs.eof and rowcount > 0%>
      <TABLE width="100%" border=0 align="center" cellPadding=5 cellSpacing=0>
  <TBODY>
  <TR <%if icolor=0 then response.write"bgColor=#ffffff" else response.write"bgColor=#f6f6f6" end if%> onMouseOver="this.style.backgroundColor='#FFF8F4'" onMouseOut="this.style.backgroundColor='<%if icolor=0 then response.write"#ffffff" else response.write"#f6f6f6" end if%>'">
    <TD align=middle width=10%>
	  <div align="center">
	      <%if rs("flag")=1 then%>
        <IMG height=14 alt=商贸通指数 
      src="../images/trust1.gif" width=22 align=absMiddle 
      border=0><BR>
      <A class=numb title=商贸通指数 
      href="../trustadv/rempost.asp?id=<%=rs("id")%>" target="_blank"><FONT 
      style="FONT-WEIGHT: bold; FONT-SIZE: 13px; FONT-FAMILY: Verdana"><%=rs("trust_score")%></FONT></A> 
<%else%>
	   <table  border="0" align="center" cellpadding="0" cellspacing="0">
         <tr>
           <td><span class="S">普通<br>会员</span></td>
         </tr>
       </table>
	   <%end if%>
	    </div></TD>
    <TD width=40% class=cate style="WORD-BREAK: break-all"><%if rs("flag")=1 then%><A href="../<%=rs("url")%>" target=_blank><STRONG><%=rs("qymc")%></STRONG></A> <IMG height=25 src="../tradeinfo/images/brand.gif" width=21 align=absMiddle border=0>      <%else%><A href="../noshinecompany/index.asp?id=<%=rs("id")%>" target=_blank><STRONG><%=rs("qymc")%></STRONG></A><%end if%>
	  <BR><FONT class=C 
      color=#666666>[<%if rs("country")="中国" then response.write""&rs("sf")&""&rs("city")&"" else response.write""&rs("country")&""%>]</FONT> <FONT color=#666666>(<%=rs("qylb")%>) </FONT><BR>
	  <FONT 
      class=s><span color=#666666>主营产品/服务：<% Set re = New RegExp
re.Pattern ="("&keywords&")"
re.IgnoreCase = True
re.Global=True
result = re.Replace(rs("zycp"), "<font color=red>$1</font>")%><%=result%></FONT><BR>
	  <FONT class=s color=#666666><%=left(rs("qyjj"),80)%>……</font></TD>
    <TD class=lh15 width=8%>&nbsp;</TD>
    <TD class=lh15 width=8%>&nbsp;</TD>
    <TD class=lh15 width=10%>&nbsp;</TD>
    <TD class=lh15 width=10%>&nbsp;</TD>
    <TD width=10% align=middle><div align="center"><a href="../member/getprice/message_company.asp?id=<%=rs("id")%>" target="_blank"><img src="../images/list_mytlogo_offline.gif" width="26" height="26" border="0"></a><br>
        <a href="../member/getprice/message_company.asp?id=<%=rs("id")%>" target="_blank" class="S">发送留言</a></div></TD>
  </TR></TBODY></TABLE>
<br>
<%
icolor=icolor+1
if icolor>1 then icolor=0
rowcount=rowcount-1
rs.movenext
loop
end if
%>
<br>
 <TABLE width="100%" 
        border=0 cellPadding=4 cellSpacing=0 style="BORDER-TOP: #9C9A9C 1px solid;BORDER-Bottom: #9C9A9C 1px solid">
                <TBODY>
                  <TR>
                    <TD class=c align=middle><%=listPages2("searchcor.asp?sortid="&sortid&"&typeid="&typeid&"&keywords="&keywords&"&qylb="&qylb&"&country1="&country&"&province="&sf&"&city="&city&"&datetime="&datetime&"&show="&show&"")%></TD>
                  </TR>
                </TBODY>
      </TABLE>
    </td>
  </tr>
</table>	      
<!--#include file="../inc/end.asp"-->
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>