将数据转换为JSON格式userdata_npassdata_pqqnameviptimedata_t jsonStr = jsonStr = jsonStr & user & data_n & & pass & data_p & jsonStr = jsonStr & qq & & & 在qq位置加入一个双引号或者根据具体需要来决定 jsonStr = json

jsonStr = "{" & Chr(34) & "user" & Chr(34) & ":" & Chr(34) & data_n & Chr(34) & "," & Chr(34) & "pass" & Chr(34) & ":" & Chr(34) & data_p & Chr(34) & "," & Chr(34) & "qq" & Chr(34) & ":" & Chr(34) & """" & Chr(34) & "," & Chr(34) & "name" & Chr(34) & ":" & Chr(34) & """" & Chr(34) & "," & Chr(34) & "viptime" & Chr(34) & ":" & data_t & "}"