default_tjcsort.asp

来自「本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习」· ASP 代码 · 共 42 行

<TABLE border=0 cellPadding=0 cellSpacing=0 width=100%><tr>
<td colspan="3" height="1" background="images/chanpin_x.gif"></td></tr>
<tr>

<td bgcolor="#Ffffff" height="23">
<table cellspacing=0 cellpadding=0 width="100%" background="images/20031228_bg3.gif"><tr>
<td width=5>&nbsp; </td>
<td style="padding-left:10px;padding-top:2px" width="183" height="23"><%=request("csort_name")%>&nbsp;一级类推荐</td>
</tr></table></td><tr>
<td colspan="3" height="1" background="images/chanpin_x.gif"></td></tr>
</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 5 * from product where sort_name='"&sort_name&"' and csort_name='"&csort_name&"' and ytj=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="1" cellpadding="0" bgcolor="#666666" align="center" width="115">
<tr>
<td align="center" bgcolor="#FFFFFF" width="115" ><a href="showproduct.asp?id=<%=rs("id")%>" class="a2"><img border=0 height=95 src="pic/<%=rs("pic")%>" alt="<%=rs("product_name")%> 价格 <%=rs("price")%> 元" width=115></a></td>
</tr>
</table>
</td>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing%></tr>
</table>
</td>
</tr></div>
</table>