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的項),詳細情況可以聯系我咨詢。