ASP JSON类文件的使用方法
作者：
前段时间开始学习JSON在ASP中的使用，JSON确实比XML方便。以前在写程序的时候有考虑使用XML来存储数据，但是一直觉得生成文档及文档的调用查询等都很麻烦。
而且要使用某个节点的时候要好好的分析，节点的路径一级级的定位。而JSON最大的好处就是，在使用时候可以只需要将数据字符串声明为一个对象，就可以很方便的调用对象中的各成员。也方便在客户端使用Javascript直接调用程序端生成的数据字符串。
使用ASP的人都知道，ASP可以使用两种类型的脚本引擎，那就是VBSCRIPT和JSCRIPT。偶当初学习的时候就根本不知道JSCRIPT，如果知道的话我想我现在就没有必要这么麻烦的将JSON数据使用JSCRIPT转换后，才能在VBSCRIPT中使用。还好两种脚本引擎各有各的优缺点，而我已经使用VBSCRIPT工作了两年多了，虽然谈不上强，但也已经习惯了这里面的一些使用方法，形成了自己的代码输出规范。
JSON官方写的类文件挺方便的，可以很灵活的定义输出自己想要的JSON数据格式。我将官方的类文件给整理了一下，算是调整成自己觉得挺方便的一种格式吧！
偶调整后的JSON类文件，代码文件地址：
ASP Json类文件源代码
代码使用实例：
1.创建一个JSON对象
Set CNodeJson=New Json_Cls
CNodeJson.QuotedVars=false '是否对象名称加引号
CNodeJson("ID")=1
CNodeJson("Name")="Cloud.L"
CNodeJson("BlogName")="Cloud.L Blog"
Set CNodeJson=Nothing
2.在对象中再创建一个对象
Set CNodeJson=New Json_Cls
CNodeJson.QuotedVars=false '是否对象名称加引号
CNodeJson("ID")=1
CNodeJson("Name")="Cloud.L"
CNodeJson("BlogName")="Cloud.L Blog"
Set CNodeJson("SiteList")=New Json_Cls
CNodeJson("SiteList")("Blog")="https://www.jb51.net"
CNodeJson("SiteList")("CSDN")="http://hi.csdn.net/lingyun410"
Set CNodeJson=Nothing
使用ASP的人都知道，ASP可以使用两种类型的脚本引擎，那就是VBSCRIPT和JSCRIPT。偶当初学习的时候就根本不知道JSCRIPT，如果知道的话我想我现在就没有必要这么麻烦的将JSON数据使用JSCRIPT转换后，才能在VBSCRIPT中使用。还好两种脚本引擎各有各的优缺点，而我已经使用VBSCRIPT工作了两年多了，虽然谈不上强，但也已经习惯了这里面的一些使用方法，形成了自己的代码输出规范。
JSON官方写的类文件挺方便的，可以很灵活的定义输出自己想要的JSON数据格式。我将官方的类文件给整理了一下，算是调整成自己觉得挺方便的一种格式吧！
偶调整后的JSON类文件，代码文件地址：
ASP Json类文件源代码
代码使用实例：
1.创建一个JSON对象
复制代码 代码如下:
Set CNodeJson=New Json_Cls
CNodeJson.QuotedVars=false '是否对象名称加引号
CNodeJson("ID")=1
CNodeJson("Name")="Cloud.L"
CNodeJson("BlogName")="Cloud.L Blog"
Set CNodeJson=Nothing
2.在对象中再创建一个对象
复制代码 代码如下:
Set CNodeJson=New Json_Cls
CNodeJson.QuotedVars=false '是否对象名称加引号
CNodeJson("ID")=1
CNodeJson("Name")="Cloud.L"
CNodeJson("BlogName")="Cloud.L Blog"
Set CNodeJson("SiteList")=New Json_Cls
CNodeJson("SiteList")("Blog")="https://www.jb51.net"
CNodeJson("SiteList")("CSDN")="http://hi.csdn.net/lingyun410"
Set CNodeJson=Nothing