<%
classid=request("classid")
set rs=server.createobject("adodb.recordset")
rs.open "select * from feilei where classid="&classid,conn,1,3
classname=rs("classname")
topclass=rs("topclass")
rs.close
%>
烟台在线--历史上的今天--http://www.yt166com
<%
dim xunxu
xunxu=" >> "&classname
while topclass<>0
rs.open "select * from feilei where classid="&topclass,conn,1,3
if not rs.eof then
xunxu=" >> "&rs("classname")&xunxu
topclass=rs("topclass")
end if
rs.close
wend
%>