Solicite el menú de visualización de árbol dinámico de ASP JS ACCESS, espero que los expertos puedan responder.
Sub GetArticleCategories(CateIDString)
Dim icount, TempCataStr
Dim MM_SQLString
MM_SQLString = "Seleccionar * de table_category ordenar por Ca_order"
Establecer Cate_Recordset = getRecordSet(MM_SQLString)
Hacer mientras no sea Cate_Recordset.EOF
TempCataStr = "lt;option value='"amp;Trim(Cate_Recordset. Fields.Item("Ca_Order").Value)amp;"'"
IF Trim(CateIDString) = Trim(Cate_Recordset.Fields.Item("Ca_Order").Value) Then TempCataStr = TempCataStramp " selected='selected'"
IF Recordcounts("table_Category", "Ca_order Like '" & Trim(Cate_Recordset.Fields.Item("Ca_Order").Value) & "0'", " Ca_ID" ) gt; 0 Entonces TempCataStr = TempCataStramp; " style='color: #FF0000'"
TempCataStr = TempCataStramp; "gt;"
Para icount=1 Int( Len( Trim(Cate_Recordset.Fields.Item("Ca_Order").Value))/4)
TempCataStr = TempCataStramp;" |"
Siguiente
TempCataStr = TempCataStramp;"--"amp;Trim(Cate_Recordset.Fields.Item("Ca_Name").Value)amp;"lt;/optiongt;"
Response.Write TempCataStr
Cate_Recordset.MoveNext
Bucle
Cate_Recordset.Close
Establecer Cate_Recordset = Nada
End Sub
-- ------------------------------------------------ -- ----
La función real de esta función es enumerar las categorías (nivel 2 o superior) en la biblioteca de categorías en un formato de árbol (el resultado es el elemento seleccionado. Comuníquese conmigo para obtener más detalles). .