fenleiinfo.asp

来自「php 语言写的c2c商城网站程序」· ASP 代码 · 共 57 行

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="180" height="60" background="images/guide03.gif"></td>
</tr>
<tr> 
<td> 
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_anclass order by anclassidorder",conn,1,1
if rs.recordcount=0 then
response.write "<br>目前没有商品分类"
else
while not rs.eof
%>
<table width=100% cellspacing="0" cellpadding="0" border="0">
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select top 2 * from shop_nclass where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
if rs_s.recordcount=0 then 
%>
<tr> 
<td align=center colspan=2 height="24" class="table-you" background="images/bg_guide02.gif">暂无小分类</td>
</tr>
<%
else
i=0
while not rs_s.eof
%>
<tr> 
<td width=100% height="24" class="table-you" background="images/bg_guide02.gif" STYLE='PADDING-LEFT: 18px'>
<a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a><%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>/<a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a></td>
	<%
	rs_s.movenext
	end if
	%>
<%
wend
end if
%>
</tr>
</table>
<%
rs_s.close
set rs_s=nothing
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table>