Classic ASPでJSON出力

##この記事について

Classic ASPをいまだに利用しています。

すでに新規で使うところも無いと思いますが、こんな状況でもClassic ASP用のJSON出力用のモジュールを開発してくれている人がいます。

これでWebAPIを作ってモダンなシステムと連携できるのでありがたいことです。

使い方をメモしておきます。

##ダウンロード

公式 https://github.com/rcdmk/aspJSON

##使い方とサンプルコード

JSONを一から構築する方法とレコードレコードセットから一括構築する方法があります。一から構築する方法は公式を参照。

使い方は簡単で、クラス「JSONobject」のインスタンスを作り、レコードセットを設定して出力するだけです。

出力メソッドは２つあり、JSONを使うとトップレベルオブジェクト"data"の値として配列が作られ、JSONarrを使うと生の配列が設定されます。この辺も公式に説明があります。

<!--#include file="jsonObject.class.asp" -->
<%

'jsonObjectを使うための準備
Response.ContentType = "application/json; charset=UTF-8"
Response.LCID = 1041 'ロケールコード 日本


'データベース接続 
dim cn, rs, sql
set cn = CreateObject("ADODB.Connection")
cn.Open "UID=SAMPLE;PWD=PASSWORD;DSN=DATABASENAME"

'SQL
sql="SELECT * FROM SAMPLE"

'データ取得
set rs = cn.execute(sql)

' instantiate the class
set JSON = New JSONobject
JSON.LoadRecordset rs

rs.Close
cn.Close

set rs = Nothing
set cn = Nothing

'JSON書き出し
JSON.Write()

%>

参考

Classic ASPでAjax
https://qiita.com/hyakuson/items/4ff6b9f8154a34950103