ASP是一種常用的Web開發語言，它能夠與數據庫進行交互，并且能夠生成JSON格式的數據。下面我們來介紹一下如何通過ASP讀取數據庫并生成JSON。

首先，我們需要連接數據庫。使用ADODB.Connection對象可以輕松地完成此操作：

set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=localhost;DATABASE=mydatabase;UID=user;PWD=password;"
conn.Open

連接成功后，我們需要編寫執行查詢語句的代碼。這里以從users表中獲取所有用戶信息為例：

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM users", conn

接下來，我們需要將查詢結果轉換為JSON格式。下面是一個示例代碼：

Dim json
Set json = CreateObject("Scripting.Dictionary")
If rs.EOF Then
json.Add "success", False
Else
Dim userList
Set userList = CreateObject("Scripting.Dictionary")
While Not rs.EOF
Dim user
Set user = CreateObject("Scripting.Dictionary")
user.Add "id", rs("id")
user.Add "name", rs("name")
user.Add "email", rs("email")
userList.Add rs("id"), user
rs.MoveNext
Wend
json.Add "success", True
json.Add "data", userList
End If
Response.ContentType = "application/json"
Response.Write JsonConverter.ConvertToJson(json)

最后，我們需要關閉連接：

rs.Close
conn.Close

通過上述代碼，我們可以輕松地實現通過ASP讀取數據庫并生成JSON。