<%

sub shop_main_list(ltype,l_num)
  dim n_tit,price,price_now,discount,name,li,t
  sql="select top "&(2*l_num)&" id,name,smallimg,brand,price,discount,is_emoney,emoney from shop_product where hidden=1"
  select case ltype
  case "new1"
    sql=sql&" and isgood=1 order by tim desc,id desc"
    n_tit="推荐"
    t=1
  case "good"
    sql=sql&" and isgood=1 order by tim desc,id desc"
    n_tit="推荐"
    t=2
  case "hot"
    sql=sql&" order by buy_counter desc,id desc"
    n_tit="热门"
    t=3
  case else
    sql=sql&" order by tim desc,id desc"
    n_tit="最新"
    t=4
  end select
  response.write vbcrlf&shop_bar_top(n_tit&"产品",1,t) & _
		 vbcrlf&"<table border=0 width='100%'>"
  li=0
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    if (li mod 2)=0 then response.write vbcrlf&"<tr valign=top>"
    name=joekoe_cms.code_html(rs("name"),1,0)
    price=fm_price(rs("price"),0)
    discount=rs("discount")
    price_now=fm_price(price*(discount/100),0)
    discount=fm_discount(discount)
    response.write vbcrlf&shop_list_type(rs("id"),name,rs("smallimg"),rs("brand"),price,price_now,discount,rs("is_emoney"),rs("emoney"))
    if (li mod 2)>0 then response.write vbcrlf&"</tr>"
    rs.movenext
    li=li+1
  loop
  rs.close
  if (li mod 2)>0 then
    response.write vbcrlf&"<td width='50%'></td></tr>"
  end if
  response.write vbcrlf&"</table>" & _
		 vbcrlf&shop_bar_end("",0)
end sub

%>