<!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.asp"-->
<%
dim cnmai,key
set rs=server.createobject("ADODB.recordset")
key=trim(request("keyword"))
%>
<HTML><HEAD><TITLE><%=title%>-全部商家</TITLE></HEAD>
<BODY >

  <%call t()%>

<table width="980" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#D2D2D2">
  <tr>
    <td height="40" colspan="2"  background="img/sorttitlebg.jpg" style="border-style:none"><!--#include file="s1.asp" --></td>
  </tr>
  <tr>
    <td width="764" valign="top" bgcolor="#F2F2F2" style="border-style:none"><table width="756" height="247" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#D8D8D8">
      <tr>
        <td width="642" height="35" background="img/sortcontentbarbg.jpg" style="border-style:none">&nbsp;<img src="img/dot1.gif" width="12" height="12">&nbsp; 位置导航：<a href="/">首页</a>→<a href="ac.asp">全部商家</a>&nbsp;
<img border="0" src="image/dd.gif"><a href="regchk.asp">怎样成为商家？</a> <img border="0" src="image/dd.gif"><a href="ab_help.asp">特约商家有什么好处？</a></td>
        <td width="108" background="img/sortcontentbarbg.jpg" style="border-style:none"><span class=font1>&nbsp;</span></td>
      </tr>
     
<tr>
<td height="156" colspan="2" bgcolor="#FFFFFF" style="border-style:none"  valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" id="table1" style="border-collapse: collapse">
<%
dim ThisPage,Pagesize,Allrecord,Allpage
tj=0
Select Case cnmai
Case "1"
sql = "select * from jle_com where class1="&class1&" and yz=1 order by vip desc,jf desc,zcdata desc"
Case "2"
sql = "select * from jle_com where vip=1 and yz=1 order by jf desc,zcdata desc"
Case "3"
sql = "select * from jle_com where com like '%"&key&"%' or comabout like '%"&key&"%' or username like '%"&key&"%' or name like '%"&key&"%' order by vip desc,jf desc,zcdata desc"
Case Else
sql = "select * from jle_com where yz=1 order by vip desc,zcdata desc"
End Select
rs.open sql,conn,1,1
rs.Pagesize=10
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then                           
ThisPage=1                           
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
if rs.eof then
response.write "还没有商家信息！"
else
do while not rs.eof
b=trim(rs("b"))
bb=len(b)%>
<tr>
<td align="middle" width=163 height=120 rowspan=2>
<%
if right(rs("logo"),4)=".gif" or right(rs("logo"),5)=".jpeg" or right(rs("logo"),4)=".jpg"then%>
<a target="_blank" href="com.asp?m=<%=rs("username")%>">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"  

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="120" height="90">
<param name="movie" value="img/swfoto.swf?image=<%=rs("logo")%>">  
<embed src="img/swfoto.swf?image=<%=rs("logo")%>" width="120" height="90" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed>
</object>
</a>
<%
else
%><a target="_blank" href="com.asp?m=<%=rs("username")%>">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"  

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="120" height="90">
<param name="movie" value="img/swfoto.swf?image=image/nopic.gif">  
<embed src="img/swfoto.swf?image=image/nopic.gif" width="120" height="90" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed>
</object>
</a>
<%end if
%></td><td width=580 height="32" background="img/linebg.jpg" style="BACKGROUND-COLOR: #F3F3F3">
<img src="img/com_woman.gif" width="17" height="20">
<a target="_blank" title="<%=rs("com")%>"  href=com.asp?m=<%=rs("username")%>>
<%if rs("vip")="1" then
%><font size=3  face="黑体" color="red"><u><%=rs("com")%></u></font>
<%else%>
<font size=3  face="黑体"><u><%=rs("com")%></u></font>
<%end if
%></a>
<%=rs("jf")%>
<%if rs("vip")="1" then%>
<img src="image/jian.gif" alt="特约商家">
<%end if%>
</td>
</tr>
<tr><td><div style="margin-top:8px; margin-left:4px;margin-right:4px;
margin-bottom:8px;font-size:12px;color:#333333;line-height:130%;"> &nbsp;&nbsp;&nbsp;&nbsp;<%=mid(rs("comabout"),1,120)%><br>
<%if rs("vip")="1" then%>
联系电话：<b><%=rs("dianhua")%></b><br>联 系 人：<b><%=rs("name")%></b><br>店铺地址：<b><%=rs("dizhi")%></b>
<%else
if request.cookies("cnmai")("username")="" then%>
联系电话：<b>普通会员登陆可见</b><br>联 系 人：<b>普通会员登陆可见</b><br>店铺地址：<b>普通会员登陆可见</b>
<%else%>
联系电话：<b><%=rs("dianhua")%></b><br>联 系 人：<b><%=rs("name")%></b><br>店铺地址：<b><%=rs("dizhi")%></b>
<%end if
end if%></div>
</td></tr>
<tr><td background="image/bar6.gif" height=3 colspan=7></td></tr>
<%tj=tj+1
rs.movenext
if tj>=Pagesize then exit do
loop
end if
rs.close
set rs=nothing
%>
</table><table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#F2F2F2" width="100%">
<tr> 
<td height="25" width="151">
<p align="center">
共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
<td height="25" width="126">
<p align="center">共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="25" width="118">
<p align="center">现在是第 
<font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="25" width="183">
<p align="center">
<%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1&/="&class1&"&cnmai="&cnmai&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&/="&class1&"&cnmai="&cnmai&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&"&/="&class1&"&cnmai="&cnmai&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&/="&class1&"&cnmai="&cnmai&">尾页</a>&nbsp;"     
end if
%></td>
</tr>
</table></td>
      </tr>
    </table></td>
    <td width="214" height="570" valign="top" background="img/rightbg.jpg" style="border-style:none"><table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
        <tr>
          <td height="30" class="lefttd"><div style="margin-left:43px;">
最新商家</div></td></tr></table><table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
        <tr><td  background="img/righttitle1bg.jpg" valign="top" 
		><%
sql = "select top 10 * from jle_com  where yz=1 order by zcdata desc"
call ncom
%></td></tr>
<tr>
          <td height="15" background="img/righttitle1bg.jpg"><img src="img/righttitle1bottom.jpg" width="214" height="15"></td>
        </tr></table><table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
        <tr>
          <td height="30" class="lefttd"><div style="margin-left:43px;">
热门商家</div></td></tr></table><table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
        <tr><td  background="img/righttitle1bg.jpg" valign="top" 
		><%
sql = "select top 10 * from jle_com where yz=1 order by jf desc,zcdata desc"
call nhcom
%></td></tr>
<tr>
          <td height="15" background="img/righttitle1bg.jpg"><img src="img/righttitle1bottom.jpg" width="214" height="15"></td>
        </tr></table></td>
  </tr>
</table>
<div align="center">
  <!--#include file="foot.asp"-->
</div>
</BODY></HTML>  
<%
Conn.Execute("Update jle_xinxi Set b=0 where DateDiff('D',fbsj,now())>="&b_y&" and rz=1")
closedb
%>