省市联动菜单的源代码实现(access数据库版)
作者：袖梨
2022-06-30
在网上经常看到关于联动菜单的贴子,特将自己的代码贴出来,供大学参与.
一.数据库:
表1:Region(ID,Province)
表2:City(ID,City,Province)
二.代码实现:
<%
function DbCombox()
dim rs,sql,msg
sql = "select * from Region"
set rs = conn.execute(sql)
while not rs.eof
msg = msg & ""
rs.movenext
wend
rs.close
set rs = nothing
DbCombox = msg
End function
%>
会员登录
一.数据库:
表1:Region(ID,Province)
表2:City(ID,City,Province)
二.代码实现:
<%
function DbCombox()
dim rs,sql,msg
sql = "select * from Region"
set rs = conn.execute(sql)
while not rs.eof
msg = msg & ""
rs.movenext
wend
rs.close
set rs = nothing
DbCombox = msg
End function
%>
