
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from shop_anclass order by anclassidorder"
rs.open sql,conn,1,1
if rs.recordcount=0 then
response.write "<br>目前没有商品分类"
else
while not rs.eof
%>
<table border="0" width="100%" cellspacing="2" cellpadding="1">
  <tr>
    <td width="100%">
&nbsp;<a href="zhaoshang.asp?lx=big&anid=<%=rs("anclassid")%>" target="_blank"><U><%=rs("anclass")%></u></a>
</td>
  </tr>
</table>
<%
rs.movenext
wend
end if
rs.close
%>

