ASP Infinite Level classification code

The code is as follows

Copy Code

Response.Write "<select name=" "ClassType" ">" Response.Write "<option value=" "0" "> as a First class classification </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 as 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>"