树型无限分类可否改成<ul><li>格式
这是动易的代码
树型无限分类可否改成 <ul> <li> 格式

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 From ArticleClass C inner join Layout L on C.LayoutID=L.LayoutID order by C.RootID,C.OrderID "
sqlClass= "select ClassID,ClassName,Depth,NextID,LinkUrl,Child,ClassPicUrl,ParentID From ArticleClass order by RootID,OrderID "
Set rsClass=server.createobject( "adodb.recordset ")
rsClass.open sqlClass,conn,1,2
if rsClass.bof and rsClass.bof then
strClassTree= "没有任何栏目 "
else
strClassTree= " "
do while not rsClass.eof
tmpDepth=rsClass( "Depth ") '栏目深度
'if rsClass( "NextID ")> 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( "nextid ")> 0 then
strClassTree=strClassTree & " <img src= 'images/tree_line1.gif ' width= '17 ' height= '16 ' valign= 'abvmiddle '> "
else
strClassTree=strClassTree & " <img src= 'images/tree_line2.gif ' width= '17 ' height= '16 ' valign= 'abvmiddle '> "
end if
else
if arrShowLine(i)=True then
strClassTree=strClassTree & " <img src= 'images/tree_line3.gif ' width= '17 ' height= '16 ' valign= 'abvmiddle '> "
else
strClassTree=strClassTree & " <img src= 'images/tree_line4.gif ' width= '17 ' height= '16 ' valign= 'abvmiddle '> "
end if
end if
next
end if
if rsClass( "Child ")> 0 then
strClassTree=strClassTree & " <img src= 'Images/tree_folder4.gif ' width= '15 ' height= '15 ' valign= 'abvmiddle '> "
else
strClassTree=strClassTree & " <img src= 'Images/tree_folder3.gif ' width= '15 ' height= '15 ' valign= 'abvmiddle '> "
end if
if rsClass( "linkurl ")= " " then
'strClassTree=strClassTree & " <a href= ' " & rsClass(3) & "?ClassID= " & rsClass(0) & " '> "
else
strClassTree=strClassTree & " <a href= ' " & rsClass( "LinkUrl ") & " ' target= '_blank '> "
end if
if rsClass( "Depth ")=0 then
strClassTree=strClassTree & " <b> " & rsClass( "ClassName ") & " </b> "

else
strClassTree=strClassTree & rsClass( "ClassName ")
end if
strClassTree=strClassTree & " </a> "
if rsClass( "Child ")> 0 then
strClassTree=strClassTree & "（ " & rsClass( "Child ") & "） "
end if
strClassTree=strClassTree & " <br> "
rsClass.movenext
loop
end if
rsClass.close
set rsClass=nothing
response.write strClassTree
end sub

我改了没有成对，有点乱，谁有类似代码，无限分类动态生成li ul的

[解决办法]
可以用ul li的
[解决办法]
Nothing is not impossible
[解决办法]
这是什么一丝，排版错误？有预览网址吗？我们看看。不过看你改的方法，你好像改错了。 <ul> <li> 默认是横向排列的，你需要设置为纵向的，另外，ul的前面的点是可以修改的。