asp读取sqlserver2019返回的json

'解析json
Dim sc4Json   
Sub InitScriptControl()
	Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl")
	sc4Json.Language = "JavaScript"
	sc4Json.AddCode "var itemTemp=null;function getJSArray(arr, index){itemTemp=arr[index];}"
End Sub 
Function getJSONObject(strJSON)    
	sc4Json.AddCode "var jsonObject = " & strJSON    
	Set getJSONObject = sc4Json.CodeObject.jsonObject    
End Function 
Sub getJSArrayItem(objDest,objJSArray,index)    
	'On Error Resume Next    
	sc4Json.Run "getJSArray",objJSArray, index    
	Set objDest = sc4Json.CodeObject.itemTemp    
	If Err.number=0 Then Exit Sub    
	objDest = sc4Json.CodeObject.itemTemp    
End Sub
 
sub echo(str)
	Response.Write(str)
end sub
 
dim sql,rs
sql="select id,username from music_User for json path"
set rs = conn.Execute(sql)
if not rs.EOF then
	data=rs(0)
	call InitScriptControl()
	set strJson=getJSONObject(data)
	echo(strJson.length&"
")
	for i=0 to strJson.length-1
		getJSArrayItem ai, strJson,i
		echo("
"&ai.username)
	next
else
	echo("no data")
end if
rs.close
set rs=nothing
closeconn