top.asp

模块及功能： 1.汽车新闻 分类.查询.翻页 2.出售信息 搜索.评估.地区展示.发布.展示.固顶.刷新 3.求购信息 发布.展示.固顶.刷新 3.加盟商家管理 注册.登录.信

<!--#include file=byshop_conn.asp-->
<!--#include file=webhead.asp-->
<title><%=webname%>-二手车排行榜</title>
<div align="center">
<table border="0" width="779" id="table14" cellspacing="0" cellpadding="0">
	<tr>
		<td>您的位置:<a href="default.asp">网站首页</a> &gt;<span lang="zh-cn"> 排行榜(</span><font color="#FF0000">TOP20</font><span lang="zh-cn">)</span></td>
	</tr>
</table>

     </div>

     
<div align="center">
	<table border="0" width="779" id="table1" cellpadding="0" style="border-collapse: collapse" bordercolor="#BDDBE9">
		<tr>
			<td>
			<table border="0" width="100%" id="table2" cellspacing="0" cellpadding="0">
				<tr>
					<td>

　</td>
				</tr>
				<tr>
					<td>

<span lang="zh-cn"><font color="#FF0000">加盟商家</font>(按人气指数排)</span><table cellspacing=0 cellpadding=0 border=1 width="100%" bordercolor="#BDDBE9" style="border-collapse: collapse" id="table9">
       
        <tr> 
          <td valign=top width=""> 
          <table border="0" width="100%" id="table10">
			<tr>
				<td bgcolor="#BDDBE9">
				<p align="center"><span lang="zh-cn">公司图标</span></td>
			</tr>
			</table>
			</td>
          <td valign=top width=""> 
          <table border="0" width="100%" id="table11">
			<tr>
				<td bgcolor="#BDDBE9">
				<p align="center"><span lang="zh-cn">公司名称</span></td>
			</tr>
			</table>
			</td>
          <td valign=top width=""> 
          <table border="0" width="100%" id="table12">
			<tr>
				<td bgcolor="#BDDBE9">
				<p align="center">联系地址</td>
			</tr>
			</table>
			</td>
          <td valign=top width=""> 
          <table border="0" width="100%" id="table13">
			<tr>
				<td bgcolor="#BDDBE9"><p align="center">人气指数</td>
			</tr>
			</table>
			</td>
        </tr>   <%
                  sql="select top 20 * from dealer where reglx=1 order by  count desc "
		Set rsb= Server.CreateObject("ADODB.Recordset")
		rsb.open sql,conn,1,1
		byshop_7=1
		do while not rsb.eof 
		%>
		        <tr> 
          <td align="center" width="25%" height="22" >
			　<%if trim(rsb("logo")) <> "" then
          %><a href="company1.asp?userid=<%=rsb("id")%>"><img src="<%=trim(rsb("logo"))%>" height='29' width="70" border="0" title="<%=trim(rsb("company"))%>"></a>
         <%else
         end if
         %></td>
          <td width="25%" align="center" >
         <a href="company1.asp?userid=<%=rsb("id")%>"><%
		response.write rsb("company")
		%></a></td>
          <td align="center" width="25%" >
      <%=rsb("address")%>
               
</td>
          <td align="center" width="25%"><%=rsb("count")%></td>
        </tr>
       
        
        <%rsb.movenext
		byshop_7=byshop_7+1
		if  byshop_7 >=21 then
		exit do
		end if
		loop
		
		rsb.close
		set rsb=nothing
                  %>

        
			</table></td>
				</tr>
				<tr>
					<td>　</td>
				</tr>
			</table>
			</td>
		</tr>
	</table>
</div><br>

<div align="center">
			<table border="0" width="779" id="table21" cellspacing="0" cellpadding="0">
				<tr>
					<td>

