老问题了！关于省市二级联动的问题

新人来了 · 发表于 2019-7-15 17:04:11

我需要实现一个2级菜单但是我从网上下载了个关于省份城市的ASP代码，却发现2级不能随一级变化，请大家指点一下！

在database1.mdb数据库中建立两个表分别为province、city。具体字段设计如下：

      Province(省)

      具体字段：id—自动编号 ProvinceName—省名 ProvinceNo—省名编号 ProvinceOrder—省排序编号

省
id ProvinceName ProvinceNo ProvinceOrder
1    北京市 0 0
2    安徽省 1 1
3    山东省 2 2
4 江苏省 3 3

      以下省名略。

      设计思想：id是表的自动编号，ProvinceName和ProvinceNo是必须的，前者是用来存储省名，后者则是联系表city必不可少的字段。至于ProvinceOrder则是用来给省名排序的，控制下拉列表中省名出现的位置，可以省略。

      City(城市)

      具体字段：id—自动编号 CityName—市名 CityNo—市名编号 CityOrder—市排序编号 ProvinceID—所在省编号

市
id

CityName

CityNo

CityOrder

ProvinceID

1

北京市

1

1

0

2

合肥市

2

2

1

3

芜湖市

3

3

1

4

安庆市

4

4

1

5
济南市

5

5

2

6
青岛市

6

6

2

      以下市名略。

      设计思想：前面四项同Province表设计思想，ProvinceID字段将Province表和City表联系起来。

      2.设计样式及编码

      二级联动的样式很简单，在DreamWeaver 2004里向设计页面上放置两个select下拉菜单，分别取名为Province_select、City_select，它们都在名为form1的表单里。

      编码需要用到html、vbscript及javascript。首先是连接数据库，我们用常用的连接。conn.asp中代码略。

      其次，用Javascript和Vbscript将Province和City表中的数据读出来并使Province_select和City_select联系起来，这一步是整个程序的关键所在。

<script language=JavaScript><%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   set conn=server.createobject("ADODB.CONNECTION")
   conn.open connstr
%>
      <%
      dim sql,i,j
      '//////////////////////////读出 Province 表//////////////////////////
      set rs_Province=server.createobject("adodb.recordset")
      sql="select * from Province order by ProvinceOrder"
      rs_Province.open sql,conn,1,1
      %>

      var selects=[];
      selects['xxx']=new Array(new Option('请选择城市……','xxx'));

      <%
      for i=1 to rs_s.recordcount
      %>


      selects['<%=rs_Province("ProvinceNo")%>']=new Array(
      <%
      '//////////////////////////读出 City 表//////////////////////////
      set rs_City=server.createobject("adodb.recordset")
      sql="select * from City where ProvinceID="&rs_Province("id")&" order by ProvinceOrder"
      rs_City.open sql,conn,1,1
      if rs_City.recordcount>0 then
         for j=1 to rs_City.recordcount
            if j=rs_City.recordcount then
      %>


      new Option('<%=trim(rs_City("CityName"))%>','<%=trim(rs_City("CityNo"))%>'));

      <%else%>


      new Option('<%=trim(rs_City("Cityname"))%>','<%=trim(rs_City("CityNo"))%>'),

      <%
      end if
      rs_City.movenext
      next
      else
      %>
      new Option('','0'));


      <%
      end if
      rs_City.close
      set rs_City=nothing
      rs_Province.movenext
      next
      rs_Province.close
      set rs_Province=nothing
   %>

   
   function chsel(){
      with (document.form1){
         if(province_select.value) {
            city_select.options.length=0;
            for(var i=0;i<selects[province_select.value].length;i++){
                  city_select.add(selects[province_select.value]);
}
}
  }
}

</script>

      <select name="Province_select" onChange=chsel()>
      <option value="xxx" selected>请选择省份……</option>
      <%
      dim tmpid  '定义一个临时变量用来记住省id
      tmpid=0

      set rs_Province=server.CreateObject("ADODB.recordset")
      sql="select * from Province "
      rs_Province.open sql,conn,1,1
      while not rs_Province.eof
      tmpid=rs_Province("ProvinceNo")
      response.write "tmpid"
      %>
         <option value="<%=rs_Province("ProvinceNo")%>" ><%=trim(rs_Province("ProvinceName"))%></option>
      <%
      rs_Province.movenext
      wend
      rs_Province.close
      set rs_Province=nothing
      %>
      </select>

      
      <select name="City_select">
      <%
      set rs_City=server.createobject("adodb.recordset")
      sql="select * from City where ProvinceID="&tmpid&" "
      rs_City.open sql,conn,1,1
      while not rs_City.eof
      %>
      <option value="<%=rs_City("CityNo")%>"><%=trim(rs_City("CityName"))%></option>
      <%
      rs_City.movenext
      wend
      rs_City.close
      set rs_City=nothing
      %>
      </select>

新人来了 · 发表于 2019-7-15 17:04:52

