<body>
<%
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sql="select a,'b'=count(*) from b group by a"
rs.open sql,conn,1,1
%>
<table width="100%" border="1">
<tr>
<td width="19%">名稱</td>
<td width="20%">名稱</td>
<td width="26%" > </td>
<td width="35%">明細</td>
</tr>
<%
do while not rs.eof
if rs1.state=1 then rs1.close
sql1="select * from b where a='"&rs("a")&"'"
rs1.open sql1,conn,1,3
if rs("b")>1 then
%>
<tr>
<td rowspan="<%=rs("b")%>"><%=rs("a")%></td>
<td rowspan="<%=rs("b")%>"> </td>
<td rowspan="<%=rs("b")%>"> </td>
<td><%=rs1("b")%></td>
</tr>
<%rs1.move 1
do while not rs1.eof
%>
<tr>
<td><%=rs1("b")%></td>
</tr>
<%
rs1.movenext
loop
else
%>
<%
do while not rs1.eof
%>
<tr>
<td><%=rs1("a")%></td>
<td> </td>
<td > </td>
<td><%=rs1("b")%></td>
</tr>
<%
rs1.movenext
loop
end if
rs.movenext
loop
%>
</table>
</body>
</html>