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). .