|
|
 |
| |
|
|
<%
sql_b="select * from bigclass order by bigclassid"
set rs_b=server.CreateObject("adodb.recordset")
rs_b.open sql_b,conn
%>
<%do while not rs_b.eof%>
<%
for n=1 to 4
pic=""
title=""
bigclass=""
bigclass=rs_b("bigclassname")
if rs_b.eof then
bigclass=""
end if
sql_m="select count(*),title from product where bigclassname='"&bigclass&"' group by title"
set rs_m=server.CreateObject("adodb.recordset")
rs_m.open sql_m,conn
'response.Write rs_m("title")
recn=rs_m("title")
sql_s="select * from product where title='"&recn&"' and bigclassname='"&bigclass&"' order by articleid"
'response.Write sql_m&"||"&sql_s&"
"
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open sql_s,conn
%>
|
<%
set rs_m=nothing
set rs_s=nothing
if not rs_b.eof then
rs_b.movenext
end if
next%>
<%
loop%>
|
|
|
|
|
|
