郁闷!写的二级连动菜单不起作用.大家帮忙改一下

qlwqz 2003-08-21 10:15:42

<html>
<head>
<%
dim conn
set conn=Server.CreateObject("ADODB.Connection")
conn.connectionstring="driver={Microsoft Access Driver (*.mdb)};"&"DBQ="&Server.MapPath("fh&wqz.mdb")
%>
<title>无标题文档</title>
</head>
<body>
<form action="asd.asp" method="get" name="Layer">
选者一级目录:
<select name = "LayerOne" onChange="changelocation(document.Layer.LayerOne.options[document.Layer.LayerOne.selectedIndex].value)">
<%
conn.open
dim sql
sql = "select * from LayerOne"
dim rs
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<option value = "" name = LayerOne>(没有类别)</option>"
else
do while not rs.eof%>
<option value="<%=cstr(rs("TypeOne"))%>" name = LayerOne><% = rs("name")%></option>
<%rs.movenext
loop
end if
%>
</select>
选者二级目录:
<select name="LayerTwo" size="1">
<%
rs.close
sql = "select * from LayerTwo"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
resposne.write "<option value = "" name = LayerTwo>(没有类别)</option>"
else
do while not rs.eof %>
<option value = "<% =cstr(rs("TypeTwo"))%>" name = LayerTwo><%=rs("name")%></option>
<%rs.movenext
loop
end if%>
</select>
<%rs.close
sql = "select * from LayerTwo order by TypeOne"
rs.open sql,conn,0,1
%>
<script language="javascript">
var mylayer = new Array();
<%dim count
count = 0
do while not rs.eof %>
mylayer[<%= count%>] = new array("<%= rs("TypeOne")%>","<% = rs("TypeTwo")%>","<%= rs("name")%>");
<%count = count + 1
rs.movenext
loop
rs.close
conn.close
%>
var jscount = <% =count%>;
function changelocation(layerone)
{
document.frmAnnounce.Nclassid.length = 0;

var layerone = layerone;
var i;
for i = 0 to jscount
{
if(malayer[i][0] = layerone)
{
alert("sada");
document.Layer.LayerOne.options[document.Layer.LayerOne.length]
= new Option(mylayer[i][1], mylayer[i][2]);
}
}
}
</script>
<%
set rs = nothing
set conn = nothing
%>
</form>
</body>
</html>

没有连动的效果,对一级下拉框改变时二级下拉框没有变化.始终是把全部列出来.
如果哪位大哥有兴趣可以把数据库给发过去.

...全文

86 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

xupiao 2003-08-21

打赏
举报

太長,沒看
給你一段代碼
<form name="form1" action="" method="post">
<select name="prlist_item_kind" onChange="document.form1.submit()">
<%
tmp=request("prlist_item_kind")
sql1="select type_no1 from pr_type group by type_no1"
set rs1=getmdbstaticrecordset("pricelist.mdb",sql1)
for i=1 to rs1.recordcount
if rs1.eof then exit for
response.write "<option value="&rs1("type_no1")
if rs1("type_no1")=tmp then
response.write " selected "
end if
response.write ">"&rs1("type_no1")&"</option>"
rs1.movenext
next
rs1.close
set rs1=nothing
%>
</select>
<select name=prlist_type>
<%
sql1="select * from pr_type where type_no1='"&tmp&"'"

set rs1=getmdbstaticrecordset("pricelist.mdb",sql1)
for i=1 to rs1.recordcount
if rs1.eof then exit for
%>
<option value="<%=rs1("type_no2")%>"><%=rs1("type_no2")%></option>
<%
rs1.movenext
next
rs1.close
set rs1=nothing

%>
</select>
</form>

mjwgtm 2003-08-21

打赏
举报

to: xupiao(xupiao) 你的这段代码好像不能用，改了一下
数据库结构
表名：a　字段1（文本）：a 字段2（文本）：b

<html>
<form name="form1" action="" method="post">
<select name="prlist_item_kind" onChange="document.form1.submit()">
<%
tmp=request("prlist_item_kind")
dim conn
dim connstr
connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
Set rs1= Server.CreateObject("ADODB.Recordset")
Set rs2= Server.CreateObject("ADODB.Recordset")
sql1="select a from a group by a"
rs1.open sql1,conn,1,1
for i=1 to rs1.recordcount
if rs1.eof then exit for
response.write "<option value="&rs1("a")
if rs1("a")=tmp then
response.write " selected "
end if
response.write ">"&rs1("a")&"</option>"
rs1.movenext
next
rs1.close
set rs1=nothing
%>
</select>
<select name=prlist_type>
<%
sql2="select b from a where a='"&tmp&"'"
rs2.open sql2,conn,1,1
while not rs2.eof
%>
<option value="<%=rs2("b")%>"><%=rs2("b")%></option>
<%
rs2.movenext
wend
rs2.close
set rs2=nothing

%>
</select>
</form>
</html>