sub tree(UPlev)
dim myrs
dim lev
lev=0
str="+"
sqlstr="select id,
skechers tone ups,dept_name,
skechers shape up shoes,lev from cpb_dept where len(lev)=len("& uplev &")+1 and left(lev,
skechers women,len("&uplev&"))="& uplev & " and dept_name not like '%测试%' and flag=true order by lev "
set rs=server.createobject("adodb.recordset")
rs.open sqlstr,conn,1,3
If rs.RecordCount > 0 Then
myrs=rs.GetRows()
rs.Close
Set rs = Nothing
recN=UBound(myrs,
skechers shoes online,2)
For i=0 To recN
if len(myrs(2,i))<>lev then
lev=len(myrs(2,i))
for ii=0 to lev
str=str & "--"
next
end if
'Response.Write("ID: "&myrs(0,i)&",
skechers shape ups, First: "&myrs(1,i)&", Second: "&myrs(2,
shape ups skechers,i)&"<br />")
Response.Write(str & "<img str=images/nofollow.gif>"& myrs(1,i)&"<br />")
call tree(myrs(2,i))
Next
else
rs.Close
Set rs = Nothing
Exit sub
end if
end sub
call tree("11")