fenleiinfo.asp

采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 美观、友好的展示铺面 设计中应用了多种网络安全技术 顾客可以方便的查询并订购商品 用户可以方便的定义各种商品信息

<table width="192" border="0" align="center" cellpadding="0" cellspacing="0" background="image/block_2.gif">
<tr> 
<td> 
            <div align="center"><%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 * from shop_anclass order by anclassidorder",conn,1,1
if rs.recordcount=0 then
	response.write "<br>目前没有商品分类"
else
	while not rs.eof
%>
            </div>
            <table width=100% cellspacing="0" cellpadding="0" border="0">
              <tr> 
                <td colspan=2 height="22"><font color="#75710A">　<a href="class.asp?lx=big&anid=<%=rs("anclassid")%>"><font color="#75710A"><b><%=rs("anclass")%></b></font></a></font></td>
              </tr>
              <%
	    set rs_s=server.CreateObject("adodb.recordset")
	    rs_s.open "select * from shop_nclass where anclassid=" & rs("anclassid") & " order by nclassidorder",conn,1,1
	    if rs_s.recordcount=0 then 
%>
              <tr> 
                <td colspan=2 height="22">暂无小分类</td>
              </tr>
              <%
	    else
	    	i=0
		while not rs_s.eof
%>
              <tr> 
                <td align=right width=48% height="22" class="table-xia"><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a></td>
                <%rs_s.movenext
if rs_s.eof then 
response.write "<td align=center>&nbsp;</td></tr>"
else
%>
                <td align=left width=52% height="22" class="table-xia"><font color="#75710A">|</font><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a></td>
              </tr>
              <%
rs_s.movenext
end if%>
              <%
		wend
	    end if
%>
            </table>
            <%
	    rs_s.close
	    set rs_s=nothing
	rs.movenext
	wend
end if
rs.close
set rs=nothing
%></td>
</tr>
<tr>
<td height="16" background="image/block_3.gif">&nbsp;</td>
</tr>
</table>