<%
f=request("f")
sql="select BBS_ID,BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Qs,treesign from BBS_Cate where BBS_Cate_PID='0' and deleted=0 order by totop asc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
if rs("treesign")=1 then
openclose="opentm.gif"
openclosex="openx.gif"
else
openclose="closetm.gif"
openclosex="close.gif"
end if
%>
<%
sql15="select BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Qs from BBS_Cate where BBS_Cate_PID='"&rs("BBS_Cate_ID")&"' and deleted=0 order by totop asc"
set rs15=server.createobject("adodb.recordset")
rs15.open sql15,conn,1,1
if not rs15.eof then
%>
