56770_tj.asp

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

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="23" align="left" bgcolor="#FFC7C7">&nbsp; &nbsp; 一级类推荐</td>
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<%
sql="select top 10 * from 56770_product where ytj=true order by id DESC"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
do while not rs.eof
%>
<td  valign="top" width="50%" align="center">
<table  border="0" cellspacing="0" cellpadding="0" align="center" width="100%">
<tr>
<td colspan="3" height="25">&nbsp; <font color="#FF6500">
<%if len(rs("product_name"))>17 then%>
<%=left(rs("product_name"), 15)%>...
<%else%>
<%=rs("product_name")%>
<%end if%>
</font> </td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td rowspan="5" width="70" valign="top" align="center"> <a href="showproduct.asp?id=<%=rs("id")%>"><img border="0" src="pic/<%=rs("pic")%>" width="60" height="70" vspace="2" hspace="2"></a>
</td>
<td height="20" width="124"> 市场价:<s><%=rs("sprice")%>元</s></td>
</tr> <tr>
<td colspan="3" height="20"> <%if rs("price")=0  then %>
特价:<%=rs("cprice")%>.00<imgsrc="images/tejia.gif">
<%else%>
商城价:<%=rs("price")%>.00
<%end if%></td>
</tr>
<tr>
<td colspan="2" height="20"><a href="showproduct.asp?id=<%=rs("id")%>" class=a2><img src="IMAGES/button_view.gif" border="0"></a>　　
</td><td><a href="basket.asp?id=<%=rs("id")%>"><img src="IMAGES/in54_r44_c43.gif" border="0"></a></td>
<td width="10"></td></tr>
</table>

</td>
<td width="1" bgcolor="#FFE7E9"></td>
<%
rs.movenext
if rs.eof or rs.bof then
        response.write "<td width='210'></td>"
exit do
end if
%>
<td  valign="top" width="50%">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td colspan="3" height="25">&nbsp; <font color="#FF6500">
<%if len(rs("product_name"))>17 then%>
<%=left(rs("product_name"), 15)%>...
<%else%>
<%=rs("product_name")%>
<%end if%>
</font> </td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr>
<td rowspan="5" valign="top" width="70" align="center"> <a href="showproduct.asp?id=<%=rs("id")%>"><img border="0" src="pic/<%=rs("pic")%>" width="60" height="70" vspace="2" hspace="2"></a>
</td>
<td height="20" width="124"> 市场价:<s><%=rs("sprice")%>元</s></td>
</tr>
<tr>
<td colspan="3" height="20"> <%if rs("price")=0  then %>
特价:<%=rs("cprice")%>.00<imgsrc="images/tejia.gif">
<%else%>
商城价:<%=rs("price")%>.00
<%end if%></td>
</tr>
<tr>
<td colspan="2" height="20"><a href="showproduct.asp?id=<%=rs("id")%>" class=a2><img src="IMAGES/button_view.gif" border="0"></a>　　
</td><td><a href="basket.asp?id=<%=rs("id")%>"><img src="IMAGES/in54_r44_c43.gif" border="0"></a></td>
<td width="10"></td></tr>
</table>
</td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="#FFE7E9"></td>
</tr>
<%
rs.movenext

loop
rs.close
%>
</table>
</td>
</tr>
</table>