<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% dim ChannelID ChannelID=trim(request("ChannelID")) if ChannelID="" then ChannelID=0 else ChannelID=Clng(ChannelID) end if %> <%call ShowClass_Tree()%> <% sub ShowClass_Tree() dim arrShowLine(20) for i=0 to ubound(arrShowLine) arrShowLine(i)=False next dim rsClass,sqlClass,tmpDepth,i sqlClass="select C.ClassID,C.ClassName,C.Depth,L.LayoutFileName,C.NextID,C.LinkUrl,C.Child" if ChannelID=2 then sqlClass= sqlClass & " From ArticleClass C" elseif ChannelID=3 then sqlClass= sqlClass & " From SoftClass C" elseif ChannelID=4 then sqlClass= sqlClass & " From PhotoClass C" end if sqlClass= sqlClass & " inner join Layout L on C.LayoutID=L.LayoutID order by C.RootID,C.OrderID" set rsClass=server.CreateObject("adodb.recordset") rsClass.open sqlClass,conn,1,1 if rsClass.bof and rsClass.bof then strClassTree="没有任何栏目" else strClassTree="" do while not rsClass.eof tmpDepth=rsClass(2) if rsClass(4)>0 then arrShowLine(tmpDepth)=True else arrShowLine(tmpDepth)=False end if if tmpDepth>0 then for i=1 to tmpDepth if i=tmpDepth then if rsClass(4)>0 then strClassTree=strClassTree & "" else strClassTree=strClassTree & "" end if else if arrShowLine(i)=True then strClassTree=strClassTree & "" else strClassTree=strClassTree & "" end if end if next end if if rsClass(6)>0 then strClassTree=strClassTree & "" else strClassTree=strClassTree & "" end if if rsClass(5)="" then strClassTree=strClassTree & "" else strClassTree=strClassTree & "" end if if rsClass(2)=0 then strClassTree=strClassTree & "" & rsClass(1) & "" else strClassTree=strClassTree & rsClass(1) end if 'if rsClass(5)<>"" then ' strClassTree=strClassTree & "(外)" 'end if strClassTree=strClassTree & "" if rsClass(6)>0 then strClassTree=strClassTree & "（" & rsClass(6) & "）" end if strClassTree=strClassTree & "
" rsClass.movenext loop end if rsClass.close set rsClass=nothing response.write strClassTree end sub %>