Foxtable(狐表) → 用户栏目 → 专家坐堂 → 阿里短信格式求助。


  共有2181人关注过本帖树形打印复制链接

主题：阿里短信格式求助。
帅哥哟，离线，有人找我吗？
lxq3736
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：1535 威望：0 精华：1 注册：2017/10/13 22:41:00 		阿里短信格式求助。  发帖心情 Post By：2018/9/13 8:27:00 [只看该作者]

参照
帅哥哟，离线，有人找我吗？
chen37280600
的     http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119481&replyID=&skin=1

Dim ph As String ="13988888888"
Dim codestr  As String ="112233"
Try
    request.PhoneNumbers = ph
    request.SignName = "通讯" '   更换为您备案的短信签名
    request.TemplateCode = "SMS_144590082" '更换您备案的短信模板
    request.TemplateParam = "{""code"":"codestr"}"  '如果您有可替换的标签,可以设置设置json,也可以注释掉
    'request.OutId = "YourID" '这玩意暂时没用
    response = acsClient.GetAcsResponse(request)
    MessageBox.show(response.Message) '这里输出发送结果."OK"就是行了.
Catch ex As Exception
    MessageBox.show("短信代码有问题,请联系技术员")
End Try
上面的运行报错

改成这样可以运行
request.TemplateParam = "{""code"":"“112233”"}" 

这里的112233 我想用字符串变量代替。如何实现？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/13 8:53:00 [只看该作者]

request.TemplateParam = "{""code"":""" & 变量 & """}"

 

或者参考 http://www.foxtable.com/mobilehelp/scr/0167.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
lxq3736
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：1535 威望：0 精华：1 注册：2017/10/13 22:41:00 		  发帖心情 Post By：2018/9/13 8:57:00 [只看该作者]

谢谢，测试成功了

 回到顶部
帅哥哟，离线，有人找我吗？
lxq3736
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：1535 威望：0 精华：1 注册：2017/10/13 22:41:00 		如果是中文字符如何转码？  发帖心情 Post By：2018/9/13 9:26:00 [只看该作者]

Dim todstr As String = format(now(),"yyyyMMdd")
Dim numstr As String ="51"
Dim monstr As String ="5000"
Dim namestr As String ="张飞"
Dim tod1 As String ="today"&":"& todstr
Dim num1 As String = "number"&":"& numstr
Dim mon1 As String = "menoey"&":"& monstr
Dim nam1 As String = "name"&":"& namestr

request.TemplateParam = "{" & tod1 & ","& num1 & "," & mon1 & "," & nam1 & "}"    


老师：当“张飞” 换成 “1” 就可以发送.估计是中文编码问题？求指点。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/13 9:30:00 [只看该作者]

回复楼上，请用这种方法生成json

 

http://www.foxtable.com/mobilehelp/scr/0167.htm

 

或者试试

 

Dim nam1 As String = "name" & ":" & """" & namestr & """"

[此贴子已经被作者于2018/9/13 9:30:31编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lxq3736
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：1535 威望：0 精华：1 注册：2017/10/13 22:41:00 		  发帖心情 Post By：2018/9/13 9:45:00 [只看该作者]

Dim nam1 As String = "name" & ":" & """" & namestr & """"

这个有效！谢谢。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询