<% sub Admin_ShowRootClass() dim sqlRoot,rsRoot sqlRoot="select ClassID,ClassName,RootID,Child From SoftClass where ParentID=0 and LinkUrl='' order by RootID" Set rsRoot= Server.CreateObject("ADODB.Recordset") rsRoot.open sqlRoot,conn,1,1 if rsRoot.bof and rsRoot.eof then response.Write("还没有任何栏目,请首先添加栏目。") else response.write "| " do while not rsRoot.eof if rsRoot(2)=RootID then response.Write("" & rsRoot(1) & " | ") tID=rsRoot(0) tChild=rsRoot(3) else response.Write("" & rsRoot(1) & " | ") end if rsRoot.movenext loop end if rsRoot.close set rsRoot=nothing end sub sub Admin_ShowClass_Option(ShowType,CurrentID) if ShowType=0 then response.write "" end if dim rsClass,sqlClass,strTemp,tmpDepth,i dim arrShowLine(20) for i=0 to ubound(arrShowLine) arrShowLine(i)=False next sqlClass="Select * From SoftClass order by RootID,OrderID" set rsClass=server.CreateObject("adodb.recordset") rsClass.open sqlClass,conn,1,1 if rsClass.bof and rsClass.bof then response.write "" else dim UserLevel UserLevel=request.Cookies("asp163")("UserLevel") if UserLevel="" then UserLevel=5000 else UserLevel=Cint(UserLevel) end if do while not rsClass.eof tmpDepth=rsClass("Depth") if rsClass("NextID")>0 then arrShowLine(tmpDepth)=True else arrShowLine(tmpDepth)=False end if if ShowType=1 then if rsClass("LinkUrl")<>"" then strTemp="