雾道,笑死人 打一成语,bankcard金卡
reg.
asp文件
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="https://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>56短信网php短信接示例(https://www.56dxw.com)</title>
<script src="js/jquery.js" language="javascript" type="text/javascript"></script>
<script type="text/javascript">
function get(obj) {
var partten = /^\d{10,13}$/;
if (!partten.test(document.getElementById("t_tel").value)) {
alert('请输入正确的手机号码');
return;
}
obj.disabled = true;
$.ajax({
url: "sms.asp",
type: "Post",
data: "Tel=" + $("#t_tel").val(),
success: function(msg) {
obj.disabled = false;
if (msg == "ok") {
alert("短信已经发送成功")
return;
}
if (msg == "error") {
alert("短信发送失败")
return;
}
//alert(msg);//用来调试
}
})
}
</script>
</head>
<body>
<label>
<form id="form1" name="form1" method="post" action="reg.asp?action=add">
您手机号码：
<input name="t_tel" type="text" id="t_tel" />
<input id="Button1" type="button" value="获取验证码" onClick="get(this)" />
<br />
<br />
验证码：
<input name="t_num" type="text" id="t_num" />
</label>
<br />
<br />
<label>
<input type="submit" name="Submit" value=" 确 定 " />
</label>
</form>
<p> </p>
</body>
</html>
Sms.asp
<%
www.2cto.com
Function getHTTPPage(url)
Dim Http
Set Http = Server.CreateObject("MSXML2.XMLHTTP")
Http.Open "GET", url, False
Http.send()
If Http.readystate <> 4 Then
Exit Function
End If
getHTTPPage = BytesToBstr(Http.responseBody, "GB2312")
Set Http = Nothing
If Err.Number <> 0 Then Err.Clear
End Function
Function BytesToBstr(body, Cset)
Dim objstream
Set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
End Function
'调用短信接口网址官方网站:https://www.56dxw.com
Function SendSms(smsMob,smsText)
'response.Write(smsMob)
'response.End()
SmsServer="https://jiekou.56dxw.com/sms/HttpInterface.aspx?"
userid="60"
username1="test1"
userpwd="qwqwqw"
usersms="1061"
SenData=SmsServer&"comid="&userid&"&username="&username1&"&userpwd="&userpwd&"&handtel="&smsMob&"&sendcontent="&smsText&"&sendtime=&smsnumber="&usersms
qwe=getHTTPPage(SenData)
'response.Write(qwe)
If qwe = "1" then '发送成功
Response.Write("ok")
Else '发送失败
Response.Write("error")
'Response.Write(qwe)//参考56短信网:https://www.56dxw.com 接口文档
End if
End Function
if request("Tel")<>"" then
call SendSms(request("Tel"),"手机号的发送内容")
Else '发送失败
Response.Write("error")
end if
%>
如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！
点击进行留言回复
我要评论
网友评论