56770_sort.asp

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

<TABLE border="0" cellPadding=0 cellSpacing=0 width=180>
<tr>
<td>
<table cellspacing=0 cellpadding=0 width=180>
<tr>
<td style="padding-left:10px;padding-top:2px" width="100%" height="23" bgcolor="#FFC7C7">
&nbsp; <%=request("sort_name")%>&nbsp; 分类目录</td></tr>
</table>
</td>
</tr>
<td>
<table width="180" border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="#FFE7E9">
<%
if request("sort_name")<>"" then
        sqlt="select * from 56770_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 align=right width=49% height="22">
<a href="showcsort.asp?sort_name=<%=rst("sort_name")%>&csort_name=<%=rst("csort_name")%>"><%=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")%>"><%=rst("csort_name")%></a></td>
</tr>
<%
rst.movenext
loop
rst.close
set rst=nothing
%>
<%else%>
<%
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>
<td align=right width=49% height="22">
<a href=showsort.asp?sort_name=<%=rs("sort_name")%>><%=rs("sort_name")%></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; 
<a href=showsort.asp?sort_name=<%=rs("sort_name")%>><%=rs("sort_name")%></a>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>		<%end if%>
</table>
</td>
</tr>

</tr>
</table>