<table width="270" border="0" cellpadding="0" cellspacing="4" bgcolor="#59C2F0">
<tr>
<td><img src="images/2.jpg" width="270" height="23"></td>
</tr>
<tr>
<td bgcolor="2DA0DB"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="4">
<tr>
<%
set RsPro=Server.CreateObject("Adodb.Recordset")
SqlPro="select * From ProductClass order by RootID,OrderID"
RsPro.Open SqlPro,conn,1,3
if RsPro.Eof or RsPro.Bof then
response.Write("暂时无类别!")
else
Do while Not RsPro.Eof
%> <td height="30"><div align="left">
<img src="images/bg6.jpg" width="13" height="12"> <a href="pro1.asp?ClassID=<%=RsPro("ClassID")%>" class="white_d"><%=RsPro("ClassName")%></a></div></td>
<td> </td>
</tr><%
RsPro.MoveNext
Loop
End if
RsPro.Close
set RsPro=Nothing
%>
</table>
</td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>