推荐一个快速的ASP JSON解析器(JSON object class)

xuanxiao · 发表于 2019-6-10 21:59:48

JSON数据文件demo.txt截图

<%
Option Explicit
Response.LCID = 2052 ' 中国 LCID (使用你当地的LCID).
' 也可以在当前页面声明，或者在全站session声明LCID属性.
%>
<%
'//json解析开始
dim str_json
dim jsonObj,jsonString,outputObj
set jsonObj = new JSONobject '//创建对象
'//导入json字符串，结构如图
jsonString =OpenFile("Json_String.txt")
'//解析开始
jsonObj.parse(jsonString)
'//打印序列化后的对象
jsonObj.Write()
response.Write "<br>"
'//打印值
Response.Write "网站名称:"&jsonObj.value("SiteName")&"<br>"
Response.Write "网站年龄:" & jsonObj("age") ' 短语法
%>

复制代码

asp_json_read.rar (8.16 KB, 下载次数: 20, 售价: 10 个ASP币)

xuanxiao · 发表于 2019-6-22 19:02:55

下面是修改删除属性值方法：

<%
Option Explicit
Response.LCID = 2052 ' 中国 LCID (使用你当地的LCID).
' 也可以在当前页面声明，或者在全站session声明LCID属性.
%>
<%
dim str_json
dim jsonObj,jsonString,outputObj
set jsonObj = new JSONobject '//创建对象
'//导入json字符串，结构如图
jsonString =OpenFile("Json_String.txt")
'//解析开始
jsonObj.parse(jsonString)
'//打印值
Response.Write "网站名称:"&jsonObj.value("SiteName")&"<br>"
Response.Write "网站年龄:" & jsonObj("age") ' 短语法
'//修改sitename值
jsonObj.change "SiteName", "微信与QQ"
jsonObj.change "age", 10
jsonObj.change "nonExisting", "创建成功" '//创建不存在的属性
'//下面开始修改对应值
response.write "<p>下面是修改后的值：<br>"
response.write "网站名称: " & jsonObj.value("SiteName") & "<br>"
Response.Write "网站年龄:" & jsonObj("age") &"<br>" ' 短语法
response.write "不存在的属性: " & jsonObj.value("nonExisting") & "<br>"
response.Write "</p>"
'//下面开始删除操作
jsonObj.remove "nonExisting" '//删除刚刚新建的属性
jsonObj.remove "aNonExistantPropertyName" ' 即便是不存在的属性，也会静默删除掉
response.write "<p>下面是删除后的值：<br>"
response.write "网站名称: " & jsonObj.value("SiteName") & "<br>"
Response.Write "网站年龄:" & jsonObj("age") &"<br>" ' 短语法
response.write "不存在的属性: " & jsonObj.value("nonExisting") & "<br>"
response.Write "</p>"
set jsonObj = nothing
%>

复制代码

json_update.asp (1.38 KB, 下载次数: 1, 售价: 1 个ASP币)

ttasp · 发表于 2019-6-24 12:38:29

新增属性的方法：

<%
Option Explicit
Response.LCID = 2052 ' 中国 LCID (使用你当地的LCID).
' 也可以在当前页面声明，或者在全站session声明LCID属性.
%>
<%
'//JSON新增属性
dim str_json
dim jsonObj,jsonString,outputObj
dim item
set jsonObj = new JSONobject '//创建对象
'//导入json字符串，结构如图
jsonString =OpenFile("Json_String.txt")
'//解析开始
jsonObj.parse(jsonString)
'//打印序列化后的对象
response.write "<h2>新增属性前</h2>"
jsonObj.Write()
'//打印值
Response.Write "网站名称:"&jsonObj.value("SiteName")&"<br>"
Response.Write "网站年龄:" & jsonObj("age") ' 短语法
response.write "<h2>新增属性后</h2>"
' 下面开始新增属性
jsonObj.Add "OS", "Windows"
jsonObj.Add "Server Ip", "115.25.258.12"
jsonObj.Add "SEO", Array(1350, 127, "没数据")
'//打印序列化后的对象
response.Write "<br>"
jsonObj.Write()
response.write "<h2>打印新增属性</h2>"
'//打印值
Response.Write "服务器系统:"&jsonObj.value("OS")&"<br>"
Response.Write "SEO数据:" &"<br>"
'//打印数组节点
for each item in jsonObj("SEO").items
if isObject(item) and typeName(item) = "JSONobject" then
item.write()
else
response.write item
end if
response.write "<br>*************************************************<br>"
next
set jsonObj = nothing
%>

