<%
'首先输出大类，然后再输出小类
sql="select FItemID,FName from t_ProType where FLevel=1"
rs.open sql,con,1,1
do while not rs.eof
%>
 |
锌合金眼镜配件 |
<%'开始输出小类别
msql="select FItemID,FName from t_ProType where FInterID=" & rs("FItemID")
set mrs=con.execute(msql)
do while not mrs.eof
%>
 |
|
<%
mrs.movenext
loop%>
<%
rs.movenext
loop
%>
|
|
|
 |
