<% dim w,class class=class & "" class=class & "" class=class & "" class=class & "" class=class & "

" class=class & "" class=class & "" class=class & "" class=class & "" class=class & "

" class=class & " " class=class & "" class=class & " " class=class & "" class=class & "

" class=class & "

" class=class & " " %> <% dim rss,rs2,ii,i set rss = server.CreateObject ("adodb.recordset") set rs2 = server.CreateObject ("adodb.recordset") sql="select anclassid,anclassidorder,anclass from w163_sort order by anclassidorder" rss.open sql,conn,1,1 if rss.eof and rss.bof then %> <% class=class & "没有添加大分类" %> <% else i=1 do while not rss.eof %> <% class=class & "" class=class & " " class=class & "" %> <%rs2.open "select anclassid,nclassid,nclassidorder,nclass from w163_sort2 where anclassid=" & rss("anclassid") & " order by nclassidorder",conn,1,1 'rs2.open sql,conn,1,1 if rs2.eof and rs2.bof then else ii=1 %> <% class=class & " " class=class & "" class=class & "" class=class & "" %> <% rss.movenext i=i+1 loop end if rss.close set rs2=nothing set rss=nothing %> <% class=class & "" class=class & "

" class=class & " " class=class & " 　" class=class & "&rss("anclass")&" class=class & "

" %> <% do while not rs2.eof %> <% class=class & "" class=class & " " class=class & " " class=class & "" %> <% rs2.movenext %> <% class=class & "" class=class & "" class=class & "" class=class & "

" class=class & "" class=class & "&rs2("nclass")&" class=class & "　

" %> <% rs2.movenext loop end if rs2.close %> <% class=class & "

" class=class & "

" %>