|
大家看看是不是哪里的逻辑有问题,
测试网址:http://liangwanliu.gnway.net
这是源码:
<script language="javascript">
function ShowTR(objImg,objTr){
if(objTr.style.display == "block"){
objTr.style.display = "none";
objImg.src = "Images/body/jiao.gif";
objImg.alt = "展开";
}else{
objTr.style.display = "block";
objImg.src = "Images/body/jiaor.gif";
objImg.alt = "折叠";
}
}
//ShowTR(img1,OpenRep1) //设置第1个结点为展开状态
</script>
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from bsort order by anclassidorder"
rs.open sql,conn,1,1
%>
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<%rs.movefirst()
if rs.eof and rs.bof then%>
<tr>
<td align="center">暂无大类分类信息!</td>
</tr>
<%
else
m=1
for i=1 to rs.recordcount '外层循环
set rs_s=server.CreateObject("ADODB.RecordSet")
sql="select * from ssort s inner join bsort b on b.anclassid=s.anclassid order by b.anclassidorder"
rs_s.open sql,conn,1,1
%>
<tr>
<td>
<%
If(rs_s.eof and rs_s.bof)Then
%>
<img src="Images/body/diand.gif" width="38" height="16" border="0">
<%
response.write (server.HTMLEncode(rs("anclass")))
%>
<%
Else
%>
<a href="Javascript:ShowTR(img<%=m%>,OpenRep<%=m%>)"><img src="Images/body/jiao.gif" border="0" alt="展开" id="img<%=m%>"></a>
<a href="Javascript:ShowTR(img<%=m%>,OpenRep<%=m%>)"><%=server.HTMLEncode(rs("anclass"))%></a>
<%
End If
%>
</td>
<%if rs_s.recordcount>0 then%>
<tr id="OpenRep<%=m%>" style="display:none;">
<td colspan="6">
<%
thisclass=rs_s("anclass") ' 该类别的商品类别
for j=1 to rs_s.recordcount '内层循环,显示当前类的商品
' response.write rs_s("anclass") '仅用于测试
if rs_s("anclass")<> thisclass then exit for '如果当前记录的类别与该类的第一条记录的 类别不同时退出循环
%>
<table width="100%" border="0" cellspacing="-2" cellpadding="-2">
<tr >
<td height="25" align="center"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12%" align="center"><img src="Images/body/diand.gif" width="16" height="16" border="0"> </td>
<td width="18%"><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a></td>
</tr>
</table></td>
</tr>
</table>
<% m=m+1
rs_s.movenext
next
%>
</td>
<%end if%>
</tr>
<%
rs.movenext
If rs.Eof Then exit For
next
end if%>
</table>
</div> |
|