asp 无限级分类 代码

asp 无限级分类 代码

Response.Write " <select name=""classType"">"
        Response.Write "<option value=""0"">做为一级分类</option>"
        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 "<option value=""" & Rsp("classid") & """ "
                Response.Write ">"
                If Rsp("depth") = 1 Then Response.Write "&nbsp;&nbsp;├ "
                If Rsp("depth") > 1 Then
                        For i = 2 To Rsp("depth")
                                Response.Write "&nbsp;&nbsp;│"
                        Next
                        Response.Write "&nbsp;&nbsp;├ "
                End If
                Response.Write Rsp("ClassName") & "</option>" & vbCrLf
                Rsp.movenext
            Loop
        Rsp.Close
        Set Rsp = Nothing
        End If
        Response.Write "</select>"