info_kucun.asp

网上购物,不错的购物系统,花了好长时间来改的

<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
<table width="770" height="24" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FF6633">
  <tr>
    <td><span class="style1">目前库存不多的商品，请即使选购。注：显示商品目前均有货！</span></td>
  </tr>
</table>
<table width="768" height="110" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <%set rs=server.CreateObject("adodb.recordset")
		rs.open "select top 16 * from sh_chanpin where kucun<100 order by kucun desc,adddate ",conn,1,1
			if rs.recordcount=0 then 
		  response.write "<td  align=center><font color=red size=2>对不起，暂无新品！</font></td>"
		  'response.End
		  else
		  %>
    <%
		if not rs.eof then
		i=1
		do while not rs.eof%>
    <td width="240" height="110" align="center" valign="top"><table width="96" height="110" border="0" align="left" cellpadding="0" cellspacing="0" class="main">
        <tr>
          <td width="88" height="73">
            <%if rs("bookpic")="" then 
						response.write "<div align=center><a href=list.asp?id="&rs("bookid")&"><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
						else
					%>
            <div align="center"><a href=list.asp?id=<%=rs("bookid")%> target="_blank"><img src="<%=trim(rs("bookpic"))%>"  width=60 border=0 height="60" alt="<%=trim(rs("bookname"))%>"></a>
                <%end if%>
          </div>            </td>
        </tr>
        <tr>
          <td height="43%"><a href=list.asp?id=<%=rs("bookid")%> target="_blank">&nbsp;
              <%if len(trim(rs("bookname")))>5 then
					response.write left(trim(rs("bookname")),5)&".."
					else
					response.write trim(rs("bookname"))
					end if
				%>
          </a><br>
VIP 价：<%=trim(rs("Vipjia"))%> 元 </td>
        </tr>
    </table></td>
    <%if i mod 8 = 0 then%>
  </tr>
  <%end if
	    rs.movenext
         i=i+1
    	 loop
		rs.close
		end if
		end if 
	%>
</table>