asp生成json数据

最新推荐文章于 2024-08-22 09:22:39 发布

ruibon

最新推荐文章于 2024-08-22 09:22:39 发布

阅读量4.3k

点赞数

分类专栏： asp 文章标签： json 递归 asp

本文链接：https://blog.csdn.net/ruibon/article/details/38708993

版权

本文介绍了一种提高效率的方法，通过一次性获取数据库中的所有无限分类记录，然后利用递归函数将其转换为JSON格式，避免了在递归过程中反复查询记录集，节省了资源。

摘要由CSDN通过智能技术生成

看过网上很多asp无限分类的代码，认为在递归代码中重复获取记录集，这样太耗资源了。

下面的方法是一次获取所有的无限分类记录，然后通过函数转换成json格式，这种方法不用重复执行rs获取记录集。

表结构

ID 主键ID

navName 导航名称

pID 父ID，0为顶级栏目

sortID 排序ID

	'递归函数，把数据库表的数据转换成json数据，arrData-数组，parentID-父ID
	sub dataToJson(byref arrData,byval parentID)
		dim m, n
		n = 0
		m = 0
		echo "["
		Do While m<=ubound(arrData,2)
			if arrData(2,m)=parentID then
				if n <> 0 then echo ","
				n = n + 1
				echo "{"
				echo """ID"":" & arrData(0,m)&","
				echo """navName"":""" & arrData(1,m)&""","
				echo """pID"":" & arrData(2,m)&","
				echo """sortID"":" & arrData(3,m)&","
				echo """