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
加好友 
发短信
Post By：2024/4/26 16:44:00 [只看该作者]
