在使用ASP語言開發網頁時，經常需要將服務器端的數據以JSON格式輸出給客戶端，以便客戶端進行處理和展示。以下是一個ASP輸出JSON對象實例：

<%
'創建JSON對象
Dim objJson, objData, objItem
Set objJson = Server.CreateObject("Scripting.Dictionary")
'創建數據數組
Set objData = Server.CreateObject("Scripting.Dictionary")
Set objItem = Server.CreateObject("Scripting.Dictionary")
objItem("name") = "張三"
objItem("age") = 23
objData.Add "1", objItem
Set objItem = Server.CreateObject("Scripting.Dictionary")
objItem("name") = "李四"
objItem("age") = 25
objData.Add "2", objItem
'將數據數組塞進JSON對象
objJson.Add "code", "200"
objJson.Add "message", "數據獲取成功"
Set objJson("data") = objData
'將JSON對象轉換為字符串
Dim strJson
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Type = 2
objStream.Open
objStream.WriteText "var result="
objStream.WriteText objJson.Items()(0)
objStream.Close
strJson = objStream.ReadText
Set objStream = Nothing
'輸出JSON字符串
Response.ContentType = "application/json"
Response.Write strJson
%>

上述代碼中，首先創建了一個空的JSON對象objJson，并在其中添加了code、message和data三個屬性，其中code屬性表示返回碼，message屬性表示返回信息，data屬性用于存放數據。

接下來，創建了數據數組objData，并往其中塞入兩個字典對象objItem，表示兩條數據記錄。這里使用了Dictionary對象來存儲數據，方便后續添加屬性和值。

然后，將數據數組塞進JSON對象中，并將JSON對象轉換為字符串輸出。這里使用了ADODB.Stream對象進行字符串的操作，包括添加var result=前綴、將JSON對象的第一個元素（即字符串）寫入流中，并最終將流中的內容讀出來作為JSON字符串輸出。

最后，設置HTTP頭的Content-Type為application/json，表示輸出的數據為JSON格式。