default_ml.asp

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

<TABLE border=0 cellPadding=0 cellSpacing=0 width=170>
<tr>
<td bgcolor="#F0F0F0" height="38">
<table cellspacing=0 cellpadding=0 width=170 background="images/hengtiao.gif">
<tr>
<td width=5>&nbsp; </td>
<td style="padding-left:10px;padding-top:2px" width="83" height="38">
&nbsp; <%=request("sort_name")%>商品分类</td>

</tr>
</table>
</td>
</tr>
<td>
<table width="170" border="0" cellpadding="0" cellspacing="0" align="center" background="images/hengtiaobg.gif">
<%
if request("sort_name")<>"" then
        sqlt="select * from csort where  sort_name='"&request("sort_name")&"'"
Set rst=Server.CreateObject("ADODB.RecordSet")
rst.open sqlt, conn, 1, 1
do while not rst.eof
%>
<tr>
<td height="3">&nbsp; </td>
</tr>
<tr>
<td height="20">
&nbsp; <IMG src="images/small.gif" border=0><a href="showcsort.asp?sort_name=<%=rst("sort_name")%>&csort_name=<%=rst("csort_name")%>"><font color="#333333"><%=rst("csort_name")%></font></a>
<%
rst.movenext
if rst.eof or rst.bof then
        response.write ""
exit do
end if
%>
<IMG src="images/small.gif" border=0><a href="showcsort.asp?sort_name=<%=rst("sort_name")%>&csort_name=<%=rst("csort_name")%>"><font color="#333333"><%=rst("csort_name")%></font></a></td>
</tr>
<%
rst.movenext
loop
rst.close
set rst=nothing
%>
<%else%>
<%
sql="select * from sort  where sy='1'"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
do while not rs.eof
%>

<tr>
<td align=right width=49% height="22">
&nbsp; <a href=showsort.asp?sort_name=<%=rs("sort_name")%>><font color=white><%=rs("sort_name")%></font></a></td>
<%
rs.movenext
if rs.eof or rs.bof then
        response.write ""
exit do
end if
%>
<td align=left width=51% height="22">
&nbsp; <font color="#666666">|</font>
&nbsp; <a href=showsort.asp?sort_name=<%=rs("sort_name")%>><font color=white><%=rs("sort_name")%></font></a>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>		<%end if%>
</table>
</td>
</tr>
</table>