ph.asp

来自「网络购物」· ASP 代码 · 共 40 行

<%
'=========================================
'
'         凡人网络购物系统V4.0免费版
'    FreeDown.Net [e-mail] 
'            www.freedown.net
'     版权所有·免费版仅供研究测试只用
'            商业使用请购买正版
'
'=========================================
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
   <tr><td align="center" height="5"></td></tr>
   <tr><td align="center"><img border="0" src="img/promo_list_top.gif" width="100%" height="4"></td></tr>
   <tr><td align="center" bgcolor="#DBC2B0" height="20"><b>销售排行</b></td></tr>
   <tr><td  align="center"> 

<%sql="select top 10 * from hw order by hw_buys DESC"
  rs.open sql,conn,3,3
  if rs.eof then
  response.write "本站目前没有成交任何商品"
  else
  i=0
  do while not rs.eof
%>
                                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                      <tr>
                                        <td width="70%" height="22" bgcolor="#F5EFE7">&nbsp; <a href="views.asp?hw_id=<%=rs("hw_id")%>"><%=rs("hw_name")%></a></td>
                                        <td width="30%" bgcolor="#F5EFE7"><%=rs("daili")%></td>
                                      </tr>
                                    </table>
<%i=i+1                                                   
  if i>10 then exit do   
  rs.movenext
  loop
  end if
  rs.close
%>
</td></tr>
<tr><td bgcolor="#F5EFE7" align="right" height="15"><a href="wel.asp" target="_blank"><img src="img/pics/more.gif" width="45" height="10" border="0"></a>&nbsp;&nbsp;&nbsp; </td></tr></table>