asp 无限级分类 代码

Response.Write " "
        Response.Write "做为一级分类"
        Set Rsp=Conn.Execute("SELECT Classid,depth,ClassName FROM Zjc_ClassInfo ORDER BY ChannelId,Orders,RootId")
        If Not (Rsp.Eof And Rsp.Bof) Then
        Do While Not Rsp.EOF
                Response.Write "                 Response.Write ">"
                If Rsp("depth") = 1 Then Response.Write "  ├ "
                If Rsp("depth") > 1 Then
                        For i = 2 To Rsp("depth")
                                Response.Write "  │"
                        Next
                        Response.Write "  ├ "
                End If
                Response.Write Rsp("ClassName") & "" & vbCrLf
                Rsp.movenext
            Loop
        Rsp.Close
        Set Rsp = Nothing
        End If
        Response.Write ""