Question

求ASP+JS+ACCESS动态树状显示菜单,盼高手回复.

Answer 1

Sub GetArticleCategories(CateIDString)
Dim icount, TempCataStr
Dim MM_SQLString
MM_SQLString = "Select * from table_category order by Ca_order"
Set Cate_Recordset = getRecordSet(MM_SQLString)
Do While Not Cate_Recordset.EOF
TempCataStr = "<option value='"&Trim(Cate_Recordset.Fields.Item("Ca_Order").Value)&"'"
IF Trim(CateIDString) = Trim(Cate_Recordset.Fields.Item("Ca_Order").Value) Then TempCataStr = TempCataStr& " selected='selected'"
IF Recordcounts("table_Category","Ca_order Like '%" & Trim(Cate_Recordset.Fields.Item("Ca_Order").Value) & "0%'","Ca_ID") > 0 Then TempCataStr = TempCataStr& " style='color:#FF0000'"
TempCataStr = TempCataStr&">"
For icount=1 To Int(Len(Trim(Cate_Recordset.Fields.Item("Ca_Order").Value))/4)
TempCataStr = TempCataStr&" |"
Next
TempCataStr = TempCataStr&"--"&Trim(Cate_Recordset.Fields.Item(颂李"Ca_Name").Value)&"</option>"
Response.Write TempCataStr
Cate_Recordset.MoveNext
Loop
Cate_Recordset.Close
Set Cate_Recordset = Nothing
End Sub
--------------------------------------------------------
该函数实际作凯樱带用是将分类库中的分类（二级以上）按树形列示（结果为select的项），详细情况可以联盯芦系我咨询。