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

最新推荐文章于 2023-06-01 14:38:09 发布

aspgreener

最新推荐文章于 2023-06-01 14:38:09 发布

阅读量2.4k

点赞数

分类专栏： ASP 文章标签： json asp dictionary insert 生物 function

本文链接：https://blog.csdn.net/aspgreener/article/details/1783834

版权

ASP 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

首先，可以按照如下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 ( 1 , 1 ) NOT NULL ,

[ ParentId ] [ int ] NULL DEFAULT ( 0 ),

[ CategroyName ] [ nvarchar ] ( 100 ) NULL ,

[ CategroyValue ] [ nvarchar ] ( 100 ) NULL ,

[ 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

< ! -- #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 ) & " , "

' 去除记录最后一个字段后的","

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 >

aspgreener

关注

0
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
Asp中利用Json联动下拉框完整示例

首先，可以按照如下Sql语句，创建一个测试的数据库：google_ad_client = "pub-2048279401139630";google_ad_slot = "8856771542";google_ad_width = 728;google_ad_height = 90;document.write("");if exists (select * from sy
复制链接

扫一扫