RabbitJSON - 最先进的经典 ASP JSON 解析器

更快、更智能、更简洁。 RabbitJSON 是为 Classic ASP 设计的现代高性能 JSON 解析器——完全超越了过时且存在错误的替代方案，如 aspJSON.com 和 rcdmk/aspJSON。

为什么选择 RabbitJSON？
在 Classic ASP 中处理 JSON 数据不再是一场噩梦！大多数现有解决方案要么过时，要么无法与现代 JSON 结构兼容。RabbitJSON 解决了所有这些问题：

*** 基于路径的数据访问 (user.profile.settings.theme)
***直接从 HTTP/HTTPS 加载 JSON
*** 完全支持 Unicode、表情符号和科学计数法
*** 配置系统 - 设置 maxDepth、strictMode
*** 默认值支持 - 安全数据访问
***高级错误处理 - HasError(), LastError, ClearError()
***字符串化 & 紧凑字符串化支持
*** 全面测试覆盖 和实时基准测试
***零依赖 - 纯 Classic ASP
*** 仅 41 KB (未压缩)



技术规格
平台：Classic ASP / VBScript 5.x+
依赖项： 无（仅使用内置 COM 对象）
文件大小： 40.463 字节 (41 KB)
内存使用： 通过自动清理进行优化
性能： 针对字符串操作进行优化
兼容性：IIS 6.0+ 和 Windows Server 2003+

1. 简单 JSON 解析

解析方法
Parse()方法示例

1. <%
   
2. ' 解析' JSON 字符串'
   
3. Set json = CreateRabbitJSON()
   
4. Set result = json.Parse("{""name"":""天天家园"",""age"":18}")
   
5. 
   
6. If Not (result Is Nothing) Then
   
7.     Response.Write "解析成功！"
   
8.     Response.Write "<br>姓名: " & json.GetValue("name", "")
   
9.     Response.Write "<br>年龄: " & json.GetValue("age", 0)
   
10. Else
    
11.     Response.Write "解析错误: " & json.LastError
    
12. End If
    
13. %>

复制代码

测试结果：


示例下载： 简单解析范例.rar (8.5 KB, 下载次数: 5)

2025-6-27 22:48 上传

点击文件名下载附件

2. 从 HTTP URL 加载 JSON

1. <%
   
2. ' 直接从API检索数据
   
3. Set json = CreateRabbitJSON()
   
4. Set data = json.Parse("https://api.github.com/users/octocat")
   
5. 
   
6.     If Not (data Is Nothing) Then
   
7.         Response.Write "ID: " & json.GetValue("id", 0) & "<br>"
   
8.         Response.Write "姓名: " & json.GetValue("name", "未知") & "<br>"
   
9.     Else
   
10.         Response.Write "错误: " & json.LastError
    
11.     End If
    
12. 
    
13. Set data=Nothing
    
14. 
    
15. %>

复制代码

http加载.asp (597 Bytes, 下载次数: 0, 售价: 1 个ASP币)

2025-7-15 12:06 上传

点击文件名下载附件

3. JSON 创建

1. <%
   
2. '创建字典
   
3. Set dict = Server.CreateObject("Scripting.Dictionary")
   
4. dict("name") = "天天家园"
   
5. dict("age") = 15
   
6. dict("active") = True
   
7. 
   
8. '转换为JSON
   
9. Set json = CreateRabbitJSON()
   
10. jsonOutput = json.Stringify(dict, 2)
    
11. 
    
12. Response.Write "<pre>" & jsonOutput & "</pre>"
    
13. Set data=Nothing
    
14. %>

复制代码

demo_创建JSON.asp (498 Bytes, 下载次数: 0, 售价: 1 个ASP币)

2025-7-15 12:14 上传

点击文件名下载附件

结果：