-- 前端获得的json字符串:末尾格式不完整
ft代码:
\'key7:会员当前留言:留言会员编号0|1邮箱|2留言|3备注
Dim aa As String = dr_HYLY("liuYanHuiYuanBianHao") & "|" & dr_HYLY("youXiang") & "|" & dr_HYLY("liuYanLeiXing")
Dim bb As String
For Each liuYanJiLu As String In dr_HYLY.Lines("liuYanYuHuiYingJiLu")
bb += "\',\'" & liuYanJiLu ’红色粗体代码有问题,就是不知道怎么改
Next
Dim str As String = "{\'touser\':[\'" & dr_HYLY("liuYanHuiYuanBianHao") & _
"\',\'" & dr_HYLY("youXiang") & _
"\',\'" & dr_HYLY("liuYan") & _
bb & _
"\'],\'msgtype\':\'" & EncryptText(aa,"密码","密码") & "\'}"
Dim huiYXG As String = CompressJson(str)
dr_HYLY.save
e.WriteString("OK|" & huiYXG)
e.Handled = True \'通知系统异步函数执行完毕,可以关闭信道
前端获得的字符串:末尾格式不完整:如下
{"touser":["1","意见","能修改吗","1