56770_sortremai.asp

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

<TABLE border=0 cellPadding=0 cellSpacing=0 width=180>
<tr>
<td>
<table cellspacing=0 cellpadding=0 width=180 height="23" bgcolor="#FFC7C7">
<tr>
<td width=5>&nbsp; </td>
<td width="133"><b><%=csort_name%></b> 类热卖</td>
</tr>
</table>
</td>
<tr>
<td>
<table width="180" border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="#FFE7E9">
<tr>
<%if csort_name="" then
sqlt="select id,product_name from 56770_product where  sort_name='"&sort_name&"' order by buys desc"
else
        sqlt="select id,product_name from 56770_product where  csort_name='"&csort_name&"' and sort_name='"&sort_name&"'  order by buys desc"
end if
Set rst=Server.CreateObject("ADODB.RecordSet")
rst.Open sqlt, conn, 1, 1
n=0
do while not rst.eof
%><tr>
<td height="20"> ·<a href="showproduct.asp?id=<%=rst("id")%>"class=a2>
<% if len(rst("product_name"))>11 then%>
<%=left(rst("product_name"), 10)%>...
<%else%>
<%=rst("product_name")%>
<%end if%>
</a></td>
</tr>
<%
i=i+1
if i>10 then exit do
        rst.movenext
loop
rst.close
set rst=nothing
%>
</table>
</td>
</tr>
<tr>
<td>&nbsp; </td>
</tr>  </table>