<%=webname%>公司库搜索

<% data_path="" 'ACC连接数据库路径，对SQL无效 %> <% HOPE_className=3 HOPE_className_new=5 HOPE_searchName="searchcom.asp" keywords=Replace_Text(request("keywords")) if keywords<>"" then HOPE_classKeywords=keywords else HOPE_classKeywords="请输入你感兴趣的公司信息" end if %> <%=webname%>公司库搜索 <% seakind=Replace_Text(request("seakind")) '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ '处理种类的id号 sortid=Replace_Text(Request.form("topCatFormKey")) '第一类 typeid=Replace_Text(Request.form("secondCatFormKey")) '第二类 if typeid="" then typeid=0 end if typeid_2=Replace_Text(Request.form("leafCatFormKey")) if typeid_2="" then typeid_2=0 end if '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ keywords=replace_text(request("keywords")) proadd=replace_text(request("proadd")) country=Replace_Text(request("country1")) sf=Replace_Text(request("province")) city=Replace_Text(request("city")) DateTime=replace_text(request("DateTime")) comkind=replace_text(request("comkind")) if comkind="" then comkind="all" end if sadddate=month(date()) ' ' If Database_type=1 Then ' 'sql="select * from Yixiang_corporation left join yixiang_history_price on Yixiang_corporation.id=yixiang_history_price.gsid and yixiang_history_price.keywords = '"&keywords&"' and month(yixiang_history_price.begintime)="&sadddate&" where yixiang_corporation.flag=1" ' 'else sql="select * from Yixiang_corporation where flag=1" 'end if if keywords<>"" then sql=sql&" and (Yixiang_corporation.zycp like '%"&keywords&"%' or Yixiang_corporation.qymc like '%"&keywords&"%' )" if Chkrequest(sortid) then if sortid<>0 then sql=sql&" and Yixiang_corporation.sortid="&sortid&"" if Chkrequest(typeid) then sql=sql&" and Yixiang_corporation.typeid="&typeid&"" end if if Chkrequest(typeid_2) then sql=sql&" and Yixiang_corporation.typeid_2="&typeid_2&"" end if end if end if if country<>"" then sql=sql&" and Yixiang_corporation.country like '%"&country&"%'" if sf<>"" then sql=sql&" and Yixiang_corporation.sf like '%"&sf&"%'" if city<>"" then sql=sql&" and Yixiang_corporation.city like '%"&city&"%'" if comkind<>"all" then sql=sql&" and Yixiang_corporation.qylb like '%"&comkind&"%'" ' If Database_type=1 Then ' ' sql=sql&" order by yixiang_history_price.price desc,Yixiang_corporation.trust_score desc " ' else sql=sql&" order by trust_score desc " 'end if Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 msg_per_page=20 '定义每页显示记录条数 %>

最近搜索词: <%=Replace(Request.Cookies("zhuyongjian"),","," | ")%>

<% do while not rs.eof and rowcount > 0 'response.write"

公司/主营产品、服务

年营业额(元)

诚信指数

地区

"&vbCrlf 'response.write""&vbCrlf response.write""&vbCrlf response.write""&vbCrlf) response.write""&vbCrlf '等级图片 response.write""&vbCrlf response.Write""&vbCrlf response.write""&vbCrlf 'response.write""&vbCrlf 'response.write"

"&vbCrlf ' Set re = New RegExp ' re.Pattern ="("&keywords&")" ' re.IgnoreCase = True ' re.Global=True ' result = re.Replace(rs("qymc"), "$1") '--是否使用的名片页------------------------------------------------------------ ' set rsmp=server.CreateObject("adodb.recordset") ' sqlmp="select * from yixiang_vipgrade where roleid="&rs("gradeid") ' rsmp.open sqlmp,conn,1,1 ' if not rsmp.eof then if rs("flag")>0 then if is2weburl=1 then response.write""&rs("qymc")&""&vbCrlf else response.write""&rs("qymc")&""&vbCrlf end if else response.write""&rs("qymc")&""&vbCrlf end if 'end if response.write"
（" if rs("country")="中国" then response.write""&rs("sf")&""&rs("city")&"" else response.write""&rs("country")&"" end if response.write"）" response.write" " c="select * from Yixiang_cor_format where id="&rs("p_z_Z_LegalStatus")&"" set rsc=server.CreateObject("adodb.recordset") rsc.open c,conn,1,1 if not rsc.eof then response.write""&rsc("title")&" " rsc.close set rsc=nothing '--是否使用的名片页------------------------------------------------------------ ' set rsmp1=server.CreateObject("adodb.recordset") ' sqlmp1="select * from yixiang_vipgrade where roleid="&rs("gradeid") ' rsmp1.open sqlmp1,conn,1,1 ' if not rsmp1.eof then ' if rs("flag")>0 then if is2weburl=1 then response.write" 查看该会员企业网站" else response.write" 查看该会员企业网站" end if else response.write"查看该会员的名片"&vbCrlf end if ' ' end if ' response.write"
"&vbCrlf Set re1 = New RegExp re1.Pattern ="("&keywords&")" re1.IgnoreCase = True re1.Global=True if rs("zycp")<>"" then result1 = re1.Replace(rs("zycp"), "$1") else result="" end if response.write" 主营:"&result1&"
"&vbCrlf Set re2 = New RegExp re2.Pattern ="("&keywords&")" re2.IgnoreCase = True re2.Global=True if rs("qyjj")<>"" then result2 = re2.Replace(rs("qyjj"), "$1") else result2="" end if response.write" "&left(result2,40)&"…… " response.Write("
经营模式:"&rs("qylb")&"") response.Write("

"&vbCrlf c4="select * from Yixiang_cor_bank where id="&rs("p_z_Z_AnnualRevenue")&"" set rsc4=server.CreateObject("adodb.recordset") rsc4.open c4,conn,1,1 if rsc4.eof then response.write"未提供" else response.write""&rsc4("title")&"" end if rsc4.close set rsc4=nothing response.write"

"&vbCrlf if rsmp("gradepic")<>"" then response.Write"

"&vbCrlf response.Write"
"&vbCrlf end if response.write""&rs("trust_score")&""&vbCrlf response.write"

"&vbCrlf if rs("country")="中国" then response.Write""&rs("sf")&""&rs("city")&"" else response.Write(""&rs("country")&"") end if response.Write"

"&vbCrlf icolor=icolor+1 if icolor>1 then icolor=0 rowcount=rowcount-1 rs.movenext loop %>

<%=listPages(""&HOPE_InstallDir&"search/searchcom.asp?sortid="&sortid&"&typeid="&typeid&"&typeid_2="&typeid_2&"&keywords="&keywords&"&comkind="&comkind&"&country1="&country&"&province="&sf&"&city="&city&"&datetime="&datetime)%>

<% rsmp1.close rsmp.close rs.close set rs=nothing conn.close set conn=nothing %>