yms123：
今晚你不在吗？
今晚你不在吗？
回复：（princes）yms123： 你好！你是不是在补觉啊！...
以下是引用princes在2006-5-27 16:33:00的发言：
yms123：
你好！
你是不是在补觉啊！昨天晚上你回答好快，本来我也还要想你请教的，结果这个网上不了了。能否不用response.write的方式，解决我请教的那个二级菜单的子菜单不能正常显示的问题啊。
yms123：
你好！
你是不是在补觉啊！昨天晚上你回答好快，本来我也还要想你请教的，结果这个网上不了了。能否不用response.write的方式，解决我请教的那个二级菜单的子菜单不能正常显示的问题啊。
可以把reponse.write的地方用<%%>分割出来不就行了吗？
<%
Dim divNum
divNum=0
if not rs.eof then
rs.movefirst
Do Until rs.EOF
strSonMenu = rs("menu_id")
%>
<tr>
<td><a href=# onclick=ShowLayer(<%=divNum%>);><%=rs("menu_name")%>菜单一</a></td>
</tr>
<%
response.write strSonMenu
if rs1.state=1 then rs1.close
rs1.Open "select * From menu_info Where Parent_id='" & strSonMenu & "'",cn,1,1
response.write rs1.recordcount
%>
<tr>
<td>
<div style=display:none; id=Layer>
<%
IF Not rs1.EOF Then
Do Until rs1.EOF
%>
<img src="child.gif"><%=rs1("menu_name")%>
<%
rs1.MoveNext
Loop
end if
%>
</div>
</td>
</tr>
<%
IF rs1.State=1 Then rs1.Close
divNum=divNum+1
rs.MoveNext
Loop
end if%>