If Rs1.BOF And Rs1.EOF Then
CacheSelClass = CacheSelClass & "<option>没有添加分类</option>"
End If
Do While Not Rs1.EOF
If Rs1("TurnLink") <> 0 Then
CacheSelClass = CacheSelClass & "<option value=""0"""
Else
If Rs1("depth") = 0 And Rs1("child") <> 0 Then
CacheSelClass = CacheSelClass & "<option"
Else
CacheSelClass = CacheSelClass & "<option value=""" & Rs1("ClassID") & """"
End If
End If
CacheSelClass = CacheSelClass & " {ClassID=" & Rs1("ClassID") & "}>"
If Rs1("depth") = 1 Then CacheSelClass = CacheSelClass & " ├ "
If Rs1("depth") > 1 Then
For i = 2 To Rs1("depth")
CacheSelClass = CacheSelClass & " "
Next