复制代码

json_add.asp (1.27 KB, 下载次数: 2, 售价: 1 个ASP币)

ttasp · 发表于 2019-6-24 13:12:51

记载记录集方法：

<%
Option Explicit
Response.LCID = 2052 ' 中国 LCID (使用你当地的LCID).
' 也可以在当前页面声明，或者在全站session声明LCID属性.
%>
<%
dim str_json
dim jsonObj,jsonString,outputObj
set jsonObj = new JSONobject '//创建对象
' 从ADODB.Recordset加载记录集
dim cn, rs
set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ttasp_json.mdb")
set rs = cn.execute("SELECT * FROM admin")
jsonObj.LoadRecordset rs
rs.Close
cn.Close
set rs = Nothing
set cn = Nothing
response.Write "<h2>打印JSON字符串</h2>"
jsonObj.defaultPropertyName = "AdminList"
jsonObj.Write()
set jsonObj=nothing
%>

复制代码

JSON_LOAD_RECORDSET.rar (12.99 KB, 下载次数: 0, 售价: 10 个ASP币)

大熊 · 发表于 2019-6-28 09:33:46

牛逼了，学习学习

xuanxiao · 发表于 2021-5-31 23:30:05

{
"success": true,
"msg": "ok",
"code": 0,
"t": {
"turnNum": "31/05/2021-1236",
"openTime": "2021-05-31 22:27:00",
"serverTime": "2021-05-31 22:26:56",
"name": "Siêu Tốc 45 Giay",
"code": "st45g",
"issueList": [{
"turnNum": "31/05/2021-1235",
"openNum": "9,6,6,6,5,5",
"openTime": "2021-05-31 22:26:15",
"detail": "["966655","32323","65974","94404,01068","26581,99064,01051,50667,07036,25076,97023","9447","8446,2628,1059","381","67"]"
}, {
"turnNum": "31/05/2021-1234",
"openNum": "8,9,5,9,3,6",
"openTime": "2021-05-31 22:25:30",
"detail": "["895936","51965","55936","58515,18551","52382,24847,76418,09611,28779,36644,67726","7194","2465,6783,5233","092","50"]"
}, {
"turnNum": "31/05/2021-1233",
"openNum": "0,4,0,2,7,1",
"openTime": "2021-05-31 22:24:45",
"detail": "["040271","64139","11179","94176,70599","84605,44464,43328,68026,99781,49458,08283","8078","4442,1375,9591","284","09"]"
}, {
"turnNum": "31/05/2021-1232",
"openNum": "2,5,0,6,3,9",
"openTime": "2021-05-31 22:24:00",
"detail": "["250639","85851","90505","96689,53958","35820,72607,02020,11928,42420,22039,07919","2699","3792,1011,3974","134","16"]"
}, {
"turnNum": "31/05/2021-1231",
"openNum": "0,3,1,7,0,5",
"openTime": "2021-05-31 22:23:15",
"detail": "["031705","25046","97310","98690,88626","93352,38055,10531,48162,71396,00696,85605","7051","1485,1942,7796","805","21"]"
}]
}
}

复制代码

解析JSON样例

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Option Explicit
session.codepage=65001
response.charset="utf-8"
Response.LCID = 2052 ' 中国 LCID (使用你当地的LCID).
' 也可以在当前页面声明，或者在全站session声明LCID属性.
%>
<%
'//json解析开始
dim url,item
dim str_json
dim jsonObj,jsonString,outputObj
dim arr
set jsonObj = new JSONobject '//创建对象
jsonString ="样例代码"
'//解析开始
jsonObj.parse(jsonString)
'jsonObj.Write()
Set arr = jsonObj("t")("issueList")
For each item in arr.items
'//print result
response.Write "turnNum:"&item("turnNum")&", "
response.Write "openNum:"&item("openNum")&", "
response.Write "openTime:"&item("openTime")&"<br>"
Next
Set arr=nothing
set jsonObj=nothing
%>

