可以用asp实现动态级联窗口中的菜单窗口中的代码

发布时间：2023-09-13 14:25:24 所属栏目：Asp教程来源：

导读：JS脚本:

<%

dim rs

dim sql

dim count

dim rs1

dim sql1

sql = "select * from region order by zoneid asc"

set rs = server.createobject("adodb.recordset")

rs.open sql,co

JS脚本:

<%

dim rs

dim sql

dim count

dim rs1

dim sql1

sql = "select * from region order by zoneid asc"

set rs = server.createobject("adodb.recordset")

rs.open sql,conn,1,3

%>

<script language = "JavaScript">

var onecount;

onecount=0;

subcat = new Array();

<%

count = 0

do while not rs.eof

%>

subcat[<%=count%>] = new Array("<%= trim(rs("regionname"))%>","<%= trim(rs("zoneid"))%>","<%= trim(rs("regionid"))%>");

<%

count = count + 1

rs.movenext

loop

rs.close

set rs=nothing

%>

onecount=<%=count%>;

function changelocation(zoneid)

{

document.myform.region.length = 0;

var zoneid=zoneid;

var i;

document.myform.region.options[0] = new Option('--地区--','');

for (i=0;i < onecount; i++)

{

if (subcat[i][1] == zoneid)

{

document.myform.region.options[document.myform.region.length] = new Option(subcat[i][0], subcat[i][2]);

}

}

}

</script>

表单内容:

<table>

<form>

<tr>

<td>

<span class="STYLE1">*</span> 大区：

          <select name="zone" size="1" id="zone" onChange="changelocation(document.myform.zone.options[document.myform.zone.selectedIndex].value)">

<option value=0 selected >请选择</option>

<%

sql1 = "select * from bigzone order by zonename asc"

set rs1 = server.createobject("adodb.recordset")

rs1.open sql1,conn,1,3

%>

<%while not rs1.eof%>

<option value="<%=rs1("zoneid")%>"><%=rs1("zonename")%></option>

<%rs1.movenext

wend

rs1.close

set rs1 = nothing

%>

</select>        </td>

        <td width="20%"><span class="STYLE1">*</span>地区：

          <select name="region" size="1" id="region" >

<option value=0 selected >请选择</option>

</select>

</tr>

</form>

</table>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!