|
<%
set rsbig = server.CreateObject ("adodb.recordset")
sql="select * from nbclass order by nb_order asc"
rsbig.open sql,conn,1,1
if rsbig.eof and rsbig.bof then
Response.Write ""
else
Thi=1
do while not rsbig.eof
set rstest = server.CreateObject ("adodb.recordset")
sql="select * from nsclass where nb_id="&rsbig("nb_id")&" order by ns_order asc"
rstest.open sql,conn,1,1
if rstest.eof and rstest.bof then
thp="../images/xiao.jpg"
else
thp="../images/da.jpg"
end if
rstest.close
set rstest=nothing
%>
<%
rsbig.movenext
Thi=Thi+1
loop
rsbig.close
set rsbig=nothing
end if
%>
|
