怎么对接asp语言短信验证码接口？

对接asp语言短信demo示例

<%@LANGUAGE=“VBSCRIPT” CODEPAGE=“936”%>
<%

'接口类型：互亿无线触发短信接口，支持发送验证码短信、订单通知短信等。
'账户注册：请通过该地址开通账户 http://user.ihuyi.com/?DKimmu
'注意事项：
'（1）调试期间，请使用用系统默认的短信内容：您的验证码是：【变量】。请不要把验证码泄露给其他人。
'（2）请使用 APIID 及 APIKEY来调用接口，可在会员中心获取；
'（3）该代码仅供接入互亿无线短信接口参考使用，客户可根据实际需要自行编写；

Response.Charset = "gb2312"'asp UTF转GB2312   将UTF8编码文字转换为GB编码文字的asp代码
function UTF2GB(UTFStr)
for Dig=1 to len(UTFStr)'如果UTF8编码文字以%开头则进行转换if mid(UTFStr,Dig,1)="%" then'UTF8编码文字大于8则转换为汉字if len(UTFStr) >= Dig+8 thenGBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))Dig=Dig+8elseGBStr=GBStr & mid(UTFStr,Dig,1)end ifelseGBStr=GBStr & mid(UTFStr,Dig,1)end if
next
UTF2GB=GBStr
end function'GB2312转UTF8的asp代码  将GB编码文字转换为UTF8编码文字
Function toUTF8(szInput)Dim wch, uch, szRetDim xDim nAsc, nAsc2, nAsc3'如果输入参数为空，则退出函数If szInput = "" ThentoUTF8 = szInputExit FunctionEnd If'开始转换For x = 1 To Len(szInput)'利用mid函数分拆GB编码文字wch = Mid(szInput, x, 1)'利用ascW函数返回每一个GB编码文字的Unicode字符代码'注：asc函数返回的是ANSI 字符代码，注意区别nAsc = AscW(wch)If nAsc < 0 Then nAsc = nAsc + 65536If (nAsc And &HFF80) = 0 ThenszRet = szRet & wchElseIf (nAsc And &HF000) = 0 Thenuch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)szRet = szRet & uchElse'GB编码文字的Unicode字符代码在0800 - FFFF之间采用三字节模版uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _Hex(nAsc And &H3F Or &H80)szRet = szRet & uchEnd IfEnd IfNext         toUTF8 = szRet
End Function'二进制转换为十六进制的asp代码
function c2to16(x)i=1for i=1 to len(x) step 4c2to16=c2to16 & hex(c2to10(mid(x,i,4)))next
end function'二进制转换为十进制的asp代码
function c2to10(x)c2to10=0if x="0" then exit functioni=0for i= 0 to len(x) -1if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i)next
end function'十六进制转换为二进制的asp代码
function c16to2(x)i=0for i=1 to len(trim(x))tempstr= c10to2(cint(int("&h" & mid(x,i,1))))do while len(tempstr)<4tempstr="0" & tempstrloopc16to2=c16to2 & tempstrnext
end functionfunction c10to2(x)mysign=sgn(x)x=abs(x)DigS=1doif x<2^DigS thenexit doelseDigS=DigS+1end iflooptempnum=xi=0for i=DigS to 1 step-1if tempnum>=2^(i-1) thentempnum=tempnum-2^(i-1)c10to2=c10to2 & "1"elsec10to2=c10to2 & "0"end ifnextif mysign=-1 then c10to2="-" & c10to2
end function'UTF8编码文字将转换为汉字
function ConvChinese(x)A=split(mid(x,2),"%")i=0j=0for i=0 to ubound(A)A(i)=c16to2(A(i))nextfor i=0 to ubound(A)-1DigS=instr(A(i),"0")Unicode=""for j=1 to DigS-1if j=1 thenA(i)=right(A(i),len(A(i))-DigS)Unicode=Unicode & A(i)elsei=i+1A(i)=right(A(i),len(A(i))-2)Unicode=Unicode & A(i)end ifnextif len(c2to16(Unicode))=4 thenConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode)))elseConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode)))end ifnext
end function'GB2312中文转unicode(&#)的asp代码  将GB编码文字转换为unicode编码文字
function chinese2unicode(Str)dim idim Str_onedim Str_unicodeif(isnull(Str)) thenexit functionend iffor i=1 to len(Str)Str_one=Mid(Str,i,1)Str_unicode=Str_unicode&chr(38)Str_unicode=Str_unicode&chr(35)Str_unicode=Str_unicode&chr(120)Str_unicode=Str_unicode& Hex(ascw(Str_one))Str_unicode=Str_unicode&chr(59)nextchinese2unicode=Str_unicode
end function  'URL地址编码解码函数
Function URLDecode(enStr)
dim deStr
dim c,i,v
deStr=""
for i=1 to len(enStr)c=Mid(enStr,i,1)if c="%" thenv=eval("&h"+Mid(enStr,i+1,2))if v<128 thendeStr=deStr&chr(v)i=i+2elseif isvalidhex(mid(enstr,i,3)) thenif isvalidhex(mid(enstr,i+3,3)) thenv=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))deStr=deStr&chr(v)i=i+5elsev=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))deStr=deStr&chr(v)i=i+3end ifelsedestr=destr&cend ifend ifelseif c="+" thendeStr=deStr&" "elsedeStr=deStr&cend ifend if
next
URLDecode=deStr
end function'判断是否为有效的十六进制代码
function isvalidhex(str)
dim c
isvalidhex=true
str=ucase(str)
if len(str)<>3 then isvalidhex=false:exit function
if left(str,1)<>"%" then isvalidhex=false:exit functionc=mid(str,2,1)
if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit functionc=mid(str,3,1)
if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
end function'请求数据到短信接口
Function Post(url,data)dim Httpsset Https=server.createobject("MSXML2.XMLHTTP")Https.open "POST",url,falseHttps.setRequestHeader "Content-Type","application/x-www-form-urlencoded"Https.send dataif Https.readystate=4 thendim objstreamset objstream = Server.CreateObject("adodb.stream")objstream.Type = 1objstream.Mode =3objstream.Openobjstream.Write Https.responseBodyobjstream.Position = 0objstream.Type = 2objstream.Charset = "utf-8"Post = objstream.ReadTextobjstream.Closeset objstream = nothingset https=nothingend if
End Function'函数返回随机整数。
Function gen_key(digits)    'Create and define arraydim char_array(50)char_array(0) = "0"char_array(1) = "1"char_array(2) = "2"char_array(3) = "3"char_array(4) = "4"char_array(5) = "5"char_array(6) = "6"char_array(7) = "7"char_array(8) = "8"char_array(9) = "9"'Initiate randomize method for default seedingrandomize'Loop through and create the output based on the the variable passed to'the function for the length of the key.do while len(output) < digitsnum = char_array(Int((9 - 0 + 1) * Rnd + 0))output = output + numloop'Set returngen_key = output
End FunctionDim mobile
mobile = request("mobile")   '手机号码if mobile="" thenresponse.Write("手机号码不能为空")elseif request.Form("send_code") = "" or Session("send_code")<>request.Form("send_code") then'防用户恶意请求response.Write("请求超时，请刷新页面后重试")else dim target,post_data,content,res,mobile_codemobile_code = gen_key(4)Session("mobile_code") = mobile_code'Response.Cookies("mobile_code") = mobile_codeSession("mobile") = mobile'Response.Cookies("mobile") = mobiletarget = "http://106.ihuyi.com/webservice/sms.php?method=Submit"content = toUTF8("您的验证码是："&mobile_code&"。请不要把验证码泄露给其他人。")post_data = "account=用户名&password=密码&mobile="&mobile&"&content="&content'查看用户名 登录用户中心->验证码通知短信>产品总览->API接口信息->APIID'查看密码 登录用户中心->验证码通知短信>产品总览->API接口信息->APIKEY'Response.write toUTF8("短信测试")'response.Write(UTF2GB(Post(target,post_data)))tempstr = UTF2GB(Post(target,post_data))'if instr(tempstr,"提交成功")>0 Then'response.Write("true") 'else'response.Write("error") 'end ifDim len1,len2len1 = instr(1,tempstr,"</code>",1)-1len2 = instr(1,tempstr,"<code>",1)'response.Write(len2)code=left(tempstr,len1)code=right(code,(len1-len2-5))'response.Write(code)Dim len3,len4len3 = instr(1,tempstr,"</msg>",1)-1len4 = instr(1,tempstr,"<msg>",1)'response.Write(len2)msg=left(tempstr,len3)msg=right(msg,(len3-len4-4))response.Write(msg)end ifend If
%>

