56770_xsph.asp

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

<TABLE border=0 cellPadding=0 cellSpacing=0 width=100%>
<tr>
<td>
<table cellspacing=0 cellpadding=0 width=180 bgcolor="#FFC7C7">
<tr>
<td width=5>&nbsp; </td>
<td style="padding-left:10px;padding-top:2px" width="133" height="23"><%=request("sort_name")%>&nbsp;热卖排行榜</td>
</tr>
</table>
</td>
</tr>
<td>
<table width="180" border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="#FFE7E9">
<tr>
<%
if request("sort_name")="" then
        sql="select id,product_name from 56770_product order by buys desc"
else
        sql="select id,product_name from 56770_product where sort_name='"&request("sort_name")&"' 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
%>
<td height="10"><img src="images/top/ball.gif"><a href="showproduct.asp?id=<%=rs("id")%>" target="_blank" class=a2>
<% if len(rs("product_name"))>11 then%>
<%=left(rs("product_name"), 10)%>...
<%else%>
<%=rs("product_name")%>
<%end if%>
</a></td>
</TR>
<%i=i+1
if i>15 then exit do
        rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table>
</td>
</tr>
</table>