sub allcategory(ID) 'ID为传递来的值 set rs=server.createobject("adodb.recordset") strsql="select categoryid,ParentID from [category] where categoryid="&ID rs.open strsql,conn,1,1 if not(rs.bof and rs.eof) then allclassID=allclassID&rs(0)&"," allcategory(rs("ParentID")) '调用fl()函数,实现递归 end if end sub
提示 错误 '80020009' ......行 50 行 50 的语句是 ：strsql="select categoryid,ParentID from [category] where categoryid="&ID
sub sort(selec) sql="select * from category where ParentID = "&selec&" order by categoryorder" Set Rs1=Conn.Execute(sql) if rs1.eof or rs1.bof then noclass=1 else rs1.movefirst firstid=rs1("categoryid") do while not rs1.eof if selec=0 then
%>
<% else %>
<% end if
ii=ii+1 sort rs1("categoryid") ii=ii-1 rs1.movenext loop rs1.close Set Rs1 = Nothing end if end sub
