ASP是一種強大的網頁編程語言，它可以和多種數據庫進行交互，實現豐富的網站功能。而JSON則是一種輕量級的數據交換格式，可以在不同的平臺和語言之間實現數據的傳遞和解析。在ASP中，通常需要將數據庫查詢結果轉換成JSON格式，以便傳遞到前端頁面進行展示。

下面是一個簡單的ASP代碼示例，展示如何將查詢結果轉換成JSON格式并輸出：

Dim conn, rs, jsonObj
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=myDSN;UID=myUser;PWD=myPassword"
Set rs = conn.Execute("SELECT * FROM myTable")
Set jsonObj = Server.CreateObject("Scripting.Dictionary")
jsonObj.Add "result", "success"
jsonObj.Add "data", rs.GetString(adClipString, -1, ",", ";")
Response.ContentType = "application/json"
Response.Write(JsonStringify(jsonObj))
rs.Close
conn.Close
'將Scripting.Dictionary對象轉換成JSON字符串的函數
Function JsonStringify(jsonObject)
Dim jsonStr
jsonStr = ""
For Each key in jsonObject.Keys
If jsonStr<>"" Then
jsonStr = jsonStr & ","
End If
jsonStr = jsonStr & """" & key & """"
jsonStr = jsonStr & ":"
If IsObject(jsonObject.Item(key)) Then
jsonStr = jsonStr & JsonStringify(jsonObject.Item(key))
Else
jsonStr = jsonStr & """" & jsonObject.Item(key) & """"
End If
Next
JsonStringify = "{" & jsonStr & "}"
End Function

在上面的代碼中，我們首先使用ADODB.Connection對象連接到數據庫，然后執行查詢操作獲取結果集。接著，我們創建一個Scripting.Dictionary對象，用于保存JSON格式的數據。我們為該對象添加了兩個屬性，"result"表示查詢結果的狀態，"data"表示查詢結果的內容。為了方便展示，我們將查詢結果轉換成了逗號分隔的字符串，并將其作為"data"的屬性值。最后，我們使用Response.ContentType設置響應的MIME類型為"application/json"，并調用JsonStringify函數將Scripting.Dictionary對象轉換成JSON字符串并輸出。

可以看出，ASP轉換JSON格式還是比較繁瑣的，需要自己編寫轉換函數，而且涉及到各種數據類型的處理。不過一旦掌握了轉換的方法，就可以輕松地構建出符合要求的JSON數據，實現前后端數據傳遞。