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


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

主题:XXXXX发送短信

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


加好友 发短信
等级:七尾狐 帖子:1536 积分:10849 威望: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编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1536 积分:10849 威望: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编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1536 积分:10849 威望: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,无法创建或删除?



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


加好友 发短信
等级:七尾狐 帖子:1536 积分:10849 威望: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编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1536 积分:10849 威望: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编辑过]

 回到顶部
总数 26 上一页 1 2 3