56770_sytjian.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<tr>
<td>
<table cellspacing=0 cellpadding=0 width="100%">
<tr>
<td style="padding-left:10px;padding-top:2px" width="100%" height="23" bgcolor="#FFC7C7">&nbsp;平价商品推荐</td>
</tr>
</table>
</td>
</tr>
<td> <div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 6 * from 56770_product where stj=true and etj=true order by id DESC"
rs.open sql, conn, 1, 1
if rs.eof then
        response.write "目前没有推荐商品"
else
        do while not rs.eof
%>
<td align="center">

<table border="0" cellspacing="0" cellpadding="0"  align="center" width="93">
<tr>
<td align="center" width="93" ><a href="showproduct.asp?id=<%=rs("id")%>" class="a2"><img border=0 height=80 src="pic/<%=rs("pic")%>" alt="<%=rs("product_name")%> 价格 <%=rs("price")%> 元" width=93></a></td>
</tr>
<tr>
<td align="center"  bgcolor="#FFE7E9" height="20">价格
<%=rs("price")%>.00 </td>
</tr>
</table>
</td>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing%></tr>
</table>
</td>
</tr></div>
</table>