共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：前端获得的json字符串：末尾格式不完整
1楼
zhangjian222200 发表于：2024/4/26 16:44:00ft代码：
'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
2楼
zhangjian222200 发表于：2024/4/26 16:51:00完整字符串应该是：
{"touser":["1","意见","能修改吗","1|123@163.com|"],"msgtype":aa}
3楼
有点蓝 发表于：2024/4/26 17:04:00msgbox(str)显示什么内容？
4楼
zhangjian222200 发表于：2024/4/26 19:01:00msgbox(str)
还有，msgbox(CompressJson(str))
1楼代码，经过上述代码验证，应该是正确的
但是，前端获得的字符串：末尾格式不完整：大致如下
{"touser":["1","意见","能修改吗","1
截图，无法上传，上传提示错误
5楼
zhangjian222200 发表于：2024/4/26 19:04:00下图是，ft内的msgbox弹窗
此主题相关图片如下：0000.png
下图是，浏览器前端application，本地存储的截图，最末尾的1，后面就没有内容了
此主题相关图片如下：qq图片20240426183454.png
[此贴子已经被作者于2024/4/26 19:07:44编辑过]
6楼
zhangjian222200 发表于：2024/4/26 19:37:00浏览器报错，大意是，格式不合要求，被截断了，计划改成再嵌入数组
7楼
zhangjian222200 发表于：2024/4/26 20:08:00这是正确的代码
bb += "','" & liuYanJiLu
将上面的变量：liuYanJiLu，改成数组，按下面设置，不能保存，提示：语句没有结束
bb += "',['" & neiRong_0 & "','" & neiRong_1 & "','" neiRong_2 & "']"
8楼
有点蓝 发表于：2024/4/27 8:46:00建议使用这种生成json：http://www.foxtable.com/mobilehelp/topics/0167.htm
共8 条记录, 每页显示 10 条, 页签:
[1]