查看: 253|回复: 4

[文章教程] 推荐一个快速的ASP JSON解析器(JSON object class)

[复制链接]
xuanxiao 发表于 2019-6-10 21:59:48 | 显示全部楼层 |阅读模式
JSON数据文件demo.txt截图
1.jpg



  1. <%
  2. Option Explicit
  3. Response.LCID = 2052 ' 中国 LCID (使用你当地的LCID).
  4. ' 也可以在当前页面声明,或者在全站session声明LCID属性.
  5. %>
  6. <!--#include file="jsonObject.class.asp" -->
  7. <%
  8. '//json解析开始

  9. dim str_json
  10. dim jsonObj,jsonString,outputObj
  11. set jsonObj = new JSONobject  '//创建对象
  12. '//导入json字符串,结构如图
  13. jsonString =OpenFile("Json_String.txt")  
  14. '//解析开始
  15. jsonObj.parse(jsonString)
  16. '//打印序列化后的对象
  17. jsonObj.Write()        
  18. response.Write "<br>"
  19. '//打印值
  20. Response.Write "网站名称:"&jsonObj.value("SiteName")&"<br>"
  21. Response.Write "网站年龄:" & jsonObj("age") ' 短语法
  22. %>

复制代码

asp_json_read.rar (8.09 KB, 下载次数: 5, 售价: 1 个ASP币)
 楼主| xuanxiao 发表于 2019-6-22 19:02:55 | 显示全部楼层
下面是修改删除属性值方法:

  1. <%
  2. Option Explicit
  3. Response.LCID = 2052 ' 中国 LCID (使用你当地的LCID).
  4. ' 也可以在当前页面声明,或者在全站session声明LCID属性.
  5. %>
  6. <!--#include file="jsonObject.class.asp" -->
  7. <%
  8. dim str_json
  9. dim jsonObj,jsonString,outputObj
  10. set jsonObj = new JSONobject  '//创建对象
  11. '//导入json字符串,结构如图
  12. jsonString =OpenFile("Json_String.txt")  
  13. '//解析开始
  14. jsonObj.parse(jsonString)
  15. '//打印值

  16. Response.Write "网站名称:"&jsonObj.value("SiteName")&"<br>"
  17. Response.Write "网站年龄:" & jsonObj("age") ' 短语法

  18. '//修改sitename值
  19. jsonObj.change "SiteName", "微信与QQ"
  20. jsonObj.change "age", 10
  21. jsonObj.change "nonExisting", "创建成功" '//创建不存在的属性
  22. '//下面开始修改对应值
  23. response.write "<p>下面是修改后的值:<br>"
  24. response.write "网站名称: " & jsonObj.value("SiteName") & "<br>"
  25. Response.Write "网站年龄:" & jsonObj("age") &"<br>" ' 短语法
  26. response.write "不存在的属性: " & jsonObj.value("nonExisting") & "<br>"
  27. response.Write  "</p>"

  28. '//下面开始删除操作
  29. jsonObj.remove "nonExisting" '//删除刚刚新建的属性
  30. jsonObj.remove "aNonExistantPropertyName" ' 即便是不存在的属性,也会静默删除掉

  31. response.write "<p>下面是删除后的值:<br>"
  32. response.write "网站名称: " & jsonObj.value("SiteName") & "<br>"
  33. Response.Write "网站年龄:" & jsonObj("age") &"<br>" ' 短语法
  34. response.write "不存在的属性: " & jsonObj.value("nonExisting") & "<br>"
  35. response.Write  "</p>"
  36.                
  37. set jsonObj = nothing
  38. %>

复制代码

1.jpg
json_update.asp (1.38 KB, 下载次数: 1, 售价: 1 个ASP币)
ttasp 发表于 2019-6-24 12:38:29 | 显示全部楼层
新增属性的方法:
  1. <%
  2. Option Explicit
  3. Response.LCID = 2052 ' 中国 LCID (使用你当地的LCID).
  4. ' 也可以在当前页面声明,或者在全站session声明LCID属性.
  5. %>
  6. <!--#include file="jsonObject.class.asp" -->
  7. <%
  8. '//JSON新增属性
  9. dim str_json
  10. dim jsonObj,jsonString,outputObj
  11. dim item

  12. set jsonObj = new JSONobject  '//创建对象
  13. '//导入json字符串,结构如图
  14. jsonString =OpenFile("Json_String.txt")  
  15. '//解析开始
  16. jsonObj.parse(jsonString)
  17. '//打印序列化后的对象
  18. response.write "<h2>新增属性前</h2>"
  19. jsonObj.Write()        
  20. '//打印值
  21. Response.Write "网站名称:"&jsonObj.value("SiteName")&"<br>"
  22. Response.Write "网站年龄:" & jsonObj("age") ' 短语法

  23. response.write "<h2>新增属性后</h2>"

  24. ' 下面开始新增属性
  25. jsonObj.Add "OS", "Windows"
  26. jsonObj.Add "Server Ip", "115.25.258.12"
  27. jsonObj.Add "SEO", Array(1350, 127, "没数据")

  28. '//打印序列化后的对象
  29. response.Write "<br>"
  30. jsonObj.Write()        
  31. response.write "<h2>打印新增属性</h2>"
  32. '//打印值

  33. Response.Write "服务器系统:"&jsonObj.value("OS")&"<br>"
  34. Response.Write "SEO数据:" &"<br>"
  35. '//打印数组节点
  36. for each item in jsonObj("SEO").items
  37.         if isObject(item) and typeName(item) = "JSONobject" then
  38.                 item.write()
  39.         else
  40.                 response.write item
  41.         end if
  42.        
  43.         response.write "<br>*************************************************<br>"
  44. next
  45. set jsonObj = nothing

  46. %>
复制代码

json_add.asp (1.27 KB, 下载次数: 0, 售价: 1 个ASP币)
ttasp 发表于 2019-6-24 13:12:51 | 显示全部楼层
记载记录集方法:
  1. <%
  2. Option Explicit
  3. Response.LCID = 2052 ' 中国 LCID (使用你当地的LCID).
  4. ' 也可以在当前页面声明,或者在全站session声明LCID属性.
  5. %>
  6. <!--#include file="jsonObject.class.asp" -->
  7. <%
  8. dim str_json
  9. dim jsonObj,jsonString,outputObj
  10. set jsonObj = new JSONobject  '//创建对象

  11. ' 从ADODB.Recordset加载记录集
  12. dim cn, rs
  13. set cn = CreateObject("ADODB.Connection")
  14. cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ttasp_json.mdb")

  15. set rs = cn.execute("SELECT * FROM admin")

  16. jsonObj.LoadRecordset rs

  17. rs.Close
  18. cn.Close
  19. set rs = Nothing
  20. set cn = Nothing

  21. response.Write "<h2>打印JSON字符串</h2>"
  22. jsonObj.defaultPropertyName = "AdminList"
  23. jsonObj.Write()                

  24. set jsonObj=nothing

  25. %>
复制代码


1.jpg
JSON_LOAD_RECORDSET.rar (12.99 KB, 下载次数: 0, 售价: 1 个ASP币)
大熊 发表于 2019-6-28 09:33:46 | 显示全部楼层
牛逼了,学习学习
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号