asp 大类出来 小类出不来！！！

[居思安VIP]

sub ShowSmallClass_Tree()
if rsBigClass.bof and rsBigClass.eof then
response.Write "栏目正在建设中……"
else
dim sqlClass,rsClass,strTree,BigClassNum,i,j
rsBigClass.movefirst
BigClassNum=rsBigClass.recordcount
i=1
do while not rsBigClass.eof
if i<BigClassNum then
strTree=""
else
strTree=""
end if
sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
strTree= strTree & "<table width=230 border=0 cellpadding=0 cellspacing=0>"
strTree= strTree & "<tr>"
strTree= strTree & "<td width=30 height=22>"
strTree= strTree & "<div align=right><img src=Img/arrow_6.gif width=13 height=11></div></td>"
strTree= strTree & "<td width=200>"
strTree= strTree & "<a href='Product.asp?BigClassName="&rsBigClass("BigClassName") & "'>"
strTree= strTree &"  "& rsBigClass("BigClassName")
strTree=strTree & "</a></td>"
'strTree=strTree & "</td>"

strTree= strTree & "</tr><tr id=child<%=sqlBigClass%> style='display:none'>"
strTree=strTree & "<td height=1 colspan=2 >"
'显示小类名称
sqlSmallClassName = "select * from SmallClass where BigClassName=(select BigClassName from BigClass where BigClassName='" & reBigClass("BigClassName") &"') Order by SmallClassID"
set rsmClass = Server.CreateObject("ADODB.Recordset")
rsmClass.open sqlSmallClassName,1,1
j=1
strTree=strTree & "<div style=padding-left:12px;padding-top:0px;line-height:18px>"
strTree=strTree & "<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") &"SmallClassName=" & rsSmallClass("SmallClassName") & rsSmallClass("SmallClassName")&'></a>"
strTree=strTree & "</div>"

strTree=strTree & "<img height=1 src=img/1x1_pix.gif width=10/></td>"
strTree=strTree & "</tr>"
strTree=strTree & "</table>"
SmallClassNum=rsClass.recordcount
j=1
do while not rsClass.eof
rsClass.movenext
j=j+1
loop
response.write strTree
rsBigClass.movenext
i=i+1
'if i>100 then exit do
rsmClass.eof
rsSmallClass.movenext
j=j+1
loop
rsClass.close
set rsClass=nothing
end if
end sub


可以把大类读取出来 小类读取不出来！！！

[hookee]

sqlSmallClassName = "select * from SmallClass where BigClassName IN (select BigClassName from BigClass where BigClassName='" & reBigClass("BigClassName") &"') Order by SmallClassID"