allsort.asp

菜单是应用程序的界面

<!--#include file="conn.asp"-->
<!--#include file="IncAsp/venshop_top.asp"-->
<div align="center">
<table cellpadding="0" cellspacing="0" class="all_t1">
<tr><td class="all_l_td" valign="top" height=300><!--#include file="IncAsp/venshop_log.asp"--><div class="d5"></div></td>
<td valign="top" class="all_c_td">
<table width="99%" border="0" cellpadding="0" cellspacing="0">
<tr><td colspan="2" class="sort">&nbsp;<IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 您的位置：  
	<a href="index.asp">首页</a> >>&nbsp;分类列表</td></tr>
<%set rs=server.createobject("adodb.recordset")
sql="select sort_id,sort_name from venshop_sort order by sort_xu desc,sort_id desc" 
rs.open sql,conn,1,1
i=0
do while not rs.eof
i=i+1%>
<tr><td height="30" class="cartshow<%=i mod 2%>"><a style=" font-weight: bold; font-size: 10pt" href="sort.asp?sort_id=<%=rs("sort_id")%>">【<%=rs("sort_name")%>】</a></td></tr>
<tr><td height="23" class="cartshow<%=i mod 2%>"><p style="line-height: 150%; margin: 3px 5px; ">
<%set rs8=server.CreateObject("adodb.recordset")
rs8.open "select nsort_id,nsort_name from venshop_nsort where sort_id="&rs("sort_id")&" order by nsort_xu desc,nsort_id desc",conn,1,1
do while not rs8.eof and not rs8.bof%>
<a href="nsort.asp?nsort_id=<%=rs8("Nsort_id")%>"><%=rs8("Nsort_name")%></a> | 
<%rs8.movenext
loop
rs8.close
set rs8=nothing%></td></tr>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</table>
</td></tr></table></div><!--#include file="IncAsp/venshop_copy.asp"-->