如何写养殖申请报告:ASP编程中的关联下拉菜单问题

来源：百度文库编辑：杭州交通信息网时间：2024/04/28 08:56:37

<FORM NAME=F1 METHOD="POST">
<%
OPENDB OBJCONN,"xxxx"
SET RSCLASS=OBJCONN.EXECUTE("SELECT * FORM CLASS ORDER BY F1DCLASS")
IF RSCLASS.EOF THEN
REAPONSE.WRITE"噢，没有记录！＜孤＞”
ELSE
RESPONSE.WRITE “＜SELECT NAME＝“”CLASS“” STYLE＝“”FONR－SIZE：9PT“” SIZE＝10”
"ONCHANGE=""CLASSSELECTED(THIS){"&_
WBCR1F
"FOR (WAR i=DOCUMENT.F1.SORT.OPTIONS.LENGTH: i>=0; I--)("
"DOCUMENT.F1.SORT.OPTIONS[i}=NULL;"
VBSR1F
DO UNTIL RSCLASS.EOF
IF SLASTCLASS<>RSCLASS("L1DCLASS") THEN
SLASTCLASS=RSCLASS("F1DCLASS")
RESPONSE.WRITE"<OPRION VALUE="RSCLASS("F1DID") & ">" & SLASTCLASS & "</OPTION>"
SJAVASCRIPT=SJAVASCRIPT &"}"
"IF (ELEN.OPRIONS[ELEN.SELECTEDINDES].VALUE=="
RSCLASS(F1DIF") & "){"
END IF
SJAVASCRIPT=SJAVASCRIPT
"DOCUMENT.F1.SORT.OPTIONS[DOCUMENT."
"F1,SORT.OPTION.LENGTH]=NEW OPTION('"
RSCLASS("R1DSORT") & "'.'" & RSCLASS("L1DID") & "');"
VBCR1F
RSCLASS.MOVENEXT
LOOP

RESPONSE.WRITE "</SELECT>"
RESPONSE.WRETE "<SELECT NAME=""SORT" STYLE="" FONT-SIZE:9PT"" SIZE=10>"
RESPONSE.WRITE"<OPRION>请选择＜/OPTION>"
RESPONSE.WRITE"</SELECT>"

SJAVASCRIPT=SJAVASCRIPT &"}"&"}"

RESPONSE.WRITE"<SCR" & "IPT LANGUAGE="" JAVASCRIPT"">"
RESPONSE.WRITE SJAVASCRIPT & "</SCR" & "IPT>"

END IF
RSCLASS.CLOSE
SET RSCLASS=NOTHING
%>
</FORM>
有哪位高手能给解一下吗?

ASP编程中的关联下拉菜单问题 ASP.NET下拉菜单问题 ASP 下拉菜单的问题关于ASP列表菜单关联的问题？ asp关于下拉菜单的问题 asp制作下拉菜单? ASP 二级下拉菜单 asp 中两菜单关联问题,不会用触发事件 asp更新中select下拉菜单的问题 ASP编程中的路径问题？