iframe中访问父帧中的下拉框,出现错误,请问代码哪里有问题?
我的页面结构如下:
<!--#include file ="identify.asp"-->
<%orderid=Request.QueryString("orderid")
s1="orderlink.asp?orderid=" & orderid
%>
<html>
<frameset rows="100%,0%,0%" border="0" frameborder="0">
<frame src=<%=s1%> name="mdl" scrolling=auto noresize >
<frame src="order2.asp" name="btm" scrolling=no noresize>
<frame src="blank.asp" name="unsee" noresize scrolling=no>
</frameset>
</html>
在orderlink.asp中有一个<iframe name="ifp" src="ifp.asp" width="0" height="0" marginwidth="0" marginheight="0" frameborder="0" scrolling=no></iframe>
下面是ifp.asp的代码
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%set link=server.CreateObject ("adodb.connection")
link.Open "dsn=data","dujuan","dj1001"
set rsi=server.CreateObject ("adodb.recordset")
dpt=request("sele")
if Request("bgl")="05" then
fdt=Request("fjyb")
sqli="select sonpartyid,parentpartyid,partydes,partyid,deptid,abbr from partyrelation,party where sonpartyid=partyid and deptid='"& dpt & "' and parentpartyid='" & fdt & "' order by abbr,partydes"
rsi.Open sqli,link,3,3
else
fdt=Request("bgl")
sqli="select * from party where (deptid='00' or deptid='" & dpt & "') and partytypeid='" & fdt & "' order by abbr,partydes asc"
rsi.Open sqli,link,3,3
end if
num=rsi.RecordCount
idx=1
Response.Write("<script language='javascript'>")
while not rsi.EOF
%>
parent.frames.document.all.sml.length=<%=idx+1%>;//sml为orderlink.asp中的一个下拉框。
parent.frames.document.all.sml.options[<%=idx%>]=new Option('<%=rsi(5)&"_"&rsi(2)%>','<%=rsi(2)%>');
<%
idx=idx+1
rsi.MoveNext
wend
Response.Write("</script>")%>
</BODY>
</HTML>
现在访问页面的时候总是报错,错误为“parent.frames.document.all.sml”为空或不是对象。请问代码应该怎么写?