<%
dim rsHs_sort
Set rsHs_sort = Conn.Execute("Select id,类名 from [大类] order by id")
While rsHs_sort.EOF =false
大类 = rsHs_sort("id")
%>
<div style="height:24;" onclick="hs(<%=大类%>);"><%=rsHs_sort("类名")%></div>
<div id="help<%=大类%>">
<ul>
<%
dim rsH_doc
Set rsH_doc = Conn.Execute("Select id,产品名称 from [HelpDoc] where 所属分类=" & 大类 & " order id")
While rsH_doc.EOF =false
%>
<li><%=rsH_doc("产品名称")%></li>
<%
rsH_doc.MoveNext
Wend
rsH_doc.close
Set rsH_doc=nothing
%>
</ul>
</div>
<%
rsHs_sort.MoveNext
Wend
rsHs_sort.close
Set rsHs_sort=nothing
%>