我的问题是那个TD(设计制作那里,就是数据库中的大类)过高,代码是这样的,有点复杂,两个循环,中间那个循环显示的就是下拉菜单.
是不是因为DIV是包含在TD内造成的,请问该怎样修改才可将TD的高度变为正常.

具体请浏览：http://sonoon.com/0414/products.asp

<%
dim rspr,x1
set rspr = Server.CreateObject("adodb.recordset")
x1 = 1
rspr.open "select * from [ProductBigClass] where lan='en' order by BigClassSort",conn,1,1
if rspr.EOF and rspr.BOF then
response.Write "还没有添加大类别..."
else
do while not rspr.eof
%>
<tr>
<td bgcolor="#FFFFFF" style="BORDER-bottom: #adaead 1px solid;" onmouseover="bgColor='#efefef'" onmouseout="bgColor='#ffffff'">
<div id="back" onMouseOver="menu<%=x1%>.style.visibility='visible'" onMouseOut="out(<%=x1%>)">
<img src="images/3jiao.gif"> <a href="product_list.asp?BigClassName=<%=Server.URLEncode(trim(rspr("BigClassName")))%>"><%=trim(rspr("BigClassName"))%></a>
<div border=1 id="menu<%=x1%>" style="position:relative;top:-20;left:130;width:10;visibility:hidden;">
<table width="102" border="0" cellpadding="0" cellspacing="0" bgcolor="00C4E6" id="link">
<%
dim rscl,cl,x2
set rscl = Server.CreateObject("adodb.recordset")
rscl.open "select * from [ProductSmallClass] where BigClassName='"&trim(rspr("BigClassName"))&"' order by SmallClassSort",conn,1,1
if rscl.EOF and rscl.BOF then
response.Write "还没有添加小类别..."
else
do while not rscl.eof
%>
<tr>
<td id="link" height="20" align="center" style="BORDER-bottom:98CFC9 1px solid"><a href="product_list.asp?BigClassName=<%=Server.URLEncode(trim(rspr("BigClassName")))%>&SmallClassName=<%=Server.URLEncode(trim(rscl("SmallClassName")))%>"><%=trim(rscl("SmallClassName"))%></a></td>
</tr>
<%
rscl.movenext
if rscl.eof then exit do
loop
end if
rscl.close
set rscl = nothing
%>
</table>
</div>
</div>
</td>
</tr>
<%
x1 = x1 + 1
rspr.movenext
if rspr.eof then exit do
loop
end if
rspr.close
set rspr = nothing
%>