代码作用是用来做select菜单级联的;代码如下,且运行显示说有“对象不支持此属性或方法”不知道问题出再那里?希望高手解答。
<script>
function changetwo(theForm)
{
var class1= theForm.wlt.options(theForm.wlt.selectedIndex).value;
var two = theForm.tmt;
var num=0;
<%
dim rsone,rstwo,sqlone,sqltwo
set rsone=server.createobject("adodb.recordset")
set rstwo=server.createobject("adodb.recordset")
sqlone = "select * from ks_project"
rsone.open sqlone,conn ,0,1
do while not rsone.eof
sqltwo = "select * from tk_type where ks_project='" & rsone("ks_project")&"'"
rstwo.open sqltwo,conn ,0,1
do while not rstwo.eof
%>
if (class1 == "<%=rsone("ks_project")%>"){
two.options[num]=new option("<%=rstwo("tk_type")%>","<%=rstwo("tk_type")%>");
num=num+1;
}
<%
rstwo.movenext
loop
rstwo.close
rsone.movenext
loop
rsone.close
set rsone=nothing
set rstwo=nothing
%>
two.selectedIndex=0;
}
</script>
本人财富较少,希望不要介意悬赏值少。