怎么对接asp语言短信验证码接口？相关推荐

怎么对接NODE.JS语言短信验证码接口？
本文为您提供了NODE.JS语言版本的验证码短信接口对接DEMO示例 /* * 接口类型:互亿无线触发短信接口,支持发送验证码短信.订单通知短信等. 账户注册:请通过该地址开通账户 http://us ...
【转载】C语言，利用网络短信验证码接口实现手机短信发送
利用网络短信验证码接口实现手机短信发送 (历史代码,贴出学习) resource.h //resource.h//{{NO_DEPENDENCIES}} // Microsoft Visual C++ ...
短信验证码接口的应用场景和优势
短信验证码接口是常用于网络平台的一种短信功能接口,它在用户注册登录.密码找回.账户变更.确认支付.活动认证等场景都会应用到,短信接口作为网络平台与用户之间重要交互手段,凭借其速度快.到达率高.安全性好 ...
Httpclient调用短信验证码接口
一.简介 HttpClient是Apache Jakarta Common下的子项目,用来提供高效的.最新的.功能丰富的支持HTTP协议的客户端编程工具包,并且它支持HTTP协议最新的版本和建议.Ht ...
全国通用标准化HTTP短信验证码接口，接入从未如此简单
熟练掌握接口对接是一个程序猿的基本功,短信验证码接口作为企业商用最常见也是用的最多的一个接口,能够快速的接入当然是可以省下不少的时间啦!下面给大家介绍一个简单快速的接入方法啦! 验证码的前端代码很简单 ...
php短信接口加密_PHP短信接口、PHP短信验证码接口源码
PHP短信接口.PHP短信验证码接口源码时间:2016-06-13 11:53 来源:原创作者:admin PHP短信接口文档源码,PHP发短信接口,PHP在线发短信,PHP微信发短信接口 /* ...
如何防止恶意攻击短信验证码接口
如何防止恶意攻击短信验证码接口 1 自研技术 2 自研验证码被破解怎么办? 3 所有图形验证码都被破解怎么办? 1 自研技术 1.手机号码限制:限制单个手机号码每天的最大发送次数.超过次数不能发送短信 ...
java防止注册刷短信攻击_java面试(1)如何防止恶意攻击短信验证码接口
防止恶意攻击短信验证码接口方法 1.手机号码限制:限制单个手机号码每天的最大发送次数.超过次数不能发送短信,可以考虑将手机号码加入黑名单,禁止1天. 2.短信发送时间间隔限制:限制同一个手机号码重复发 ...
手机短信验证码接口在各领域的应用
很多网站.APP应用.内部管理软件在使用过程中,都需要会员进行手机号码验证.登录验证.操作验证,在各种验证形式中,手机短信验证的方式最为简单和方便.根据不同的应用领域,手机短信验证可以广泛应用在如下方 ...

怎么对接asp语言短信验证码接口？

怎么对接asp语言短信验证码接口？相关推荐

最新文章

热门文章