<!--#include file="inc/conn.asp"-->
<!--#include file="inc/jle_sub.asp"-->
<!--#include file="fllist.asp"-->
<!--#include file="inc/function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=title%>-<%=city%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="zh-cn" />
<meta name="Keywords"  content="<%=metakey%>" />
<meta name="Description" content="<%=metades%>" />
<link rel="icon" href="<%=web%>/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="<%=web%>/favicon.ico" type="image/x-icon" />
<link href="css/style.css" rel="stylesheet" type="text/css" />

<style type="text/css">
<!--
body,td,th {
	font-family: 微软雅黑;
	font-size: 14px;
}
-->
</style></head>
<body>
<%call top()%>
<BR />
<div align="center">
<SCRIPT src="js/tr.js" type="text/javascript"></SCRIPT>
<table width="1300" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="995"><!--#include file="flash.asp" --></td>
    <td width="305" align="right" valign="top"><table width="282" border="0" cellpadding="0" cellspacing="0" bgcolor="#FDFAF2" style="border:2px #FF7800 solid;">
      <tr>
        <td height="40" bgcolor="#FF7800" class="fontgg" style="padding-left:15px;">热门推荐</td>
      </tr>
      <tr>
        <td style="padding:6px; line-height:30px;"><div class="newsleftlis">
            <ul style="padding:0; margin:0; list-style:none;">
             <%
			 set rs1=server.createobject("ADODB.Recordset")
	SQL1="select Top 10 * from sc_Article where classid<>17 and yn = 0 order by Hits desc"
	rs1.open sql1,conn,1,3
	i=1
	If Not rs1.Eof Then 

	do while not (rs1.eof or err)
	Response.Write("<li style=""line-height:30px;"">")
	
			Response.Write("<a href=""sclist.asp?ID="&rs1("id")&""">"&left(rs1("title"),20)&")</a>")

	Response.Write("</li>") & VbCrLf
	rs1.movenext
	i=i+1
	if i=11 then exit do
	loop
	else
	Response.Write("<li>没有</li>")
	end if
	rs1.close
	set rs1=nothing
			 
			 %>
            </ul>
          </div></td>
      </tr>
    </table></td>
  </tr>
</table>
<br />
<%
dim Nclasslie,classlie,classid
Set Nclasslie =Server.CreateObject("ADODB.Recordset") 
sql="select * from sc_class where id<>17  "        
Set classlie = Server.CreateObject("ADODB.Recordset")                          
classlie.open sql,conn,1,1
if not classlie.eof then
do while not classlie.eof
classid=classlie("id")%>
<table width="1300" border="0" cellspacing="0" cellpadding="0" style="border-top:2px #20A7B3 solid; margin-bottom:15px;">
  <tr>
    <td width="1010" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
      <tr>
        <td height="40" bgcolor="#F9F9F9" style="border-bottom:1px #E4E4E4 solid; padding-left:20px; "><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="91%" style="font-size:18px; color:#20A7B3;"><%=classlie("classname")%></td>
            <td width="9%"><a href="scclass.asp?id=<%=classlie("id")%>" target="_self">更多</a></td>
          </tr>
        </table></td>
      </tr>
    </table>
	<%
 ' dim rs,sql,tr,td,ProductName,SmallPicPath
  set rs = server.createobject("adodb.recordset")
  sql="select top 8 * from sc_Article where classid="&classid&" order by id desc"
  'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
  'sql="select top "&trs*tds&" * from Qianbo_Products where ViewFlag and NewFlag order by id desc"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "暂无相关信息"
  else
    Response.Write "<table width=100% cellpadding=""2"" cellspacing=""0"">"&VbCrLf
	for tr=1 to 2
	    Response.Write "  <tr>"&VbCrLf
        for td=1 to 4
	   
	        ProductName=left(rs("Title"),17)
	     
		
				AutoLink = "scList.asp?ID="&rs("id")&""
		
			'SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("images"),rs("Exclusive"))
			Response.Write "    <td><table cellpadding=""0"" cellspacing=""0"" width=220>"&VbCrLf
			Response.Write "        <tr>"&VbCrLf
			Response.Write "          <td style="" padding:3px;border: 1px solid #ECECEC; text-align:center;""><a href="""&AutoLink&"""><img src=UploadFiles/"""&rs("images")&""" alt="""&rs("title")&"""   height=""140""   border=""0"" /></a></td>"&VbCrLf
			Response.Write "        </tr>"&VbCrLf
			Response.Write "        <tr>"&VbCrLf
			Response.Write "          <td style=""height:30px; text-align:center;""><a href="""&AutoLink&""" title="""&rs("title")&""">"&ProductName&"</a> </td>"&VbCrLf
			Response.Write "        </tr>"&VbCrLf
			Response.Write "      </table></td>"&VbCrLf
			Response.Write "    <td width=""8""></td>"&VbCrLf
	      rs.movenext
		  if rs.eof then exit for
		next
	    Response.Write "  </tr>"&VbCrLf
		if rs.eof then exit for
	next
    Response.Write "</table>"&VbCrLf
  end if
  rs.close
  set rs=nothing
		%>
	
	</td>
    <td width="290" align="right" valign="top" bgcolor="#F2F9F9" style="border-right:1px #89D0D7 dotted;"><table width="290" border="0" cellpadding="0" cellspacing="0" >
      <tr>
        <td height="40" bgcolor="#20A7B3" class="fontgg" style="padding-left:15px;">热门推荐</td>
      </tr>
      <tr>
        <td align="center" bgcolor="#F2F9F9" style="padding:6px; line-height:30px;"><table width="255" border="0" cellspacing="0" cellpadding="0">
            <%'dim rsshop,sqlshop
set rsshop=server.createobject("ADODB.recordset")
sqlshop = "select top 10 * from sc_Article  where classid="&classid&"  order by hits desc"
rsshop.open sqlshop,conn,1,1
shop=0         
if rsshop.eof and rsshop.bof then %>
            <p align='center'>没有新进店铺</p>
          <%else      
do while not rsshop.eof
shop=shop+1%>
            <tr>
              <td width="41" height="33"><img src="pic/img/<%=shop%>.jpg" /></td>
              <td width="214"><a  title="<%=rsshop("title")%>" target="_blank" href="sclist.asp?id=<%=rsshop("id")%>"><%=left(rsshop("title"),10)%></a></td>
            </tr>
            <%
	if shop =10  then exit do

rsshop.movenext                
loop
end if
rsshop.close
set rsshop=nothing%>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
 <%
classlie.movenext               
loop  
end if  
classlie.close  
set classlie=nothing  
set Nclasslie=nothing 

%>
<br />
<%
call bottom()
%>




</div>
<p>&nbsp;</p>
</body>
</html>