<%
sql="select top 30 "& NoContent &" from News where checked=1 order by updatetime DESC"
rs.Open sql,conn,1,1
if not rs.eof then
while not rs.EOF
set rs1=server.CreateObject("ADODB.RecordSet")
sql="select * from BigClass where bigclassname='"&rs("BigClassName")&"'"
rs1.Open sql,conn,1,1
set rs2=server.CreateObject("ADODB.RecordSet")
sq2="select * from SmallClass where SmallClassName='" &rs(" SmallClassName")&"'"
rs2.open sql,conn,1,1
%>
[&BigClassName=<%=rs2("BigClassName")%>&SmallClassID=<%=rs2("SmallClassID")%>&SmallClassName=<%=rs2("SmallClassName")%>&SmallClassType=<%=rs2("SmallClassType")%>" target="_blank"><%=rs("SmallClassName")%>]