为什么页面更新不了？

[linzhisong]

<a id="LinkGetInfo" name="LinkGetInfo" target="iframeGetInfo" href="LoadInfo.asp"></a>

<SELECT ID="MemberInfo"><option value="0">清选择</option></selcet>
<iframe name="iframeGetInfo" id="iframeGetInfo" ></iframe>

<SCRIPT LANGUAGE="VBScript">
<!--
sub MemberInfo_onClick()
'Dim MyVar style="display:none"
'MyVar = MsgBox (LinkGetInfo.name, 65, "MsgBox Example")

LinkGetInfo.href ="LoadInfo.asp?rnd" & cstr(rnd()) & "=" & cstr(rnd())
'MyVar = MsgBox ("Hello World1!", 65, "MsgBox Example")
LinkGetInfo.Click
end sub
sub AddSelectOption(byref SelectName,byval varValue,byval varText)
dim objOption
set objSelectName=window.document.all(SelectName)
set objOption=document.createElement("OPTION")
objOption.value=varValue
objOption.text=varText
objSelectName.add objoption
end sub
-->

</SCRIPT>
loadinfo.asp
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
conn.Open strConnString
'sql="select no, enttime, useno, funcno, formno, exittime, computer from base_syslog"
sql="select ordertype,note from base_tabnum"
RS.open sql,Conn,1,1
while not RS.eof
MemberMC=RS.fields("ordertype")
MemberID=RS.fields("note")
Response.Write "call window.parent.AddSelectOption(" & chr(34) & "MemberInfo" & chr(34) & "," & chr(34)& MemberMC & chr(34) & "," & chr(34) & MemberID & chr(34) & ")" & chr(13)
RS.MoveNext
Wend


rs.close()
conn.close()
set conn=nothing
%>

[linzhisong]

我点下拉框是

会弹出新页面 然后就直接打印，不能添加到下拉框里
window.parent.AddSelectOption("MemberInfo","a002","出单1") call window.parent.AddSelectOption("MemberInfo","a003","销货单1") call window.parent.AddSelectOption("MemberInfo","a004","销货单2") call

[linzhisong]

自己解决了。

过来接分了！

[fason]

:)

[fason]

http://www.csdn.net/develop/Read_Article.asp?Id=18910