Product Category

<% dim pcnum sql="select count(*) from P_class where child>0" set rs=conn.execute(sql) pcnum=rs(0) rs.close %>

<% dim l_num,child dim rs_pl,rs_pl2,rs_pl3 dim sql_pl,sql_p dim P_ID2,c_id2 P_ID2=request.QueryString("P_ID") if P_ID2="" then P_ID2=0 sql_pl="select C_ID from P_product where P_ID="&P_ID2 set rs_pl=conn.execute(sql_pl) if rs_pl.eof then c_id2=request.QueryString("c_id") else c_id2=rs_pl(0) end if rs_pl.close if c_id2="" then c_id2=0 dim PathID_List set rs_pl=conn.execute("select parentPath from P_class where classId="&c_id2) if not rs_pl.eof then PathID_List=rs_pl(0)&","&c_id2 else PathID_List=c_id2 end if rs_pl.close l_num=0 sql_pl="select classId,class,child from P_class where depth=0 order by orderId" set rs_pl=conn.execute(sql_pl) do while not rs_pl.eof child=rs_pl("child") if cint(child)>0 then l_num=l_num+1 %>
• <%if cint(child)>0 then%><%=cutstr(rs_pl(1),28)%>
  "> <%sql_pl="select classId,class,parentId,child from P_class where parentId="&rs_pl(0)&" order by orderId" set rs_pl2=conn.execute(sql_pl) do while not rs_pl2.eof %>
  • <%=cutstr(rs_pl2(1),26)%>
  <% rs_pl2.movenext loop rs_pl2.close %>
  <%else%> <%=cutstr(rs_pl(1),26)%> <%end if%>
•  
<% rs_pl.movenext loop rs_pl.close set rs_pl=nothing set rs_p=nothing %>