<font color="#FF0000">出售信息</font><span lang="zh-cn">(按人气指数排)</span><table cellspacing=0 cellpadding=0 border=1 width="100%" bordercolor="#BDDBE9" style="border-collapse: collapse" id="table22">
       
        <tr> 
          <td valign=top width=""> 
          <table border="0" width="100%" id="table23">
			<tr>
				<td bgcolor="#BDDBE9">
				<p align="center"><span lang="zh-cn">信息标题</span></td>
			</tr>
			</table>
			</td>
          <td valign=top width=""> 
          <table border="0" width="100%" id="table24">
			<tr>
				<td bgcolor="#BDDBE9">
				<p align="center"><span lang="zh-cn">出售车价</span></td>
			</tr>
			</table>
			</td>
          <td valign=top width=""> 
          <table border="0" width="100%" id="table25">
			<tr>
				<td bgcolor="#BDDBE9">
				<p align="center">交易地址</td>
			</tr>
			</table>
			</td>
          <td valign=top width=""> 
          <table border="0" width="100%" id="table26">
			<tr>
				<td bgcolor="#BDDBE9">
				<p align="center">人气指数</td>
			</tr>
			</table>
			</td>
        </tr><%
                  sql="select top 20 * from 1car where by_tongguo=1 order by  count desc "
		Set rsb= Server.CreateObject("ADODB.Recordset")
		rsb.open sql,conn,1,1
		byshop_7=1
		do while not rsb.eof 
		%>    
        <tr> 
          <td align="center" width="40%" height="22" >
			<p align="left">　<a href="sellcar.asp?id=<%=trim(rsb("id"))%>" title="<%=rsb("titlename")%>"><%=rsb("titlename")%></a><%if rsb("carpic")<>""then%>&nbsp;<a href="<%=rsb("carpic")%>" target=_blank><img  border="0"  src="images/pics.gif" title="点击查看大图"></a><%end if%></td>
          <td width="20%" align="center" >	<%
          if rsb("sellmoney")<> "0" then
          %><font color="#FF0000"><%
            response.write  rsb("sellmoney")&"万元"
            else
            %></font>
            <%
   
          response.write "面议"

        
          end if
          %>         </td>
          <td align="center" width="20%" >      <%set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from province where shengNo="&rsb("province"),conn,1,1
									if rs2.recordcount>0 then
									response.write rs2("shengname")
									shengid=rs2("id")
									else
									response.write "全国各地"
									end if
									rs2.close
									%>
									<%set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from city where shengid="&shengid&" and shiNo="&rsb("city")&"",conn,1,1
									if rs2.recordcount>0 then
									response.write "--"&rs2("shiname")
									end if
									rs2.close
									%>
      
               
</td>
          <td align="center" width="20%"><%=rsb("count")%></td>
        </tr>
       <%
       rsb.movenext
		byshop_7=byshop_7+1
		if  byshop_7 >=21 then
		exit do
		end if
		loop
		rsb.close
		set rsb=nothing
		%>
       
        
			</table></td>
				</tr>
				<tr>
					<td>　</td>
				</tr>
			</table>
			</div>
<br>
<div align="center">
			<table border="0" width="779" id="table33" cellspacing="0" cellpadding="0">
				<tr>
					<td>

<font color="#FF0000">求购信息</font><span lang="zh-cn">(按人气指数排)</span><table cellspacing=0 cellpadding=0 border=1 width="100%" bordercolor="#BDDBE9" style="border-collapse: collapse" id="table34">
       
        <tr> 
          <td valign=top width=""> 
          <table border="0" width="100%" id="table35">
			<tr>
				<td bgcolor="#BDDBE9">
				<p align="center"><span lang="zh-cn">信息标题</span></td>
			</tr>
			</table>
			</td>
          <td valign=top width=""> 
          <table border="0" width="100%" id="table36">
			<tr>
				<td bgcolor="#BDDBE9">
				<p align="center"><span lang="zh-cn">求购车价</span></td>
			</tr>
			</table>
			</td>
          <td valign=top width=""> 
          <table border="0" width="100%" id="table37">
			<tr>
				<td bgcolor="#BDDBE9">
				<p align="center">交易地址</td>
			</tr>
			</table>
			</td>
          <td valign=top width=""> 
          <table border="0" width="100%" id="table38">
			<tr>
				<td bgcolor="#BDDBE9">
				<p align="center">人所指数</td>
			</tr>
			</table>
			</td>
        </tr> <%
                  sql="select top 20 * from 2car where  by_tongguo=1  order by  count desc "
		Set rsb= Server.CreateObject("ADODB.Recordset")
		rsb.open sql,conn,1,1
		byshop_7=1
				do while not rsb.eof 
		%>   
        <tr> 
          <td align="center" width="40%" height="22" ><p align="left">　<a href="buycar.asp?id=<%=trim(rsb("id"))%>" title="<%=rsb("titlename")%>"><%=rsb("titlename")%></a></td>
          <td width="20%" align="center" ><%
                  if  trim(rsb("money")) <> "" then
                  %><font color="#FF0000"><%
                   response.write   rsb("money")&"万元"
                   %></font><%
                   else
                  response.write "面议"
                  
               
                end if
                %>
         </td>
          <td align="center" width="20%" >
      
               
        <%set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from province where shengNo="&rsb("province"),conn,1,1
									if rs2.recordcount>0 then
									response.write rs2("shengname")
									shengid=rs2("id")
									else
									response.write "全国各地"
									end if
									rs2.close
									%>
									<%set rs2=server.createobject("adodb.recordset")
									rs2.open "select * from city where shengid="&shengid&" and shiNo="&rsb("city")&"",conn,1,1
									if rs2.recordcount>0 then
									response.write "--"&rs2("shiname")
									end if
									rs2.close
									%></td>
          <td align="center" width="20%"><%=rsb("count")%></td>
        </tr>
    
        <%
        	rsb.movenext
		byshop_7=byshop_7+1
		if  byshop_7 >=21 then
		exit do
		end if
		loop
		rsb.close
		set rsb=nothing
                  %>
			</table></td>
				</tr>
				<tr>
					<td>　</td>
				</tr>
			</table>
			</div>
	<!--#include file="webfoot.asp"-->