<%@ Import Namespace="System.IO"%> <%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%> <%
Response.AppendHeader("Access-Control-Allow-Origin", "*")
Response.AppendHeader("Content-type", "application/json") Dim conn As
OleDbConnection Dim objAdapter As OleDbDataAdapter Dim objTable As
DataTable Dim objRow As DataRow Dim objDataSet As New DataSet()
Dim outp Dim c conn = New OledbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data
source=Northwind.mdb") objAdapter = New OledbDataAdapter("SELECT
CompanyName, City, Country FROM Customers", conn) objAdapter.Fill(objDataSet,
"myTable") objTable=objDataSet.Tables("myTable")
outp = ""
c = chr(34) for each x in objTable.Rows if outp <> "" then outp = outp & ","
outp = outp & "{" & c & "Name"??? & c & ":" & c & x("CompanyName")
& c & ","
outp = outp &?????? c & "City"??? & c & ":" & c
& x("City")??????? & c & ","
outp = outp &?????? c & "Country" & c
& ":" & c & x("Country")???? & c & "}" next
outp
="{" & c & "records" & c & ":[" & outp & "]}" response.write(outp) conn.close %>
4. ASP.NET, VB Razor 和 SQL Lite 代碼實(shí)例
@{ Response.AppendHeader("Access-Control-Allow-Origin", "*")
Response.AppendHeader("Content-type", "application/json") var db =
Database.Open("Northwind"); var query = db.Query("SELECT CompanyName,
City, Country FROM Customers"); var outp ="" var c = chr(34) } @foreach(var row in
query) { if outp <> "" then outp = outp + "," outp = outp + "{" + c + "Name"??? + c + ":" + c
+ @row.CompanyName + c + "," outp = outp +?????? c
+ "City"??? + c + ":" + c
+ @row.City??????? + c + "," outp = outp
+?????? c + "Country" + c
+ ":" + c + @row.Country???? + c + "}" } outp ="{" + c
+ "records" + c + ":[" + outp + "]}" @outp