数据库字段:id(自动编号),class_name(菜单名),parentID(父菜单id) 代码如下: <% Sub ShowTree(parentID)      dim s      m=m+1      Dim rs      Set rs = Server.CreateObject(“ADODB.RecordSet”)      sql=”Select class_id,class_name FROM [WMS_Class] where class_father_id=”&Ci