56770_p_tjcsort.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;<%=request("csort_name")%>&nbsp; 一级类推荐</td>
</tr>
</table>
</td>
</tr>
<td> <div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" height="100">
<tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 6 * from 56770_product where sort_name='"&sort_name&"' and csort_name='"&csort_name&"' and ytj=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 align="center" bgcolor="#FFFFFF" width="93" ><a href="showproduct.asp?id=<%=rs("id")%>" class="a2"><img border=0 height=95 src="pic/<%=rs("pic")%>" alt="<%=rs("product_name")%>" width=93></a></td>
</tr>
</table>
</td>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing%></tr>
</table>
</td>
</tr></div>
</table>