inc_index_shop.inc

..不怎么明白。不知道这个市什么只想下个服务端

<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr>
<td height=27 background='images/index/shop_bg.gif'>
  <table border=0 cellspacing=0 cellpadding=0 width='100%'>
  <tr>
  <td align=left width=124><img src='images/index/shop_left.gif' border=0></td>
  <td align=right>
    <table border=0>
    <tr>
    <td><img src='skin/<%response.write joekoe_cms.web_skin%>/small/label_shop_bag.gif' border=0 align=absmiddle>&nbsp;&nbsp;<a href='shop_bag.asp' target=_blank>购 物 车</a></td>
    <td width=10></td>
    <td><img src='skin/<%response.write joekoe_cms.web_skin%>/small/label_shop_pay.gif' border=0 align=absmiddle>&nbsp;&nbsp;<a href='shop_pay.asp' target=_blank>收 银 台</a></td>
    <td width=10></td>
    <td><img src='skin/<%response.write joekoe_cms.web_skin%>/small/label_shop_order.gif' border=0 align=absmiddle>&nbsp;&nbsp;<a href='shop_order.asp' target=_blank>订单查询</a></td>
    </tr>
    </table>
  </td>
  <td align=right><a href='shop.asp' target=_blank><img src='images/index/shop_more.gif' border=0></a></td>
  </tr>
  </table>
</td>
</tr>
</table>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr align=center>
<td width='43%'>
<%
oid=0
dim tmp3
sql="select top 1 id,name,price,smallimg,discount,is_emoney,emoney,brand from shop_product where hidden=1 and isgood=1 order by id desc"
set rs=joekoe_cms.exec(sql,1)
if not rs.eof then
  id=rs("id")
  oid=id
  topic=rs("name")
  tmp1=rs("price")
  tmp2=rs("discount")
  if int(tmp2)<100 then 
    tmp3=formatnumber(tmp1*tmp2/100)  
  else 
    tmp3=tmp1
  end if    
%>
  <table border=0 cellspacing=0 cellpadding=2 width='100%'>
  <tr><td height=3></td></tr>
  <tr align=center>
  <td width='48%'><%response.write pic_fk(rs("smallimg"),8,"shop_view.asp?id="&id)%></td>
  <td width='52%'>
    <table border=0 cellspacing=0 cellpadding=2 width='100%'>
    <tr><td><b><a href='shop_view.asp?id=<%response.write id%>' target=_blank alt='<%response.write joekoe_cms.code_html(topic,1,0)%>'><%response.write joekoe_cms.code_html(topic,1,15)%></a></b></td></tr>
    <tr><td>价格：<font class=red><%response.write tmp3%></font>元</td></tr>
    <tr><td>原价：<%response.write tmp1%> 元 <font class=red2><%response.write fm_discount(tmp2)%></font></td></tr>
    <tr><td><% response.write joekoe_cms.web_unit %>：<%response.write note_emoney_pay(rs("emoney"),"shop",id)%></td></tr>
    <tr><td>品牌：<%response.write rs("brand")%></td></tr>
    <tr><td><a href='shop_bag.asp?id=<%response.write id%>' target=_blank><img src='<%response.write joekoe_cms.web_dir_skin%>main/button_bag.gif' border=0></a>　
<a href='shop_view.asp?id=<%response.write id%>' target=_blank><img src='<%response.write joekoe_cms.web_dir_skin%>main/button_view.gif' border=0></a></td></tr>
    </table>
  </td>
  </tr>
  </table>
<%
end if
rs.close
%>
</td>
<td width='57%'>
  <table border=0 cellspacing=1 cellpadding=0 width='100%'>
  <tr height=3><td width='50%'></td><td width='50%'></td></tr>
<%
i=0
sql="select top 4 id,name,price,smallimg,discount,is_emoney,emoney from shop_product where hidden=1 and id<>"&oid&" order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
  id=rs("id")
  topic=rs("name")
  if i mod 2=0 then response.write vbcrlf&"  <tr>"
%>
  <td>
    <table border=0 cellspacing=0 cellpadding=0 width='100%'>
    <tr align=center>
    <td width='35%'><%response.write pic_fk(rs("smallimg"),4,"shop_view.asp?id="&id)%></td>
    <td width='65%'>
      <table border=0 cellspacing=0 cellpadding=2 width='100%'>
      <tr><td><b><a href='shop_view.asp?id=<%response.write id%>' target=_blank alt='<%response.write joekoe_cms.code_html(topic,1,0)%>'><%response.write joekoe_cms.code_html(topic,1,12)%></a></b></td></tr>
      <tr><td><font class=red><%response.write rs("price")%></font>元 <font class=tims><%response.write fm_discount(rs("discount"))%></font></td></tr>
      <tr><td><%response.write note_emoney_pay(rs("emoney"),"shop",id)%></td></tr>
      </table>
    </td>
    </tr>
    </table>
  </td>
<%
  if i+1 mod 2=0 then response.write vbcrlf&"  </tr>"
  if i=1 then response.write vbcrlf&"  <tr><td height=1></td></tr>"
  rs.movenext
  i=i+1
loop
rs.close
%>
  </table>
</td>
</tr>
</table>
<% call web_branch(0) %>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr><td height=5></td></tr>
</table>
<%
function fm_discount(dvar)
  if dvar>=100 then
    fm_discount="不打折"
    exit function
  end if 
  fm_discount=cstr(dvar/10)&"折"
end function
%>