sub ShowSmallClass_Tree() if rsBigClass.bof and rsBigClass.eof then response.Write "栏目正在建设中……" else dim sqlClass,rsClass,strTree,BigClassNum,i,j rsBigClass.movefirst BigClassNum=rsBigClass.recordcount i=1 do while not rsBigClass.eof if i<BigClassNum then strTree="" else strTree="" end if sqlClass="select * from SmallClass where BigClassName='" & rsBigClass("BigClassName") & "' Order by SmallClassID" Set rsClass= Server.CreateObject("ADODB.Recordset") rsClass.open sqlClass,conn,1,1 strTree= strTree & "<table width=210 border=0 cellpadding=0 cellspacing=0>" strTree= strTree & "<tr>" strTree= strTree & "<td width=24 height=22>" strTree= strTree & "<div align=center><img src=Img/arrow.png width=95 height=16></div></td>" strTree= strTree & "<td width=200>" if rsBigClass("BigClassName")="学府世家" then strTree= strTree & "<font color="#FF00FF"><a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'>" strTree=strTree & rsBigClass("BigClassName") strTree=strTree & "</a></font></td>" else strTree= strTree & "<a href='Product.asp?BigClassName=" & rsBigClass("BigClassName") & "'>" strTree=strTree & rsBigClass("BigClassName") strTree=strTree & "</a></td>" 'strTree=strTree & "</td>" strTree= strTree & "</tr><tr>" strTree=strTree & "<TD height=1 colspan=2 background=img/naSzarym.gif>" strTree=strTree & "<IMG height=1 src=img/1x1_pix.gif width=10></TD>" strTree=strTree & "</TR>" strTree=strTree & "</table>" end if SmallClassNum=rsClass.recordcount j=1 do while not rsClass.eof rsClass.movenext j=j+1 loop response.write strTree rsBigClass.movenext i=i+1 loop rsClass.close set rsClass=nothing end if end sub
说上边红色那一行绿色等号后面语句未结束,帮忙看看,哪出问题拉