info_class2.asp

漂亮公司企业网站自助建站系统 .asp.rar

 
<table width="178" border="0" cellspacing="0" cellpadding="0">
    <tr> 
    <td height="14"> 
      <table cellspacing=0 cellpadding=0 width=170 height="20">
        <tr> 
          <td> <img src="image/cpfl.gif" width="178"></td>
        </tr>
      </table>
    </td>
  </tr>
 
  <tr> 
    <td> 
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
       
        <tr> 
          <td height="20" align="center"> 
            <%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from wq_sort 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 align="center"> 
                <td height="22" colspan=3  style="CURSOR: hand" onMouseOver="this.bgColor='#FFFFFF';" onMouseOut="this.bgColor='#FFFFFF';"><font color="#FFFFFF"><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 wq_sort2 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 width=7% height="22" ></td>
                <td width=48% height="22" align=center style="CURSOR: hand" onMouseOver="this.bgColor='#FFFFFF';" onMouseOut="this.bgColor='#FFFFFF';" ><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 
					else
				%>
                <td width=45% height="22" align=center style="CURSOR: hand" onMouseOver="this.bgColor='#FFFFFF';" onMouseOut="this.bgColor='#FFFFFF';"><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=3 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>
      </table>
    </td>
  </tr>
</table>