web网页下的下拉多选树形选择控件如何实现

http://topic.csdn.net/u/20111210/15/1e2916c9-8175-46ef-a491-3ce04fd154b4.html?seed=1448898496&r=77002818#r_77002818
代码片段如下:
<SELECT style="WIDTH: 180px;" name=DepartID>
  <OPTION value=ALL>全部门店</OPTION>
  <%
  TempSQL = "Select * From Sys_Depart Order By DepartID"
  Set TempRS = Server.CreateObject("ADODB.Recordset")  
  TempRS.Open TempSQL,conn,1,1   
  Do While Not TempRS.eof
  vID = TempRS("DepartID")
  vName = TempRS("DepartName")
  %>  <%if vID = vDepartID then %>
  <OPTION value=<%=vID%> selected ><%=vName%></OPTION>
  <%else %>
  <OPTION value=<%=vID%>><%=vName%></OPTION>
  <%end if %>  <%
  TempRS.MoveNext
  Loop   
  %>
  </SELECT>
请教高手如何实现如同我头像的下拉复选多选树形控件啊？？？
恳请有经验的高手指教。在网上查找了好几天了也没找类似的例子.....