左侧栏目导航怎么让他默认展示
'栏目导航Function leMenu(DateDase,List)
set rsm=conn.execute("select * from "&DateDase&" Where TopID=0 order by num asc")
I=0
do while not rsm.eof
I=I+1
Response.Write("<div id='parent"&I&"' ></div>")
Response.Write("<table width='100%' border='0' cellspacing='0' cellpadding='0' align='center'><tr height='30'>")
Response.Write("<td width='10%'><a href='#' onClick='expand("&I&")'><img src='images/aa.gif' border='0''></a></td>")
Response.Write("<td width='90%'><a href='"&list&"_list.asp?ClassId="&rsm("ID")&"&Topid="&rsm("TopID")&"' ></b>"&rsm("ClassName")&"</b></a></td></tr></table></div>")
If Mydb("Select Count([ID]) From "&DateDase&" Where TopID="&rsm("ID")&"",1)(0)>0 then
Sqlpp ="select * from "&DateDase&" Where TopID="&rsm("ID")&" order by num"
Set rsu=server.CreateObject("adodb.recordset")
rsu.open sqlpp,conn,1,1
Response.Write("<div id='child"&I&"' style='display:none;'>")
Do while not rsu.Eof
Response.Write("<DIV STYLE='height: 24px;padding-top: 2px;'> <Img src='images/bb.gif'> <a href='"&list&"_list.asp?ClassId="&rsu("ID")&"&Topid="&rsu("TopID")&"'>"&rsu("ClassName")&"</a> </div>")
rsu.Movenext
Loop
Response.Write("</div>")
rsu.close
set rsu=nothing
else
Response.Write("<div id='child"&I&"' style='display:none;'></div>")
end if
rsm.movenext
loop
rsm.close
set rsm=nothing
End function
