Asp中利用Json联动下拉框完整示例

        首先,可以按照如下Sql语句,创建一个测试的数据库:
<script type="text/javascript">google_ad_client = "pub-2048279401139630";google_ad_slot = "8856771542";google_ad_width = 728;google_ad_height = 90;document.write("<s"+"cript type='text/javascript' s"+"rc='http://pagead2.googlesyndication.com/pagead/show_ads"+"."+"js'></scr"+"ipt>");</script>
if exists (select * from sysobjects where id = OBJECT_ID('[Research_Dictionary]'and OBJECTPROPERTY(id, 'IsUserTable'= 1
DROP TABLE [Research_Dictionary]

CREATE TABLE [Research_Dictionary] (
[Id] [int]  IDENTITY (11)  NOT NULL,
[ParentId] [int]  NULL DEFAULT (0),
[CategroyName] [nvarchar]  (100NULL,
[CategroyValue] [nvarchar]  (100NULL,
[OrderId] [int]  NULL DEFAULT (0),
[IsActive] [int]  NULL DEFAULT (1),
[CreateDate] [datetime]  NULL DEFAULT (getdate()))

ALTER TABLE [Research_Dictionary] WITH NOCHECK ADD  CONSTRAINT [PK_Research_Dictionary] PRIMARY KEY  NONCLUSTERED ( [Id] )SET IDENTITY_INSERT [Research_Dictionary] ON

INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 1,0,'北京分院','北京分院',0,1,'2007-9-12 10:30:45')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 2,1,'半导体研究所','半导体研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 3,1,'北京基因组研究所','北京基因组研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 4,1,'大气物理研究所','大气物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 5,1,'地理科学与资源研究所','地理科学与资源研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 6,1,'地质与地球物理研究所','地质与地球物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 7,1,'电工研究所','电工研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 8,1,'电子学研究所','电子学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 9,1,'动物研究所','动物研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 10,1,'高能物理研究所','高能物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 11,1,'工程热物理研究所','工程热物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 12,1,'古脊椎动物与古人类研究所','古脊椎动物与古人类研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 13,1,'光电研究院','光电研究院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 14,1,'国家纳米中心','国家纳米中心',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 15,1,'国家天文台','国家天文台',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 16,1,'过程工程研究所','过程工程研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 17,1,'化学研究所','化学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 18,1,'计算机网络信息中心','计算机网络信息中心',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 19,1,'计算技术研究所','计算技术研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 20,1,'科技政策与管理科学研究所','科技政策与管理科学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 21,1,'空间科学与应用研究中心','空间科学与应用研究中心',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 22,1,'理化技术研究所','理化技术研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 23,1,'理论物理研究所','理论物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 24,1,'力学研究所','力学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 25,1,'青藏高原研究所','青藏高原研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 26,1,'软件研究所','软件研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 27,1,'山西煤炭化学研究所','山西煤炭化学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 28,1,'生态环境研究中心','生态环境研究中心',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 29,1,'生物物理研究所','生物物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 30,1,'声学研究所','声学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 31,1,'数学与系统科学研究院','数学与系统科学研究院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 32,1,'微电子研究所','微电子研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 33,1,'微生物研究所','微生物研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 34,1,'文献情报中心','文献情报中心',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 35,1,'物理研究所','物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 36,1,'心理研究所','心理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 37,1,'研究生院','研究生院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 38,1,'遥感应用研究所','遥感应用研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 39,1,'遗传与发育生物学研究所','遗传与发育生物学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 40,1,'植物研究所','植物研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 41,1,'中国遥感卫星地面站','中国遥感卫星地面站',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 42,1,'自动化研究所','自动化研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 43,1,'自然科学史研究所','自然科学史研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 45,0,'山西煤炭化学研究所','山西煤炭化学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 47,0,'合肥物质科学研究院','合肥物质科学研究院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 48,0,'中国科学技术大学','中国科学技术大学',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 50,0,'沈阳分院','沈阳分院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 51,50,'大连化学物理研究所','大连化学物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 52,50,'金属研究所','金属研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 53,50,'沈阳应用生态研究所','沈阳应用生态研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 54,50,'沈阳自动化研究所','沈阳自动化研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 55,50,'海洋研究所','海洋研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 56,50,'青岛能源研究所','青岛能源研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 57,50,'烟台海岸带研究所','烟台海岸带研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 59,0,'长春分院','长春分院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 60,59,'长春光学精密机械与物理研究所','长春光学精密机械与物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 61,59,'长春应用化学研究所','长春应用化学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 62,59,'东北地理与农业生态研究所','东北地理与农业生态研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 63,59,'国家天文台长春人造卫星观测站','国家天文台长春人造卫星观测站',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 65,0,'上海分院','上海分院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 66,65,'上海微系统与信息技术研究所','上海微系统与信息技术研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 67,65,'上海技术物理研究所','上海技术物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 68,65,'上海光学精密机械研究所','上海光学精密机械研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 69,65,'上海硅酸盐研究所','上海硅酸盐研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 70,65,'上海有机化学研究所','上海有机化学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 71,65,'上海应用物理研究所','上海应用物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 72,65,'上海天文台','上海天文台',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 73,65,'上海生命科学研究院','上海生命科学研究院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 74,65,'上海药物研究所','上海药物研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 75,65,'福建物质结构研究所','福建物质结构研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 77,65,'南京分院','南京分院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 78,65,'紫金山天文台','紫金山天文台',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 79,65,'南京地质古生物研究所','南京地质古生物研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 80,65,'南京土壤研究所','南京土壤研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 81,65,'南京地理与湖泊研究所','南京地理与湖泊研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 82,65,'苏州纳米技术研究所','苏州纳米技术研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 83,65,'南京天文光学技术研究所','南京天文光学技术研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 85,0,'武汉分院','武汉分院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 86,86,'武汉物理与数学研究所','武汉物理与数学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 87,86,'水生生物研究所','水生生物研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 88,86,'武汉病毒研究所','武汉病毒研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 89,86,'武汉岩土力学研究所','武汉岩土力学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 90,86,'测量与地球物理研究所','测量与地球物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 91,86,'水工程生态研究所','水工程生态研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 93,0,'广州分院','广州分院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 94,94,'南海海洋研究所','南海海洋研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 95,94,'华南植物园','华南植物园',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 96,94,'广州化学研究所','广州化学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 97,94,'广州电子技术研究所','广州电子技术研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 98,94,'广州能源研究所','广州能源研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 99,94,'广州地球化学研究所','广州地球化学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 100,94,'亚热带农业生态研究所','亚热带农业生态研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 101,94,'广州生物医药与健康研究院','广州生物医药与健康研究院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 102,94,'深圳先进技术研究院','深圳先进技术研究院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 104,0,'成都分院','成都分院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 105,104,'光电技术研究所','光电技术研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 106,104,'成都生物研究所','成都生物研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 107,104,'成都山地灾害与环境研究所','成都山地灾害与环境研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 109,0,'昆明分院','昆明分院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 110,110,'昆明植物研究所','昆明植物研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 111,111,'昆明动物研究所','昆明动物研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 112,112,'西双版纳热带植物园','西双版纳热带植物园',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 113,113,'贵阳地球化学研究所','贵阳地球化学研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 114,114,'云南天文台','云南天文台',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 116,0,'西安分院','西安分院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 117,116,'西安光学精密机械研究所','西安光学精密机械研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 118,116,'地球环境研究所','地球环境研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 119,116,'国家授时中心','国家授时中心',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 120,116,'水土保持与生态研究中心','水土保持与生态研究中心',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 121,116,'秦岭植物园','秦岭植物园',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 123,0,'兰州分院','兰州分院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 124,123,'近代物理研究所','近代物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 125,123,'兰州化学物理研究所','兰州化学物理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 126,123,'寒区旱区环境与工程研究所','寒区旱区环境与工程研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 127,123,'兰州地质研究所','兰州地质研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 128,123,'青海盐湖研究所','青海盐湖研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 129,123,'西北高原生物研究所','西北高原生物研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 131,0,'新疆分院','新疆分院',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 132,131,'新疆生态与地理研究所','新疆生态与地理研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 133,131,'新疆理化技术研究所','新疆理化技术研究所',0,1,'2007-9-12 10:33:16')
INSERT [Research_Dictionary] ([Id],[ParentId],[CategroyName],[CategroyValue],[OrderId],[IsActive],[CreateDate]VALUES ( 134,131,'乌鲁木齐天文站','乌鲁木齐天文站',0,1,'2007-9-12 10:33:16')

SET IDENTITY_INSERT [Research_Dictionary] OFF
");
然后 拷贝下面的代码,保存为*.asp,你就可以看到效果了。
<!--#include virtual="/inc/base.asp"-->
<%
'--------------------------------------- 
'
 JSONClass类 
'
 将Select语句的执行结果转换成JSON 
'
------------------------------------------ 
Class JSONClass 
    
' 定义类属性,默认为Private 
    Private p_SqlString ' 用于设置Select 
    Private p_root ' 返回的JSON对象的名称 
    Private Rs,conn
    
    
Private Sub Class_Initialize()
        SqlString 
= ""
        JSON 
= ""
        
'初始化conn和rs
        Call initConn(conn)
        
Call initRs(rs) 
    
End Sub
    
    
Private Sub Class_Terminate()
        
'清除conn和rs
        Call clearConn(conn)
        
Call clearRs(rs)
    
End Sub
    
    
' 可以外部调用的公共方法 
    Public Function GetJSON()
        
Dim Rs 
        
Dim returnStr 
        
Dim i 
        
Dim oneRecord 
        
        
' 获取数据 
        Set Rs= Server.CreateObject("ADODB.Recordset"
        Rs.open Sql,conn,
1,1 
        
' 生成JSON字符串 
        If Rs.eof=false And Rs.Bof=false Then 
            returnStr
=""&Chr(13)& Chr(9& Chr(9& Root & ":{ "& Chr(13& Chr(9& Chr(9&Chr(9& Chr(9&"records:[ " & Chr(13)
            
            
While(Not Rs.Eof)
                
' ------- 
                oneRecord= Chr(9& Chr(9& Chr(9& Chr(9& Chr(9& "" 
                
                
For i=0 To Rs.Fields.Count -1 
                    oneRecord
=oneRecord & Chr(34& Rs.Fields(i).Name&Chr(34&":" 
                    oneRecord
=oneRecord & Chr(34& Rs.Fields(i).Value&Chr(34&"," 
                
Next 
            
'去除记录最后一个字段后的"," 
            oneRecord=Left(oneRecord,InStrRev(oneRecord,",")-1
            oneRecord
=oneRecord & "}," & Chr(13)
            
'------------ 
            returnStr=returnStr & oneRecord 
            Rs.MoveNext 
            
Wend 
            
' 去除所有记录数组后的"," 
            returnStr=Left(returnStr,InStrRev(returnStr,",")-1& Chr(13)
            returnStr
=returnStr & Chr(9& Chr(9&Chr(9& Chr(9&"]" & Chr(13& Chr(9& Chr(9& "}" &Chr(13& "}" 
        
End If

        GetJSON
=returnStr 
    
End Function 
    
    
'私用方法,在类中使用 
    Private Function check() 
    
    
End Function 
    
    
'数据库操作
    Sub initConn(conn)
        
Set conn=Server.CreateObject("ADODB.Connection")
        conn.Mode
=3
        conn.Open connStr
    
End Sub
    
    
Sub clearConn(conn)
        conn.Close
        
Set conn=Nothing
    
End Sub
    
    
Sub initRs(rs)
        
Set Rs=Server.CreateObject("ADODB.RecordSet")
    
End Sub
    
Sub clearRs(Rs)
        
Set Rs=Nothing
    
End Sub
    
    
Public Property Get Sql
        Sql 
= p_SqlString
    
End Property
    
    
Public Property Let Sql(value)
        p_SqlString 
= value
    
End Property
    
    
Public Property Get Root
        Root 
= p_root
    
End Property
    
    
Public Property Let Root(value)
        p_root 
= value
    
End Property
' 
End Class 
%
>
<%
Set json = new JSONClass
json.Sql 
= "SELECT * FROM Research_Dictionary"
json.Root 
= "Research_Dictionary"

Response.Charset
="utf-8"

'Call OutPut(json.GetJSON())
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Asp Jason联动示例</title>
<script language="JavaScript" type="text/JavaScript" defer>
//----------初始化_json对象----------------
if(typeof(_json) != "object" || typeof(_json) != "undefined") { var _json = new Object(); }

//-----------获得Tree对象-------------------------
_json.Tree 
= function()
{
    return this;
}

//----------设置JSON对象--------------------------
_json.Tree.prototype.JSON 
= function(obj)
{
    
if(obj == null || obj == "")
        obj 
= {};
    return obj;
}

//----------设置Tree的根节点--------------------------
_json.Tree.prototype.root 
= function(strRoot)
{
    
if(strRoot == "")
        strRoot 
= "treeNodes";
    return strRoot;
}

//----------设置Option中Text在JSON中的对应的字段--------------------------
_json.Tree.prototype.optionText 
= function(strText)
{
    
if(strText == "")
        strText 
= "CategroyName";
    return strText;
}

//----------设置Tree的根节点--------------------------
_json.Tree.prototype.optionValue 
= function(strValue)
{
    
if(strValue == "")
        strValue 
= "Id";
    return strValue;
}

//----------添加Select中的OPTION选---------------------
_json.Tree.prototype.addOptions 
= function(strTarget,strfilter,strfiltervalue)
{
    var i; 
    var oSelect 
= this.$(strTarget); 
    
    this.removeOptions(oSelect);
    
    
for(i=0; i < this.JSON[this.root].records.length; i++){ 
        
if(this.JSON[this.root].records[i][strfilter]==strfiltervalue)
        {
            var oOption 
= document.createElement("OPTION"); 

            oSelect.options.add(oOption); 
            oOption.text 
= this.JSON[this.root].records[i][this.optionText] ; 
            oOption.value 
= this.JSON[this.root].records[i][this.optionValue]; 
        }
    };
}

//-----------删除Select中的OPTION选项------------------------
_json.Tree.prototype.removeOptions 
= function(obj)
{
    var o 
= obj || this.$(obj);
    var ln 
= o.length;
        
    
while(ln--)
    {
        o.options[ln] 
= null;
    }
}

//**************通过id调用DOM节点对象******************************
_json.Tree.prototype.$ 
= function ()
{
  var elements 
= new Array();
  
for (var i = 0; i < arguments.length; i++)
  {
    var element 
= arguments[i];
    
if (typeof element == 'string')
      element = document.getElementById(element);
    
if (arguments.length == 1)
      return element;
    elements.push(element);
  }
  return elements;
}

//**************dom的select/input或其他节点的选中值**************
_json.Tree.prototype.$$ 
= function (_id)
{
    var nodeType 
= this.$(_id).nodeName.toLowerCase()
    switch(nodeType)
    {
        
case "input":
        
case "textarea":return this.$(_id).value;
        
case "select": return this.$(_id).options[$(_id).selectedIndex].value;        
        default: return this.$(_id).innerHTML;
    }    
}

var json 
= new _json.Tree();
json.root 
= "<%=json.Root%>";
json.JSON 
= <%=json.GetJSON()%>;
json.optionText 
= "CategroyName";
json.optionValue 
= "Id";

json.addOptions(
"parent","ParentId",0);
</script>
</head>
<body>
<select id="parent" onChange="javascript:json.addOptions('child','ParentId',this.value);">
<option value="0">--请选择--</option>
</select>
<select id="child">

</select>
</body>
</html>");

     有什么地方不明白的,请留言或者加我的msn,qq联系。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值