下面代码可以正常发送短信,只是有小问题,见粉色加粗部分
前台页面:
.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编辑过]