<%
Function proclass()
sdx_temstr=""
dim arrShowLine(10)
for i=0 to ubound(arrShowLine)
arrShowLine(i)=False
next
dim sqlClass,rsClass,i,iDepth
sqlClass="select * From sdx_class where ParentID="&rs2("classid")&" order by RootID,Orderid,ordernum"
set rsClass=server.CreateObject("adodb.recordset")
rsClass.open sqlClass,conn,1,1
If Not rsClass.Eof Then
do while not rsClass.eof
iDepth=rsClass("Depth")
if rsClass("NextID")>0 then
arrShowLine(iDepth)=True
else
arrShowLine(iDepth)=False
end if
if iDepth>0 then
for i=1 to iDepth
if i=iDepth then
if rsClass("NextID")>0 then
sdx_temstr=sdx_temstr&""
else
sdx_temstr=sdx_temstr&""
end if
else
if arrShowLine(i)=True then
sdx_temstr=sdx_temstr&" | "
else
sdx_temstr=sdx_temstr&" | "
end if
end if
next
end if
if rsClass("ParentID")=0 then
response.write ""
elseif rsClass("Child")>=0 then
else
sdx_temstr=sdx_temstr&""
end if
if rsClass("Depth")=0 then
end if
if rsClass("ClassID")=cint(oid) then
sdx_temstr=sdx_temstr&"" & rsClass("ClassName") & ""
else
sdx_temstr=sdx_temstr&"" & rsClass("ClassName") & ""
end if
if rsClass("Child")>0 then
sdx_temstr=sdx_temstr&"（" & rsClass("Child") & "）"
end if
rsClass.movenext
loop
Else
End If
rsClass.close
set rsClass=nothing
proclass=sdx_temstr
end Function
%>
<%
set rsc=server.CreateObject("adodb.recordset")
rsc.open "select * from sdx_class where ParentID =0 and classup=0 order by OrderID asc",conn,1,1
if err.number<>0 then
response.write ""
end if
if rsc.eof And rsc.bof then
Response.Write " 对不起，目前还没有分类！
"
else
i=0
do while not rsc.eof
i=i+1
%>
<%
rsc.movenext
loop
end if
rsc.close
set rsc=nothing
%>