<% Sql="select top 3 * from Web_setup where orderid=2" set rs=Conn.Execute(sql) if rs.eof and rs.bof then else do while not rs.eof sqlrr="select * from Web_set where Elite=1 and Web_setup_id="&rs("id") set rs1=Conn.Execute(sqlrr) if rs1.eof and rs1.bof then else %> <% end if rs.movenext loop end if rs.Close set rs=Nothing dim i,a(5) i=0 sql="select * from Fpic order by id asc" set rs=Conn.Execute(sql) if rs.eof and rs.bof then else do while not rs.eof a(i)=rs("Pic") i=i+1 rs.movenext loop end if rs.Close set rs=Nothing %>
&Sname=<%=rs1("setid")%>"><%=rs1("SetID")%>
 
 
 
<% Sql="select top 3 * from Web_setup where orderid=3" set rs=Conn.Execute(sql) if rs.eof and rs.bof then else do while not rs.eof sqlrr="select * from Web_set where Elite=1 and Web_setup_id="&rs("id") set rs1=Conn.Execute(sqlrr) if rs1.eof and rs1.bof then else %> <% end if rs.movenext loop end if rs.Close set rs=Nothing %>
&Sname=<%=rs1("setid")%>"><%=rs1("SetID")%>
 
 
 
<% Sql="select top 3 * from P_class where ClassID=0 order by id desc" set rs=Conn.Execute(sql) p=rs("ClassName") if rs.eof and rs.bof then else do while not rs.eof %> <% rs.movenext loop end if rs.Close set rs=Nothing %>
" target="_self"><%=rs("className")%>
 
 
 
<% sql="select * from N_list where Elite=1 order by id desc" set rs=conn.Execute(sql) N=rs("id") if rs.eof and rs.bof then else do while not rs.eof %> <% rs.movenext loop end if rs.Close set rs=Nothing %>
"><%=rs("title")%>