Public Shared Sub JavaScriptSerializerDemo()
Dim user As New User() With { _
Key .UserId = 1, _
Key .UserName = "李刚", _
Key .CreateDate = DateTime.Now.AddYears(-30), _
Key .Birthday = DateTime.Now.AddYears(-50), _
Key .Priority = Priority.Highest, _
Key .Salary = 500000 _
}
Dim serializer As New JavaScriptSerializer()
Dim result As String = serializer.Serialize(user)
Console.WriteLine("使用JavaScriptSerializer序列化后的结果：{0},长度：{1}", result, result.Length)
user = serializer.Deserialize(Of User)(result)
Console.WriteLine("使用JavaScriptSerializer反序列化后的结果：UserId:{0},UserName:{1},CreateDate:{2},Priority:{3}", user.UserId, user.UserName, user.CreateDate, user.Priority)
End Sub