index_class.asp

来自「asp的网上卖东西的..看看还可以的吧」· ASP 代码 · 共 60 行

<TABLE cellSpacing=0 cellPadding=0 width=185 border=0>
        <TBODY>
          <TR>
            <TD>
              <TABLE cellSpacing=0 cellPadding=0 width=185 
                        background=images/sub_menu_01_01.gif border=0>
                <TBODY>
                  <TR>
                    <TD class=title_01 style="PADDING-LEFT: 10px" 
                            height=34>产品分类</TD>
                  </TR>
                </TBODY>
              </TABLE>
			  <%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * FROM BJX_class1 order by anclassidorder",conn,1,1
if rs.recordcount=0 then
response.write "<br>目前没有商品分类"
else
while not rs.eof
%>
              <TABLE height=20 cellSpacing=0 cellPadding=0 width=185 
                        background=images/sub_menu_01_02.gif border=0>
                <TBODY>
                  <TR>
                    <TD align=right width=18><IMG id=img_2 height=7 
                              src="images/icon_menu_plus.gif" width=7 
                              border=0></TD>
                    <TD style="PADDING-LEFT: 5px"><a href="fenleiview.asp?lx=big&anid=<%=rs("anclassid")%>"><%=rs("anclass")%></a></TD>
                  </TR>
                </TBODY>
              </TABLE>
	<%
	rs.movenext
wend
end if
rs.close
set rs=nothing
%>
 
              <TABLE cellSpacing=0 cellPadding=0 width=185 
                        background=images/sub_menu_01_02.gif border=0>
                <TBODY>
                  <TR>
                    <TD></TD>
                  </TR>
                </TBODY>
              </TABLE>
              <TABLE cellSpacing=0 cellPadding=0 width=185 border=0>
                <TBODY>
                  <TR>
                    <TD><IMG height=3 
                              src="images/sub_menu_01_05.gif" 
                          width=185></TD>
                  </TR>
                </TBODY>
            </TABLE></TD>
          </TR>
        </TBODY>
    </TABLE>