56770_mlsmall.asp

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

<TABLE border=0 cellPadding=0 cellSpacing=0 width=180>
<tr>
<td bgcolor="#FFC7C7" height="23">
<table cellspacing=0 cellpadding=0 width=180>
<tr>
<td style="padding-left:10px;padding-top:2px" width="100%" height="23" bgcolor="#FFC7C7">
&nbsp; 商品分类</td>
</tr>
</table>
</td>
</tr>
<td>
<table width="180" border="0" cellpadding="0" cellspacing="0" align="center" height="63"  bgcolor="#FFE7E9">
<%
sql="select * from 56770_sort  where sy='1'"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
do while not rs.eof
%>
<tr valign="bottom">
<td height="20">
&nbsp; <IMG src="images/index_mulu.gif" border=0><a href=showsort.asp?sort_name=<%=rs("sort_name")%>><b><%=rs("sort_name")%></b></a></div>
</td>
</tr>
<%
sqlt="select * from 56770_csort where  sort_name='"&rs("sort_name")&"'"
Set rst=Server.CreateObject("ADODB.RecordSet")
rst.open sqlt, conn, 1, 1
do while not rst.eof
%>
<TR>
<td align=right width=49% height="22">
<a href="showcsort.asp?sort_name=<%=rst("sort_name")%>&csort_name=<%=rst("csort_name")%>"  class="a2"><%=rst("csort_name")%></a> </td>
<%
rst.movenext
if rst.eof or rst.bof then
        response.write ""
exit do
end if
%>
<td align=left width=51% height="22">
&nbsp; <a href="showcsort.asp?sort_name=<%=rst("sort_name")%>&csort_name=<%=rst("csort_name")%>"  class="a2"><%=rst("csort_name")%></a></td>
</tr>
<%
rst.movenext
loop
rst.close
set rst=nothing
%>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</td>
</tr>

</table>