<script language=JavaScript><%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
dim sql,i,j
'//////////////////////////读出 Province 表//////////////////////////
set rs_Province=server.createobject("adodb.recordset")
sql="select * from Province order by ProvinceOrder"
rs_Province.open sql,conn,1,1
%>
var selects=[];
selects['xxx']=new Array(new Option('请选择城市……','xxx'));
<%
for i=1 to rs_s.recordcount
%>
selects['<%=rs_Province("ProvinceNo")%>']=new Array(
<%
'//////////////////////////读出 City 表//////////////////////////
set rs_City=server.createobject("adodb.recordset")
sql="select * from City where ProvinceID="&rs_Province("id")&" order by ProvinceOrder"
rs_City.open sql,conn,1,1
if rs_City.recordcount>0 then
for j=1 to rs_City.recordcount
if j=rs_City.recordcount then
%>
new Option('<%=trim(rs_City("CityName"))%>','<%=trim(rs_City("CityNo"))%>'));
<%else%>
new Option('<%=trim(rs_City("Cityname"))%>','<%=trim(rs_City("CityNo"))%>'),
<%
end if
rs_City.movenext
next
else
%>
new Option('','0'));
<%
end if
rs_City.close
set rs_City=nothing
rs_Province.movenext
next
rs_Province.close
set rs_Province=nothing
%>
function chsel(){
with (document.form1){
if(province_select.value) {
city_select.options.length=0;
for(var i=0;i<selects[province_select.value].length;i++){
city_select.add(selects[province_select.value][i]);
}
}
}
}
</script>
<select name="Province_select" onChange=chsel()>
<option value="xxx" selected>请选择省份……</option>
<%
dim tmpid '定义一个临时变量用来记住省id
tmpid=0
set rs_Province=server.CreateObject("ADODB.recordset")
sql="select * from Province "
rs_Province.open sql,conn,1,1
while not rs_Province.eof
tmpid=rs_Province("ProvinceNo")
response.write "tmpid"
%>
<option value="<%=rs_Province("ProvinceNo")%>" ><%=trim(rs_Province("ProvinceName"))%></option>
<%
rs_Province.movenext
wend
rs_Province.close
set rs_Province=nothing
%>
</select>
<select name="City_select">
<%
set rs_City=server.createobject("adodb.recordset")
sql="select * from City where ProvinceID="&tmpid&" "
rs_City.open sql,conn,1,1
while not rs_City.eof
%>
<option value="<%=rs_City("CityNo")%>"><%=trim(rs_City("CityName"))%></option>
<%
rs_City.movenext
wend
rs_City.close
set rs_City=nothing
%>
</select>

复制代码

新人来了 · 发表于 2019-7-15 17:05:25

2级不能随一级变化，请大家指点一下

ttasp · 发表于 2019-7-15 17:15:50

新人来了发表于 2019-7-15 17:05
2级不能随一级变化，请大家指点一下

JS二级与四级联动菜单实例
http://bbs.ttasp.com/forum.php?m ... =8577&fromuid=3
(出处: 天天ASP家园)

参考下，实在不懂数据库发support@ttasp.COM 给你写个demo

新人来了 · 发表于 2019-7-16 10:11:00

ttasp 发表于 2019-7-15 17:15
JS二级与四级联动菜单实例
http://bbs.ttasp.com/forum.php?mod=viewthread&tid=8577&fromuid=3
(出处: ...

发你邮箱了

新人来了 · 发表于 2019-7-16 10:33:56

ttasp 发表于 2019-7-15 17:15
JS二级与四级联动菜单实例
http://bbs.ttasp.com/forum.php?mod=viewthread&tid=8577&fromuid=3
(出处: ...

数据库也发你邮箱了

xuanxiao · 发表于 2019-7-16 11:36:58

新人来了发表于 2019-7-16 10:11
发你邮箱了

省市联动.rar (9.65 KB, 下载次数: 2, 售价: 3 个ASP币)

参考下效果

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'链接数据库
dim conn
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
if err then
response.Write(err.number)
err.clear
conn.close
Set conn = Nothing
Response.Write "数据库连接出错，请检查数据库参数设置。"
Response.End()
end if
'链接数据库完成
'关闭连接过程,可以随时调用
sub CloseConn()
conn.close
set conn=nothing
end Sub
%>
<script language=JavaScript>
<%
dim sql,i,j
'//////////////////////////读出 Province 表//////////////////////////
set rs_Province=server.createobject("adodb.recordset")
sql="select * from Province order by ProvinceOrder"
rs_Province.open sql,conn,1,1
%>
var selects=[];
selects['xxx']=new Array(new Option('请选择城市……','xxx'));
<%
for i=1 to rs_Province.recordcount
%>
selects['<%=rs_Province("ProvinceNo")%>']=new Array(
<%
'//////////////////////////读出 City 表//////////////////////////
set rs_City=server.createobject("adodb.recordset")
sql="select * from City where ProvinceID="&rs_Province("id")&" order by CityOrder"
'response.Write(sql)
' response.End()
rs_City.open sql,conn,1,1
if rs_City.recordcount>0 then
for j=1 to rs_City.recordcount
if j=rs_City.recordcount then
%>
new Option('<%=trim(rs_City("CityName"))%>','<%=trim(rs_City("CityNo"))%>'));
<%else%>
new Option('<%=trim(rs_City("Cityname"))%>','<%=trim(rs_City("CityNo"))%>'),
<%
end if
rs_City.movenext
next
else
%>
new Option('','0'));
<%
end if
rs_City.close
set rs_City=nothing
rs_Province.movenext
next
rs_Province.close
set rs_Province=nothing
%>
function chsel(){
with (document.form1){
if(province_select.value) {
city_select.options.length=0;
for(var i=0;i<selects[province_select.value].length;i++){
city_select.add(selects[province_select.value][i]);
}
}
}
}
</script>

复制代码

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[求代码] 老问题了！关于省市二级联动的问题

浏览过的版块

在线客服

官方Q群 天天ASP家园网友互动群 群1: 697497501(新手学习互助群) 群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[求代码] 老问题了！关于省市二级联动的问题

浏览过的版块

在线客服

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)