Foxtable(狐表) → 用户栏目 → 专家坐堂 → XXXXX发送短信


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

主题：XXXXX发送短信
帅哥哟，离线，有人找我吗？
有点色
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/9 9:48:00 [只看该作者]

 看30楼，在这个地址，可以查看是什么原因发送不成功。

 

http://www.yunpian.com/dashboard/smsFailure#!/smsFailure

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


加好友 发短信
等级：七尾狐 帖子：1521 积分：10733 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/5/9 10:33:00 [只看该作者]

点击“获取验证码”，服务器端提示错误：
.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.4.22.1
错误所在事件：
详细错误信息：
远程服务器返回错误: (400) 错误的请求。
平台端，显示手机号不对：

此主题相关图片如下：qq图片20170509102609999.png
按此在新窗口浏览图片

此主题相关图片如下：qq图片20170509102703333.png
按此在新窗口浏览图片
fasongduanxin.htm代码如下：（更多代码见15楼）
Dim e As RequestEventArgs = args(0)                             '注册第1页,注册
e.Resp
Dim wb As New weui
Select Case e.path
    Case "fasongduanxin.htm"
        Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
        Dim shoujihao As String = e.PlainText '赋值手机号
        hc.C
        hc.C & shoujihao & "&text=1794070"
        output.show(hc.getData())
        wb.AppendHTML("<script>alert('发送完毕!如果60秒后没有收到短信请重新发送!')</script>") ’这里没有显示
        e.WriteString(wb.Build)
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/9 10:52:00 [只看该作者]

 请认认真真看30楼，先测试发送成功短信，好吗？

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


加好友 发短信
等级：七尾狐 帖子：1521 积分：10733 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/5/9 14:57:00 [只看该作者]

按30楼测试了，代码如下：
Dim e As RequestEventArgs = args(0)                             '注册第1页,注册
e.Resp
Dim wb As New weui
Select Case e.path
    Case "fasongduanxin.htm"
        Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
        Dim shoujihao = 18961301234
        Dim text = "【郎窝网】您的验证码是1234.如非本人操作,请忽略本短信" ’这是复制上午申请通过的模板，标点符合为中文状态下输入，测试：#1234#，也是一样的结果
        hc.C
        hc.C & shoujihao & "&text=" & UrlEncode(text)
        output.show(hc.getData())
        wb.AppendHTML("<script>alert('发送完毕!如果60秒后没有收到短信请重新发送!')</script>")  ’这里没有执行
        e.WriteString(wb.Build)
End Select

执行上面代码：服务器端提示：
.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.4.22.1
错误所在事件：
详细错误信息：
远程服务器返回错误: (400) 错误的请求。

这是失败请求记录：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片201705091454232222.png
图片点击可在新窗口打开查看

这是失败请求记录（详情）：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片201705091455044444.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2017/5/9 21:45:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/9 15:19:00 [只看该作者]

你发的内容，必须匹配你的模板。标点符号都要匹配，要匹配成中文的

 

【郎窝网】您的验证码是1234。如非本人操作，请忽略本短信

 

http://www.foxtable.com/webhelp/scr/1273.htm

 

 你可以在模板那里，拷贝你发送的信息，进行【匹配】的校验 http://www.yunpian.com/dashboard/domestic/register#!/domestic/register/sign

 

 

[此贴子已经被作者于2017/5/9 15:19:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1521 积分：10733 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/5/9 15:39:00 [只看该作者]

发送成功，但是成功后，又申请发送1次，服务器端提示：
.NET Framework 版本：2.0.50727.8669
Foxtable 版本：2017.4.22.1
错误所在事件：
详细错误信息：
远程服务器返回错误: (400) 错误的请求。

这是失败请求记录（详情）：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170509153457777.png
图片点击可在新窗口打开查看

代码：
Dim e As RequestEventArgs = args(0)                             '注册第1页,注册
e.Resp
Dim wb As New weui
Select Case e.path
    Case "fasongduanxin.htm"
        Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
        Dim shoujihao = 18961301234
        Dim text = "【郎窝网】您的验证码是1234.如非本人操作,请忽略本短信"
        hc.Con-tentType = "app-lication/x-www-form-url-encoded"
        hc.Con-tent = "apikey=111&mobile=" & shoujihao &text=" & UrlEncode(text)
        output.show(hc.getData())  ’难道是这句造成的？
        wb.AppendHTML("<script>alert('发送完毕!如果60秒后没有收到短信请重新发送!')</script>") ’这里没有执行
        e.WriteString(wb.Build)
End Select
[此贴子已经被作者于2017/5/9 21:46:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/9 15:45:00 [只看该作者]

 加入msgbox，看进入执行了多少次，如果执行多次，说明你调用了多次。
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1521 积分：10733 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/5/9 17:05:00 [只看该作者]

【郎窝网】您的验证码是1234。如非本人操作，请忽略本短信

上面红色的字符，在中文状态下输入，直接变成小点，不匹配；
在这里复制，粘贴到foxtable代码框，再复制去匹配，发现无法匹配；

如何输入、保存中文符号？
[此贴子已经被作者于2017/5/9 17:30:35编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105961 积分：538880 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/5/9 17:53:00 [只看该作者]


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


加好友 发短信
等级：七尾狐 帖子：1521 积分：10733 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/5/9 18:29:00 [只看该作者]

'''
Dim e As RequestEventArgs = args(0)                             '注册第1页,注册
e.Resp
Dim wb As New weui
Select Case e.path
    Case "fasongduanxin.htm"
        Dim shoujihao As String = e.PlainText '赋值手机号，执行职能得到结果：isj，可以使用e.PostValues("isj") ？
        Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
        Dim shoujihao = 18961301234 ’如何获得手机号？
        Dim Val As Integer = Rand.Next(2001,9999) '生成200到300之间的随机整数
        Dim text = "【郎窝网】您的验证码是" & Val & "。如非本人操作，请忽略本短信"
        hc.C
        hc.C & shoujihao & "&text=" & UrlEncode(text)
        output.show(hc.getData())
        wb.AppendHTML("<script>alert('发送完毕!如果60秒后没有收到短信请重新发送!')</script>") ’这句没有执行
        e.WriteString(wb.Build)
End Select
这是注册页面部分代码：
        With .AddInputCell("ic1")  '通过InputCell增加输入框(1表示突出显示,2表示红色警示图标)
            .AddLabel("lsj","手机",0)  '增加标签(0显示在左边)
            .AddInput("isj","text",1).PlaceHolder= "请输入手机号"  '增加输入框(0靠左显示,1居中显示,2靠右显示)
        End With
        ******
        With .AddInputCell("ic2")
            .AddLabel("lyz","验证",0)
            .AddInput("iyz","text",1).PlaceHolder= "请输入验证码"
            .AddVcodeButton("vyz","获取验证码",2).Attri-bute="on-click='validit_register_fasongduanxin()'"
        End With
    *******
    wb.AppendHTML("<script src='./lib/ajaxform_register_fasongduanxin.js'></script>") '引入脚本文件
    wb.AppendHTML("<script src='./lib/ajaxform_register.js'></script>") '引入脚本文件
    e.WriteString(wb.Build)

这是js代码：
function validit_register_fasongduanxin(){
alert("OK"); ’这里执行了
var result = sendAjaxText("isj","fasongduanxin.htm","",false);
}
[此贴子已经被作者于2017/5/9 21:47:07编辑过]
 回到顶部
总数 51 上一页 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询