56770_tjia.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 cx=true and stj=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="1" cellpadding="0" align="center" width="93">
<tr>
<td width="93" ><a href="showproduct.ASP?id=<%=rs("id")%>" class="a2"><img border=0 height=100 src="pic/<%=rs("pic")%>" alt="<%=rs("product_name")%> 特价 <%=rs("cprice")%> 元" width="93"></a></td>
</tr>
<tr>
<td align="center" bgcolor="#FFE7E9" height="20">特价
<%=rs("cprice")%>.00</font> </td>
</tr>
</table>
</td>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing%></tr>
</table>
</td>
</tr></div>
</table>