主题：[分享]智睿系统栏目类别单独调用显示说明

代码：

Function PocMenu(DateDase,List,topID)
  set rsm=conn.execute("select * from "&DateDase&" Where TopID="&topID&" order by num asc")
  I=0
  do while not rsm.eof
  I=I+1
 Response.Write("<div id='parent"&I&"'>")
 Response.Write("<table width='100%' border='0' cellspacing='0' cellpadding='0' align='center'><tr height='20'>")
 Response.Write("<td width='10%'><a href='#' ><img  src='images/na.gif' border='0''></a></td>")
 Response.Write("<td width='90%'><a  href='"&SitePath&""&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/nb.gif'>　<a href='"&SitePath&""&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

调用：

<%=PocMenu("zhi_rui_e_io_Class","info",TopID)%> ' 指数据表

导航：

info_list.asp?ClassId=25&Topid=25 '25对应的栏目ID号