’json对象序列化为.net对象
//接收前台传递的json对象 Dim txtName = Request.Form("txtName")//后台对json对象的序列化处理,生成为一个.net对象Dim serializer As New JavaScriptSerializer()Dim names As List(Of obj) = serializer.Deserialize(Of List(Of obj))(txtName)
'.net对象序列化为json对象
Dim user1 As New TestUserDim user2 As New TestUseruser1.name = "adsfd"user1.email = "80808080"user1.info = "sssss"user2.name = "afd"user2.email = "8080"user2.info = "ss"Dim users As New List(Of TestUser)users.Add(user1)users.Add(user2)Dim serializer As New JavaScriptSerializer()Dim names As String = serializer.Serialize(users)
//注意:在后台中需要添加.net类,如
Public Class userPublic name As StringPublic email As StringPublic info As StringEnd Class
//生成对象后即可在后台保存到数据库或者xml文件
//保存数据库方式为方式,添加成功为username=1
Dim serializer As New JavaScriptSerializer()Dim names As List(Of obj) = serializer.Deserialize(Of List(Of obj))(txtName)Dim conStr As StringconStr = "data source=WH-PENGS02\SQL;initial catalog=test1119;user id=sa; password=95938"Dim sqlcon As SqlConnectionsqlcon = New SqlConnection()sqlcon.ConnectionString = conStrsqlcon.Open()Dim sqlcom As SqlCommand = New SqlCommand()sqlcom.Connection = sqlconFor i As Integer = 0 To names.Count - mandText = "insert into UserInfo(userGUID,userName,userEmail,userInfo) values (newid(),'" + names(i).name + "','" + names(i).email + "','" + names(i).info + "')"Dim username As Integer = sqlcom.ExecuteNonQuery()Next
//保存为xml文件
Dim xml AS String= "<note>"For i As Integer = 0 To names.Count - 1xml += "<user>" + "<name>" + names(i).name + "</name>" + "<email>" + names(i).email + "</email>" + "<info>" + names(i).info + "</info></user>"}xml=xml+"</note>"
注:在.net后台Vb中对象数组是使用小括号,在前台js中使用的是中括号