56770_rmph.asp

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

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="23" align="left" bgcolor=#CC0000>&nbsp; <%=request("sort_name")%>&nbsp; 热卖排行榜</td>
</tr>
<tr>
<td valign="top" bgcolor="#FFC7C7">
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<%
if request("sort_name")="" then
        sql="select top 1 * from 56770_product where stj=true order by buys,views desc"
else
        sql="select top 1 * from 56770_product where sort_name='"&request("sort_name")&"' and  buys>0 order by buys,views desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 3, 3
if rs.eof then
        response.write "...尚无排行..."
else
        i=0
do while not rs.eof
%>
<td >
<a href="showproduct.asp?id=<%=rs("id")%>"><img border="0" src="pic/<%=rs("pic")%>" width="78" height="78" vspace="2" hspace="2"></a>
</td>
<td>
<font color=red> <%if rs("price")=0  then %>特价:<%=rs("cprice")%>.00<%else%>商城价:<%=rs("price")%>.00<%end if%></font>
<br><a href="showproduct.asp?id=<%=rs("id")%>" class=a2>详细资料</a>　<br>
<a href="basket.asp?id=<%=rs("id")%>"><img src="IMAGES/in54_r44_c43.gif" width="54" height="18" border="0"></a>
</td></tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</TR>
</table>
<table width="180" border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="#FFC7C7">
<tr>
<%
if request("sort_name")="" then
        sql="select id,product_name from 56770_product where  buys>0 order by buys desc"
else
        sql="select id,product_name from 56770_product where sort_name='"&request("sort_name")&"' and  buys>0 order by buys desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 3, 3
if rs.eof then
        response.write "...尚无排行..."
else
        i=0
do while not rs.eof
%>
<tr>
<td height="10"><img src="images/arrow.gif"><a href="showproduct.asp?id=<%=rs("id")%>" target="_blank" class=a2>
<% if len(rs("product_name"))>12 then%>
<%=left(rs("product_name"), 12)%>...
<%else%>
<%=rs("product_name")%>
<%end if%>
</a></td>
</TR>
<%i=i+1
if i>7 then exit do
        rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table>
</td>
</tr>
</table>