Question

急寻ASP语言编程高手，帮忙把二级分类一行显示一个分类

以下是我编的ASP源代码，它支持产品二级分类。
例如：
产品大类1
产品小类1 产品小类2 产品小类3

产品大类2
产品小类1 产品小类2 产品小类3

现在我想把大类产品下的产品小类也一行显示1个，请问各位高手如何实现啊！
急急急急！！！！

以下是我的源代码：
sub ShowAllClass()
if rsBigClass.bof and rsBigClass.eof then
response.Write " 没有任何栏目"
else
dim sqlClass,rsClass,strClassName
rsBigClass.movefirst
do while not rsBigClass.eof
strClassName= " <img src=images/tree_folder4.gif width=15 height=15><a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'><b>" & rsBigClass("BigClassName") & "</b></a><br>"
sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
do while not rsClass.eof
strClassName=strClassName & "     <img src=images/tree_folder3.gif width=15 height=15><a href='Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>" & rsClass("SmallClassName") & "</a>"
rsClass.movenext
loop
response.write strClassName & "<br>"
rsBigClass.movenext
loop
rsClass.close
set rsClass=nothing
end if
end sub

Answer 1

strClassName=strClassName & " <img src=images/tree_folder3.gif width=15 height=15><a href='Product.asp?BigClassName=" & rsClass("BigClassName") & "&SmallClassName=" & rsClass("SmallClassName") & "'>" & rsClass("SmallClassName") & "</a>"
后面加一条
strClassName=strClassName & "<br>"