newasp中main类(54)

            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