左侧栏目导航怎么让他默认展示

'栏目导航
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