ifram的烦恼！！！！！

[xxsuperboy]

one.asp
'***********************************
'略
<SCRIPT LANGUAGE=vbscript >
Sub change(obj)
ifr.location.href="Q.asp?id=" & obj.value
End Sub
</SCRIPT>
'略
<IFRAME id=ifr src="two.asp?id=0" style="width:0;height:0">
'略

two.asp
‘************************
<%

parentid= Request.QueryString("id")
response.write parentid
%>
<%
if parentid = "0" then
response.write "<select size='1' id='D_Sort2' name='D_Sort2' >"
response.write "<option value=''>全部</option>"
else %>
<select size="1" id="D_Sort2" name="D_Sort2" >
<option value="">全部</option>
<%
set rsTable = Server.CreateObject("ADODB.Recordset")
strsql = "select ID,des from BizStruct where mid =" & parentid
rsTable.Open strsql,Application("DNS_EC2TV630")
do while not rsTable.EOF
%>
<option value="<%=rsTable("id")%>"><%=rsTable("des")%></option>
<%
rsTable.MoveNext
loop
end if

%>
</select>


问题是：我把 ifram中的style="width:0;height:0"这句话删除，就可以出现下拉菜单，加上的话，就不能显示联动效果了。但又不美观了。有哪位？可以指点一下吗？？

[多菜鸟]

在two.asp中加入以下语句：
<script>
function aa(){
parent.window.document.all.ifr.height=docunent.body.scrollHeight;
parent.window.document.all.ifr.width=docunent.body.scrollWidth;
}
window.onload=aa;
</script>

试试看。

[xxsuperboy]

不行呀，报错，说parent.window.document.all.不是对象

[xxsuperboy]

parent.window.docunent.all也不行

[possible_Y]

<IFRAME id=ifr src="two.asp?id=0"></IFRAME>换到<select></select>上面去