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>"