 <%dim nn6
set rsnews=server.createobject("adodb.recordset")
rsnews.open "select top 10 * from FOX_meng order by fbsj desc",conn,1,1
if rsnews.recordcount=0 then
	response.write "暂时没有..."
else
  Response.Write("<table border=0 cellspacing=0 cellpadding=0 style='border-collapse: collapse' width='300'><tr>")
  nn6=0
  while not rsnews.eof
  nn6=nn6+1
   Response.Write "<td style='font-size: 12px' width='80' height='20'>"
response.write ""&left(rsnews("chanpen"),6)&"</td>"
response.write "<td width='50' height='20'>"&rsnews("leixing")&"</td>"
response.write "<td width='70' height='20'>"
%>
<%if rsnews("jiage")=0 then%><font color="#008080">面&nbsp; 议</font><%else%><font color="#FF0000"><%=rsnews("jiage")%></font> 元<%end if%><%response.write "</td>"
response.write "<td width='100' height='20'>"
   Response.Write "<a href=scindex.asp target=""_blank"">"
response.write ""&left(rsnews("company"),8)&"</a>"
   Response.Write"</td>"
      if nn6=1 then 
	     Response.Write("</tr><tr>")
		 nn6=0
	  end if
	  if  rsnews.eof  then
	   Response.Write("</tr>")
	   end if
		rsnews.movenext
	 wend
	Response.Write("</table>")
end if
rsnews.close
set rsnews=nothing
%>
 <%dim nn3
set rsnews=server.createobject("adodb.recordset")
rsnews.open "select top 10 * from FOX_dian where yz=1 order by fbsj desc",conn,1,1
if rsnews.recordcount=0 then
	response.write "暂时没有..."
else
  Response.Write("<table border=0 cellspacing=0 cellpadding=0 style='border-collapse: collapse' width='300'><tr>")
  nn3=0
  while not rsnews.eof
  nn3=nn3+1
   Response.Write "<td style='font-size: 12px' width='80' height='20'>"
response.write ""&left(rsnews("chanpen"),6)&"</td>"
response.write "<td width='50' height='20'>"&rsnews("leixing")&"</td>"
response.write "<td width='70' height='20'>"
%>
<%if rsnews("jiage")=0 then%><font color="#008080">面&nbsp; 议</font><%else%><font color="#FF0000"><%=rsnews("jiage")%></font> 元<%end if%><%response.write "</td>"
response.write "<td width='100' height='20'>"
   Response.Write "<a href=mydian.asp?fox="&rsnews("username")&" target=""_blank"">"
Response.Write ""&left(rsnews("company"),8)&"</a>"
   Response.Write"</td>"
      if nn3=1 then 
	     Response.Write("</tr><tr>")
		 nn3=0
	  end if
	  if  rsnews.eof  then
	   Response.Write("</tr>")
	   end if
		rsnews.movenext
	 wend
	Response.Write("</table>")
end if
rsnews.close
set rsnews=nothing
%>
 <%dim nn4
set rsnews=server.createobject("adodb.recordset")
rsnews.open "select top 10 * from FOX_shop where yz=1 order by fbsj desc",conn,1,1
if rsnews.recordcount=0 then
	response.write "暂时没有..."
else
  Response.Write("<table border=0 cellspacing=0 cellpadding=0 style='border-collapse: collapse' width='300'><tr>")
  nn4=0
  while not rsnews.eof
  nn4=nn4+1
   Response.Write "<td style='font-size: 12px' width='80' height='20'>"
response.write ""&left(rsnews("company"),6)&"</td>"
%>
<%dim rsqq,sqlqq
set rsqq=server.createobject("adodb.recordset")
rsqq.open "select leixing from FOX_leis where id="&rsnews("leixing")&"",conn,1,1
response.write "<td width='50' height='20'>"&rsqq("leixing")&"</td>"
rsqq.close
set rsqq=nothing
response.write "<td width='70' height='20'>"
%>
<%if rsnews("jiages")=0 then%><font color="#008080">面&nbsp; 议</font><%else%><font color="#FF0000"><%=rsnews("jiages")%></font> 元<%end if%><%response.write "</td>"
response.write "<td width='100' height='20'>"
   Response.Write "<a href=mydian.asp?fox="&rsnews("username")&" target=""_blank"">"
dim rsqqq,sqlqqq
set rsqqq=server.createobject("adodb.recordset")
rsqqq.open "select company from FOX_dian where username='"&rsnews("username")&"'",conn,1,1
Response.Write ""&left(rsqqq("company"),8)&"</a>"
rsqqq.close
set rsqqq=nothing
   Response.Write"</td>"
      if nn4=1 then 
	     Response.Write("</tr><tr>")
		 nn4=0
	  end if
	  if  rsnews.eof  then
	   Response.Write("</tr>")
	   end if
		rsnews.movenext
	 wend
	Response.Write("</table>")
end if
rsnews.close
set rsnews=nothing
%>