Red de conocimiento de recetas - Industria de la restauración - Solicite el menú de visualización de árbol dinámico de ASP JS ACCESS, espero que los expertos puedan responder.

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