Function ClearParserErrors() As String  ''清空错误信息，调用分析函数前先调用一下这个

Function GetParserErrors() As String      ''获得分析后的错误信息

Function parse(ByRef str As String) As Object  ''分析字符串转换为JSON对象

Function StringToJSON(st As String) As String  ''不常用？

Function RStoJSON(rs As Object) As String  ''记录集转换为JSON字符串

Function toUnicode(str As String) As String