导入 System.Data
导入 System.Data.SqlClient
导入 System.Collections.Generic
导入 System.Web.Script.Serialization
公共类产品
Public ProductID As Integer
Public ProductName As String
Public VendorID As Integer
Public GroupID As Integer
结束类
公共函数 GetProductJSON() 作为字符串
Dim ls As New List(Of Product)
Dim Temp As String = ""
Dim js As New JavaScriptSerializer
Dim json As String
Try
Using cn As New SqlConnection(Helper.ConnectionString)
Using cm As SqlCommand = cn.CreateCommand()
cm.CommandType = CommandType.StoredProcedure
cm.CommandText = "GetProdct"
cm.Connection.Open()
Dim da As SqlDataAdapter = New SqlDataAdapter(cm)
Dim dt As DataTable = New DataTable
Dim ds As DataSet = New DataSet
da.Fill(ds, "Product")
Dim clsProduct As New Product
dt = ds.Tables(0)
For i = 0 To dt.Rows.Count - 1
clsProduct.ProductID = dt.Rows(i)("ProductID")
clsProduct.ProductName = dt.Rows(i)("ProductName")
clsProduct.VendorID = dt.Rows(i)("VendorID")
clsProduct.GropID = dt.Rows(i)("GropID")
ls.Add(clsProduct)
Next
End Using
End Using
json = js.Serialize(ls)
Return json
Catch ex As Exception
End Try
结束功能
<WebMethod()> _
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, XmlSerializeString:=False)> _
公共子 GetProduct()
Dim str As String = GetProductJSon()
Context.Response.Clear()
Context.Response.ContentType = "text/json"
Context.Response.Charset = "utf-8"
Context.Response.Write(str)
结束子