[ASP]在純ASP中操作陣列產生JSON格式

因為專案需求，需要把原本ASP的資料轉成JSON的格式

我知道ASP是大家動態網頁設計的好夥伴（笑）

（迷之音：ASP都出這麼久了，很多都已經轉成ASP.net了幹嘛這麼執著呢？）

就跟你說是專案需求了嘛（巴落去

這只是我的小小筆記，以免有機會又用上找不到怎麼做
尤其是程式語言對於陣列（Array）的操作方式都不大一樣

我盡量強化大家的JSON概念，盡量不特別提程式碼的部份

——————————–

學JSON格式只有二句話：

物件(object)用大括號 { }

陣列(array)用中括號 [ ]

先記住這概念

——————————–

ASP要使用JSON要下載此元件：

http://code.google.com/p/aspjson/

我們只需要他的ASP JSON (for production) 就好：
寫文的時候是JSON_2.0.4.asp

把他放在你的目錄然後用以下方式引用：

<!–#include file=”JSON_2.0.4.asp”–>

這裡有些範例蠻有用的：

http://code.google.com/p/aspjson/wiki/Samples2

引用部份範例來說明

物件寫法

<%
Dim o1
Set o1 = jsObject()

o1(“name”) = “Tom”
o1(“lastname”) = “Chen”

o1.Flush
%>

顯示

{“name”:”Tom”,”lastname”:”Chen”}

陣列寫法

<%
Dim o2
Set o2 = jsArray()

  o2(Null) = 2
  o2(Null) = 4
  o2(Null) = 6
  o2(Null) = 8

o2.Flush
%>

顯示

[2,4,6,8]

———————

所以我們學到，宣告空白變數使用Dim

決定是何種型態使用 Set 這個字

不要小看這個關鍵字，他可是很有用的

最後，當你把資料形態設定為jsObject之後

直接像範例一樣 o(“name”) 直接在括號之中放入新的key值，當成變數來指定

而資料形態設定為jsArray的時候

可以像範例一樣用o2(Null) 的方式增加值

範例集有提到jsArray和jsObject中的對轉，我覺得不是很重要，所以就不引用了

再來看比較tricky的

物件包物件

<%
Dim o3
Set o3 = jsObject()

  Set o3(“person”) = jsObject()
      o3(“person”)(“name”) = “Tom”
      o3(“person”)(“lastname”) = “Chen”

  Set o3(“equipment”) = jsObject()
   o3(“equipment”)(“name”) = “keyboard”
    o3(“equipment”)(“type”) = “electronic”

o3.Flush
%>

顯示

{“person”:{“name”:”Tom”,”lastname”:”Chen”},”equipment”:{“name”:”keyboard”,”type”:”electronic”}}

陣列包陣列

Dim o4
Set o4 = jsArray()

  Set o4(Null) = jsArray()
        o4(Null)(Null) = 0
        o4(Null)(Null) = 2
      o4(Null)(Null) = 4
        o4(Null)(Null) = 6

  Set o4(Null) = jsArray()
        o4(Null)(Null) = 1
        o4(Null)(Null) = 3
      o4(Null)(Null) = 5
   o4(Null)(Null) = 7

o4.Flush
%>

顯示

[[0,2,4,6],[1,3,5,7]]

在陣列包陣列的範例中，就會明顯看到
其實程式它是從上到下，照順序執行

雖然 Set o4(Null) = jsArray() 這二行都一樣
但意義不同

難度慢慢增高摟

陣列包物件

<%
Dim o5
Set o5 = jsArray()

  Set o5(Null) = jsObject()
      o5(Null)(“name”) = “Tom”
      o5(Null)(“lastname”) = “Chen”
  Set o5(Null) = jsObject()
      o5(Null)(“name”) = “Amy”
        o5(Null)(“lastname”) = “Lin”

o5.Flush
%>

顯示

[{“name”:”Tom”,”lastname”:”Chen”},{“name”:”Amy”,”lastname”:”Lin”}]

這JSON格式已經接近資料庫撈出來的格式了

物件包陣列

<%
Dim o6
Set o6 = jsObject()
o6(“name”) = “Tom”
o6(“lastname”) = “Chen”

  Set o6(“numbers”) = jsArray()
      o6(“numbers”)(Null) = 2
      o6(“numbers”)(Null) = 4
        o6(“numbers”)(Null) = 5
      o6(“numbers”)(Null) = 6

o6.Flush
%>

顯示

{“name”:”Tom”,”lastname”:”Chen”,”numbers”:[2,4,5,6]}

———————

最後跳過中間的步驟，直接開最後的大絕！

陣列包物件包陣列包物件

心理OS：哪那麼多陣列物件呀~

<%
Dim o7
Set o7 = jsArray()

  Set o7(Null) = jsObject()
        o7(Null)(“name”) = “Tom”
      o7(Null)(“lastname”) = “Chen”

