Source code implementation of the provincial and municipal linkage menu (Access Database Edition)

xiaoxiao2021-03-06  78

On the Internet, you often have a post on the linkage menu, and you will post your code, for university participation. Database: Table 1: Region (ID, province) Table 2: CITY (ID, city, province) II. Code implementation: <% function dbcombox () DIM RS, SQL, MSG SQL = "SELECT * from region" set = conn.execute (SQL) While NOT rs.eof msg = msg & "" "" "") & "" "" ") &" "rs.Movenext Wend Rs.Close Set RS = Nothing dbcombox = msgend function%>

citys = new array (); <% DIM RS, SQL, ISQL = "Select * from city" set = conn.execute (sql) i = 0WHile Not rs.eof% > City [<% = I%>] = new array ("" "")%> "," <% = rs ("city")%> "); <% i = i 1rs .MOVENEXTWENDRS.CLOSESET RS = NOTHING%>

Function Changeelect (SelValue) {var selvalue = selvalue; var i; document.form1.city.LEngth = 0; Document.form1.city.Options [Document.form1.city.Length] = New Option ("Please select", " "); For (i = 0; i

Document.form1.city.Options [document.form1.city.length] = new option ("Please select", "");

region
City
CopyRight © 2020 All Rights Reserved
Processed: 0.046, SQL: 9