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


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

主题:XXXXX发送短信

帅哥哟,离线,有人找我吗?
有点色
  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 手机号,可以直接发送过来

 

sendAjaxText(document.getElementById("lsj").value,"fasongduanxin.htm","",false);


 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

楼上代码放在js里:
function validit_register_fasongduanxin(){
alert("OK");
var result = sendAjaxText(document.getElementById("isj").value,"fasongduanxin.htm","",false);
}
fasongduanxin.htm,如何使用isj的值?

'''
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") ,提示:参数 mobile 格式不正确,mobile不能为空
        Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
        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

另外,如果发账号、密码之类的消息,怎么样才能官方人员课件可见?
[此贴子已经被作者于2017/5/9 19:17:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Function validit_register_fasongduanxin(){
alert("OK");
var result = sendAjaxText(document.getElementById("isj").value,"fasongduanxin.htm","",False);
alert(result);
}


'''
Dim e As RequestEventArgs = args(0)                             '注册第1页,注册
e.Resp

Select Case e.path
    Case "fasongduanxin.htm"
        Dim shoujihao As String = e.PlainText '赋值手机号,执行职能得到结果:isj
                                                                 '使用e.PostValues("isj") ,提示:参数 mobile 格式不正确,mobile不能为空
        Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
        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())
        e.WriteString("发送完毕!如果60秒后没有收到短信请重新发送!")
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

按楼上,短信发送成功
e.WriteString("发送完毕!如果60秒后没有收到短信请重新发送!") 
1.上面这个代码,没有执行
2.页面上60秒持续减少是怎么做的?
3.验证码的验证在哪比较好?有个页面valid_register.htm,专门用于验证注册页面信息的,是不是需要在哪里验证验证码是否符合要求?
4.楼上页面可以生成cookie吗?不知道会不会扯上ajax,无法创建或删除?



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1、alert(result);有没有弹出,去掉output.show试试


3、填入后和其它同页面内容一起提交验证

4、无法创建,除了cookie,还有N多种方式保存信息,没有必要拘泥于cookie

 回到顶部
帅哥哟,离线,有人找我吗?
i4whylg
  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:279 积分:3155 威望:0 精华:0 注册:2014/2/19 10:32:00
  发帖心情 Post By:2017/5/10 18:21:00 [只看该作者]

谢谢楼主和有点系列版主,刚好也要用到这个功能

 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

下面代码可以正常发送短信,只是有小问题,见粉色加粗部分

前台页面:
.AddHiddenValue("dxsj1","18912341234")

js:
function validit_fasongduanxin_fuwu1(){
//alert("OK");
var result = sendAjaxText(document.getElementById("dxsj1").value,"fasongduanxin_fuwu.htm","",false); 
alert(result);
}

页面代码:
'''
Dim e As RequestEventArgs = args(0)                             '注册,发送短信
e.Response-Encoding = "utf-8"
Dim wb As New weui
Select Case e.path
    Case "fasongduanxin.htm"
        Dim shoujihao As String = e.PlainText '这里可以获得dxsj1的字符吗?也就前台页面行的名称
        Dim Val As Integer = Rand.Next(2001,9999) '生成2001到9999之间的随机整数
        e.AppendCookie("duanxyzm", Val)  '准备在验证页面,校对这个cookie(登陆成功,在httprequest事件删除)
        Dim text = "您的验证码是" & Val & "。如非本人操作,请忽略本短信"

        Dim hc As New HttpClient("https://sms.yunpian.com/v2/sms/single_send.json")
        hc.Content-Type = "application/x-www-form-urlencoded"
        hc.Con-tent = "api-key=24e3a47f44f34bfb6a296471470808c1&mobile=" & shoujihao & "&text=" & UrlEncode(text)
        output.show(hc.getData())
        e.WriteString("即将发送短信验证码!有效时间2分钟,2分钟后请重发!")
End Select
[此贴子已经被作者于2017/5/18 10:34:14编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 回复47楼,可以获取啊。有什么问题?

 

js,你可以弹出值

alert(document.getElementById("dxsj1").value);

 

代码里面,你也可以弹出值

msgbox(e.PlainText)

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

47楼e.PlainText获得的是AddHiddenValue("dxsj1","18912341234")的value:18912341234

我想要在后面的代码里面获得id:dxsj1,可以?

如果不行,也没有问题,我多做几个页面就行了,如果可以发短信就一个页面就好了
[此贴子已经被作者于2017/5/18 10:43:39编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你可以发送任意字符

 

var result = sendAjaxText("dxsj1#" + document.getElementById("dxsj1").value,"fasongduanxin_fuwu.htm","",false); 

 

得到字符以后,用#分割各个字符,取出即可。


 回到顶部
总数 51 上一页 1 2 3 4 5 6 下一页