Set o7(Null)(“report”) = jsArray()

            Set o7(Null)(“report”)(Null) = jsObject()
              o7(Null)(“report”)(Null)(“subject”)=”Math”
                o7(Null)(“report”)(Null)(“score”)=80

          Set o7(Null)(“report”)(Null) = jsObject()
            o7(Null)(“report”)(Null)(“subject”)=”English”
              o7(Null)(“report”)(Null)(“score”)=90

  Set o7(Null) = jsObject()
      o7(Null)(“name”) = “Amy”
      o7(Null)(“lastname”) = “Lin”

Set o7(Null)(“report”) = jsArray()

          Set o7(Null)(“report”)(Null) = jsObject()
              o7(Null)(“report”)(Null)(“subject”)=”Math”
              o7(Null)(“report”)(Null)(“score”)=86

      Set o7(Null)(“report”)(Null) = jsObject()
              o7(Null)(“report”)(Null)(“subject”)=”English”
              o7(Null)(“report”)(Null)(“score”)=88

o7.Flush
%>

顯示

[{“name”:”Tom”,”lastname”:”Chen”,”report”:[{“subject”:”Math”,”score”:80},{“subject”:”English”,”score”:90}]},{“name”:”Amy”,”lastname”:”Lin”,”report”:[{“subject”:”Math”,”score”:86},{“subject”:”English”,”score”:88}]}]

看起來很複雜其實並不然

換成XML的格式就長這樣

<data>

          <subject>
                <name>Math</name>
              <score>80</score>
          </subject>
          <subject>
              <name>English</name>
              <score>90</score>
          </subject>

</report>
</student>

          <subject>
              <name>Math</name>
            <score>86</score>
          </subject>
          <subject>
              <name>English</name>
              <score>88</score>
          </subject>

</report>
</student>

</data>

做成大家看得懂的表格

成績單1

姓名	Tom Chen
數學	80
英文	90

成績單2

姓名	Amy Lin
數學	86
英文	88

在回顧一下上面那二個很噁心的寫法
有困難嗎？有任何讓你造成不舒服的感覺嗎？

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

以下內容看不懂就算了，沒關係

最後看看這資料庫的函式QueryToJSON

http://code.google.com/p/aspjson/wiki/SQLtoJSON

FunctionQueryToJSON(dbc, sql)
        Dim rs, jsa, col
        Set rs = dbc.Execute(sql)
        Set jsa = jsArray()
        WhileNot(rs.EOF Or rs.BOF)
                Set jsa(Null)= jsObject()
                ForEach col In rs.Fields
                        jsa(Null)(col.Name)= col.Value
                Next
        rs.MoveNext
        Wend
        SetQueryToJSON= jsa
EndFunction

如果上面都看懂的話，只是把欄位名稱和值，用For each印出來，放進jsObject裡而已

rs.Fields就是取得recordset的欄位物件，用

col.Name 取得欄位名
col.Value 取得值

若我資料庫有張表

student

s_id	name	lastname
1	Tom	Chen
2	Amy	Lin

report

r_id	s_id	subject	score
1	1	Math	80
2	1	English	90
3	2	Math	86
4	2	English	88

是不是我們的資料庫就可以這樣寫呢？

sql = “select * from student”

Set rs = dbc.Execute(sql)
Set jsa = jsArray()
While Not (rs.EOF Or rs.BOF)
Set jsa(Null) = jsObject()
For Each col In rs.Fields
jsa(Null)(col.Name) = col.Value
Next

sql2 = “SELECT subject,score FROM report WHERE s_id=”&rs(“s_id”)
Set rs2 = dbc.Execute(sql2)

Set jsa(Null)(“report”) = jsArray()
While Not (rs2.EOF Or rs2.BOF)
Set jsa(Null)(“report”)(Null) = jsObject()

   For Each col2 In rs2.Fields
        jsa(Null)(“report”)(Null)(col2.Name) = col2.Value
   Next

rs2.MoveNext
Wend

rs.MoveNext
Wend

在〈[ASP]在純ASP中操作陣列產生JSON格式〉中有 4 則留言

豬小弟表示:

2014-12-0203:48:13

照著你的教學，我學會了，如何將資料，從資料庫撈出來後，轉成JSON了，但該如何接收JSON資料丫？
範例網站裡的，好像都是輸入JSON，沒有看到接收JSON該如何在「純ASP」的環境下執行呢？
訪客表示:

2015-05-0406:38:56

這是一個紙包雞包紙包雞的概念 XDDD
吳宗穎表示:

2016-04-1804:07:12

請問該如何接收json 陣列？
訪客表示:

2016-04-1806:30:04

json格式{"numbers":[2,4,5,6]}
要怎麼把numbers的陣列讀出來呢？

留言功能已關閉。

Related Posts

在〈[ASP]在純ASP中操作陣列產生JSON格式〉中有 4 則留言