fenleiinfo.asp

商业网站开发有源代码可以运行

 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td background="images/bj_x.gif" height="1"> </td>
  </tr>
  <tr> 
    <td height="14" bgcolor="EDECEC"> 
      <table cellspacing=0 cellpadding=0 width=170 height="20">
        <tr> 
          <td width=5>&nbsp;</td>
          <td> 
            <div align="center"></div>
             &nbsp;商品分类</td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
  <tr> 
    <td> 
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="6"></td>
        </tr>
        <tr> 
          <td height="20"> 
            <%
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">
              <tr> 
                <td colspan=2 height="22"><font color="#FF6600">&nbsp;&nbsp;&nbsp;<a href="class.asp?lx=big&anid=<%=rs("anclassid")%>"><b><font color="#FF6600"><%=rs("anclass")%></font></b></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">&nbsp;&nbsp;&nbsp;暂无小分类</td>
              </tr>
              <%
	    else
	    	i=0
		while not rs_s.eof
%>
              <tr> 
                <td align=right width=49% height="22"><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=51% height="22"><font color="#FF6600">|</font>&nbsp;<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
%>
              <tr> 
                <td colspan=2 height=1 background="images/bj_x1.gif" ></td>
              </tr>
            </table>
            <%
	    rs_s.close
	    set rs_s=nothing
	rs.movenext
	wend
end if
rs.close
set rs=nothing
%>
          </td>
        </tr>
        <tr> 
          <td></td>
        </tr>
        <tr> 
          <td height="1"></td>
        </tr>
        <tr> 
          <td height="1"></td>
        </tr>
      </table>
    </td>
  </tr>
</table>