'''
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编辑过]
加好友 
发短信
Post By：2017/5/9 18:29:00 [只看该作者]
