<% totalfl=Conn.Execute("Select count(*) from Qianbo_ProductSort Where ViewFlag and ParentID=0")(0) if Biaoji=0 then fls=totalfl else fls=totalfl-1 end if set rs2 = server.createobject("adodb.recordset") rs2.source = "select id,parentid,sortname from Qianbo_ProductSort where parentid=0 order by id " rs2.open rs2.source,conn,1,1 if rs2.eof then response.write"

" i=1 while not rs2.eof Pid=rs2("id") if pid=ppid or cint(Pid)=cint(Biaoji) then %> <% set rss = server.createobject("adodb.recordset") rss.source = "select id,parentid,sortname from Qianbo_ProductSort where parentid="&Pid&"" rss.open rss.source,conn,1,1 while not rss.eof pppid=rss("id") %> <% if ppid=pppid or cint(pppid)=cint(Biaoji) then %> <% else %> <% end if rss.movenext wend rss.close set rss=nothing else %>