개발 참고자료

원본


https://code.google.com/archive/p/aspjson/downloads






==============================================


<!--#include file="JSON_2.0.4.asp"-->


<!--#include file="JSON_UTIL_0.1.1.asp" -->


Hello World!sample<!--#include file="JSON_2.0.4.asp"-->


<!--#include file="JSON_UTIL_0.1.1.asp" -->



<%
Dim member
Set member = jsObject()

member("name") = "Tuğrul"
member("surname") = "Topuz"
member("message") = "Hello World"

member.Flush
%>


output{"name":"Tu\u011Frul","surname":"Topuz","message":"Hello World"}SQL Queriessample<!--#include file="JSON_latest.asp"-->
<!--#include file="JSON_UTIL_latest.asp"-->
<%
QueryToJSON(dbconn, "SELECT name, surname FROM members WHERE age < 30").Flush
%>output[
{
"name":"ali",
"surname":"osman"
},
{
"name":"mahmut",
"surname":"\u00E7\u0131nar"
}
]Multi Dimensional Arrayssample<!--#include file="JSON_latest.asp"-->
<%
Dim a(1,1)

a(0,0) = "zero - zero"
a(0,1) = "zero - one"
a(1,0) = "one - zero"
a(1,1) = "one - one"

Response.Write toJSON(a)
%>output[["zero - zero","zero - one"],["one - zero","one - one"]]
<!--#include file="JSON_2.0.4.asp"-->
<!--#include file="JSON_UTIL_0.1.1.asp" -->


<%
Dim json
Dim person, people(4)


For i = 0 To 4
Set person = jsObject()
person("name") = "park"
person("age") = 20
person("sex") = "male"
Set people(i) = person
Next


Set json = jsObject()
json("count") = Ubound(people)
json("name") = "A"
json("people") = people


Response.Write toJSON(json)
%>




' 결과


{"count":4,"people":[{"name":"park","age":20,"sex":"male"},{"name":"park","age":20,"sex":"male"},{"name":"park","age":20,"sex":"male"},{"name":"park","age":20,"sex":"male"},{"name":"park","age":20,"sex":"male"}]}