<% set rs = Server.CreateObject("ADODB.Recordset") leib="首页" set rs=conn.execute("SELECT * FROM SClass order by SClassid") if not rs.eof then i=0 do while not rs.eof i=i+1 leib=leib&"»"&rs("SClass")&"" rs.movenext loop end if leib = Replace(leib,"组合","") rs.close set rs=nothing response.write leib %>