复制代码

Set objJSON= new JSONobject '//创建对象
objJSON.parse(strJson)
Set arrJSON= objJSON("TTASP")
for i = 0 to arrJSON.length - 1
Set itemJson = arrJSON(i)
response.write itemJson("耗材名称")
response.write "<br>"
Set itemJson =Nothing
next '
'
Set arrJSON=nothing
Set objJson=nothing

复制代码

热米粉 · 发表于 2022-2-26 10:25:53

有没有可能，在 global 里面注册一个 IE 11 的 JSON 对象，然后全局调用 JSON.parse 和 JSON.stringify

xuanxiao · 发表于 2022-2-26 22:10:41

热米粉发表于 2022-2-26 10:25
有没有可能，在 global 里面注册一个 IE 11 的 JSON 对象，然后全局调用 JSON.parse 和 JSON.stringify

有简单解析版本，最快速的Json字符串解析方法（超简单）
http://bbs.ttasp.com/thread-8820-1-1.html
(出处: 天天ASP家园)

xuanxiao · 发表于 2022-3-6 17:51:48

一个JSON字符串解析范例（包含多个数组嵌套） QQ截图20220306175057.png

数组JSON.rar (9.92 KB, 下载次数: 28, 售价: 10 个ASP币)

解析结果：
QQ截图20220306175322.png

xuanxiao · 发表于 2022-3-30 18:53:45

创建JSON数组节点：

set MyJson = New JSONobject
call Arr_Add()
MyJson.Write()
set MyJson =nothing
Sub Arr_Add()
set JSONarr = New JSONarray
'//创建数组
year_start=Year(now())
For i=year_start to year_start+19
Fname=Fdir&"/"&i&"/"&Birth_Rate&".txt"
myarr=ReadFromTextFile(Fname,"Utf-8")
myarr=split(myarr,",")
set JSON = New JSONobject
JSON.Add "birth", myarr(0)
JSON.Add "total", myarr(1)
JSONarr.Push JSON
set JSON =nothing
Next'
MyJson.Add "20years", JSONarr
Set JSONarr=nothing
End Sub

复制代码

无忧全自动操作 · 发表于 2023-6-16 21:33:46

rcdmk/aspJSON：一个快速的经典 ASP JSON 解析器和编码器，用于简单的 JSON 操作以与新的 JavaScript MV* 库和框架一起工作。
https://github.com/rcdmk/aspJSON

数据交互还是习惯用json，就满网络找json的方法。
找到个类，很好用，分享给大家。
asp中使用json，这个jsonObject.class.asp真心不错
支持rs直接转json，单行、多行都可以

JSON.Add "prop1", "someString"
JSON.Change "prop1", "someOtherString"
Response.Write JSON.Value("prop1")

这样操作感觉代码比较繁琐，最方便是直接：
JSON("abc")=333 '没有该项就自动添加
JSON.remove("abc")

xuanxiao · 发表于 2023-6-17 13:33:18

无忧全自动操作发表于 2023-6-16 21:33
rcdmk/aspJSON：一个快速的经典 ASP JSON 解析器和编码器，用于简单的 JSON 操作以与新的 JavaScript MV* ...

是的，感谢分享

熊瑞 · 发表于 2023-6-20 17:25:20

不错！asp还在战斗

xuanxiao · 发表于 2023-6-20 22:46:11

熊瑞发表于 2023-6-20 17:25
不错！asp还在战斗

必须的，欢迎加群。

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园网友互动群

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

在线客服

官方Q群 天天ASP家园网友互动群 群1: 697497501(新手学习互助群) 群2: 47598123(进阶应用群)

天天ASP家园网友互动群

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

在线客服

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)