"
sqlSmallClass="select * from SmallClass where BigClassName='" & BigClassName & "'"
Set rsSmallClass= Server.CreateObject("ADODB.Recordset")
rsSmallClass.open sqlSmallClass,conn,1,1
if rsSmallClass.eof then
response.Write " 这个栏目下还没有子栏目,请从后台管理添加子栏目。"
else
do while not rsSmallClass.eof
if rsSmallClass("SmallClassName")=SmallClassName then
response.Write(" " & rsSmallClass("SmallClassName") & " ")
else
response.Write(" " & rsSmallClass("SmallClassName") & " ")
end if
rsSmallClass.movenext
loop
end if
rsSmallClass.close
set rsSmallClass=nothing
response.write " |
"
end if
End If
%>