<%Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from class_pay order by orderID "
rs.open sql,conn,1,3
do while not rs.eof
set rss=Server.CreateObject("ADODB.recordset")
sql1="select * from pays where classid="&rs("orderid")
rss.open sql1,conn,1,3
%>
">
<%response.Write(rs("classname"))%>(<%=rss.recordcount%>)
<%response.Write ""
rs.movenext
loop
rss.close
rs.close
%>
|