56770_fenlei1.asp

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

<%
dim fenlei_name
fenlei_name="挂件系列"  '分类名称
%>
<table width="100%" height="23" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="23" align="left" bgcolor="#FFC7C7">&nbsp; &nbsp; [<a href="showsort.asp?sort_name=<%=fenlei_name%>"><%=fenlei_name%>&nbsp; <font size="1">>></font></a>]</td>
</tr>
</table>
<table  border="0" cellspacing="0" cellpadding="0" align="center" width="100%">
<TR bgcolor="#FFE7E9">
<td align=center height="22">
<table  border="0" cellspacing="0" cellpadding="0" align="center" width="98%">
<tr><td>
<%
sqlt="select * from 56770_csort where  sort_name='"&fenlei_name&"'"
Set rst=Server.CreateObject("ADODB.RecordSet")
rst.open sqlt, conn, 1, 1
do while not rst.eof
%>
<a href="showcsort.asp?sort_name=<%=rst("sort_name")%>&csort_name=<%=rst("csort_name")%>"  class="a2"><font color="#333333"><%=rst("csort_name")%></font></a>
<%
rst.movenext
loop
rst.close
set rst=nothing
%></td>
</tr>
</table>
</td></tr>
<TR>
<td align=center height="22">
<table width="100%" border="1" cellpadding="0" cellspacing="0"   bordercolor="#ffe7e9">
<tr>
<td  valign="top" width="88" align="center">
<table  border="0" cellspacing="0" cellpadding="0" align="center" width="100%">
<tr>
<td rowspan="5" width="88" valign="top" align="center">
<%
sql="select top 1 * from 56770_product where sort_name='"&fenlei_name&"' and stj=true order by id DESC"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
do while not rs.eof
%>
<a href="showproduct.asp?id=<%=rs("id")%>"><img border="0" src="pic/<%=rs("pic")%>" <%=rs("product_name")%>" width="88" height="88" vspace="2" hspace="2"></a>
</td>
</tr>
</table>
</td>
<td width="1"></td>
<td  valign="top" width="201">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr><td colspan="3" height="23" align="center">
<font color=red>
<%if rs("price")=0  then %>特价:<%=rs("cprice")%>.00<%else%>商城价:<%=rs("price")%>.00<%end if%>
</font>
　<ahref="basket.asp?id=<%=rs("id")%>"><fontcolor=red><b>√</b>购买</font></a>
</td></tr>
<%
rs.movenext

loop
rs.close
%>
<%
sql="select top 5 * from 56770_product where sort_name='"&fenlei_name&"' and stj=true order by id DESC"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
do while not rs.eof
%>
<%if len(rs("product_name"))>12 then%>
<tr>
<td colspan="3">
&nbsp; <img src="images/index_jian.gif"><a href="showproduct.asp?id=<%=rs("id")%>" class=a2><%=left(rs("product_name"), 12)%>... </td>
<%else%>
<td colspan="3">
&nbsp; <img src="images/index_jian.gif"><a href="showproduct.asp?id=<%=rs("id")%>" class=a2><%=rs("product_name")%>
<%end if%>
</font>  </td> </tr>
<%
rs.movenext

loop
rs.close
%>
</table>
</td>
</tr>
</table></td></tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" height="3">
<tr>
<td height="3"></td>
</tr>
</table>