多级联动菜单类[ASP版]演示

• 作者：80端口♂
• 简介：通过本类，方便地实现多级联动下拉选择菜单
• 参数:级数,分隔符,分类字串,表单名,显示方式等
• 演示级数:5级
• 默认选择:亚洲,中国,北京,朝阳区,汽水糖
• 存在问题:
  • 有一个javascript报错，虽然不影响使用——'undefined'为空或不是对象；
  • option里,name和value属性都是显示出来的分类名称，是文字，而不是该分类的id号，因此根据实际情况有可能需要另外写两个函数，实现根据分类名取得id和根据id取得分类名称，写一次用多次，也不算多难的事；
  • 构造各级分类字串需要特别注意符号的构造，不然很可能出错，容错性还不够好；
  • 目前选择上一级后，下一级只显示"请选择"，不自动选择，应该改进一下，让可以设置是否自动选择
• BLOG讨论:http://www.waasai.com/blog/f/80/archives/2006/366.html
• 演示源码下载：http://www.waasai.com/s/cs/demo.rar
• 效果:如下
• 2006-2-9更新:增加显示方式的设定,可以设置单行或者多行显示
• 2006-2-21更新:感谢Ruicosta帮助解决了js报错的问题[注释掉类定义里第143-145行]

显示/隐藏源代码

<%
dim MyMenu

Setup="5,form1,@@@,|||,###,2" '..............类设置:级数,表单name,分隔符（参看字串样式）,最后一个参数为显示方式，1为单行显示，其他为换行显示
SelectNames="zhou,guo,shi,qu,jie" '..............级联SELECT的name属性
'SelectNames="zhou,guo,shi,qu"

str1="欧洲|||亚洲|||非洲|||大洋洲|||北美洲|||南美洲" '................一级分类
str2="欧洲###德国|||欧洲###法国|||北美洲###美国|||北美洲###加拿大|||亚洲###中国|||亚洲###新加坡" '....二级分类
str3="中国###北京|||中国###上海|||美国###华盛顿|||美国###纽约|||德国###柏林|||新加坡###新加坡市" '....三级分类
str4="北京###朝阳区|||北京###海淀区|||上海###徐汇区|||上海###有个区|||广州###天河区|||纽约###曼哈顿区"
str5="朝阳区###汽水糖|||朝阳区###阿里西西|||海淀区###爱上飞鸟的鱼|||海淀区###Ruicosta"

MenuStr=str1&"***"&str2&"***"&str3&"***"&str4&"***"&str5 '.................几个级别的字串用***符号分隔
DefaultSelect="亚洲###中国###北京###朝阳区###汽水糖" '.................默认选择的项目

set MyMenu=new ChainedSelect80
MyMenu.Config=Setup
MyMenu.SelectName=SelectNames
MyMenu.DefaultSelect=DefaultSelect
MyMenu.SetArray=MenuStr
MyMenu.ShowMenu
set MyMenu=nothing
%>