<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
<!--#include file="../inc/classcount.asp"-->
<%
keywords=replace_text(request("keywords"))

sql="select * from vipinfo"
if keywords>"" then sql=sql&" where vipshowname like '%"&keywords&"%'"

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

msg_per_page=20 '定义每页显示记录条数
%>
<!--#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="headall.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>        </tr>
      </table>
      <table width="100%"  border="0" cellspacing="0" cellpadding="3">
        <tr>
          <td width=145 class="buttoncolor M" nowrap>
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td>&nbsp;</td>
                <td><div align="left"><b><font color=FFFFFF>专项商机共 </font><font color=#ffffff>
                  <%=zxshangji_all%>
                </font></b></div></td>
              </tr>
          </table></td>
          <td rowspan=2 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">
                    <b><a href="/seller/index.asp">查看其它会员采购信息</a></b>
                  </span> <span class="text13"> </span><img src="../images/icon_point.gif" border=0 width=18 height=19  align=absmiddle> <b><a href="/tradeinfo/index.asp">查看其它会员供应信息</a> <img src="../images/icon_point.gif" border=0 width=18 height=19  align=absmiddle> <a href="../member/myemail/orderbegin.asp" class=red>按关键字定阅商机</a></b></td>
                </tr>
                <tr>
                  <td><img src="../images/icon_point.gif" border=0 width=18 height=19  align=absmiddle><span class="text13"><b> 还不是商贸通会员？<a href="/login/register.asp" target="_blank">点此马上申请！</a></b></span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=CC3300 class=C><strong>申请热线：<%=hottel%></strong></font></td>
                </tr>
          </table></td>
        </tr>
        <tr>
          <td width=145 nowrap class="nobianbuttonborder M blackbordernobottom">&nbsp;          </td>
        </tr>
    </table></td>
  </tr>
</table>
<br>
<table width="98%"  border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <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=40% class=S><font color=666666>信息主题</font></TD>
           <TD bgcolor=E7E7E7 align=center width=15% class=S><div align="center"><font color=666666>有效期</font></div></TD>
           <TD bgcolor=E7E7E7 align=center width=15% class=S><div align="center"><font color=666666>所属类型</font></div></TD>
           <TD bgcolor=E7E7E7 align=center width=20% class=S><div align="center"><font color=666666>所属区域</font></div></TD>
         </TR>
       </TBODY>
     </TABLE>
     <%do while not rs.eof and rowcount > 0%>
<TABLE width="100%" height=65 border=0 align="center" cellPadding=0 cellSpacing=1>
  <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 width="40%" class=m>&nbsp;<A class=M href="/vipinfo/info.asp?vipinfo_id=<%=rs("vipinfo_id")%>" target=_blank><SPAN class=lh15><% Set re = New RegExp
re.Pattern ="("&keywords&")"
re.IgnoreCase = True
re.Global=True
result = re.Replace(rs("vipshowname"), "<font color=red>$1</font>")%><%=result%></SPAN></a><BR>        <FONT color=#666666>&nbsp;<%=rs("dateandtime")%>
	  </FONT></TD>
      <TD width="15%" class=cate><div align="center">
      <%=rs("vipperiod")%></div></TD>
      <TD align=middle width=15% class=cate>      <div align="center"><%=rs("viptype")%></div></TD>
    <TD class=s align=middle width=20%><div align="center"><%=rs("country")%>
      </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 align="center" cellPadding=1 cellSpacing=0 style="BORDER-TOP: #9C9A9C 1px solid;BORDER-Bottom: #9C9A9C 1px solid">
   <TBODY>
     <TR>
       <TD>
         <TABLE cellSpacing=0 cellPadding=4 width="100%" border=0>
           <TBODY>
             <TR>
               <TD class=m align=middle><%=listPages("searchvipinfo.asp?keywords="&keywords&"&show="&show&"")%> </TD>
             </TR>
           </TBODY>
       </TABLE></TD>
     </TR>
   </TBODY>
 </TABLE></td>
  </tr>
</table>	      
<!--#include file="../inc/end.asp"-->
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>