ASP对接语音验证码接口DEMO示例

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><%'接口类型：互亿无线语音验证码接口。'账户注册：请通过该地址开通账户/new/register.html'注意事项：'（1）调试期间，请仔细阅读接口文档；'（2）请使用APIID及APIKEY来调用接口，可在会员中心获取；'（3）该代码仅供接入互亿无线短信接口参考使用，客户可根据实际需要自行编写；Response.Charset="gb2312"''aspUTF转GB2312将UTF8编码文字转换为GB编码文字的asp代码functionUTF2GB(UTFStr)forDig=1tolen(UTFStr)'如果UTF8编码文字以%开头则进行转换ifmid(UTFStr,Dig,1)="%"then'UTF8编码文字大于8则转换为汉字iflen(UTFStr)>=Dig+8thenGBStr=GBStr&ConvChinese(mid(UTFStr,Dig,9))Dig=Dig+8elseGBStr=GBStr&mid(UTFStr,Dig,1)endifelseGBStr=GBStr&mid(UTFStr,Dig,1)endifnextUTF2GB=GBStrendfunction'GB2312转UTF8的asp代码将GB编码文字转换为UTF8编码文字FunctiontoUTF8(szInput)Dimwch,uch,szRetDimxDimnAsc,nAsc2,nAsc3'如果输入参数为空，则退出函数IfszInput=""ThentoUTF8=szInputExitFunctionEndIf'开始转换Forx=1ToLen(szInput)'利用mid函数分拆GB编码文字wch=Mid(szInput,x,1)'利用ascW函数返回每一个GB编码文字的Unicode字符代码'注：asc函数返回的是ANSI字符代码，注意区别nAsc=AscW(wch)IfnAsc<0ThennAsc=nAsc+65536If(nAscAnd&HFF80)=0ThenszRet=szRet&wchElseIf(nAscAnd&HF000)=0Thenuch="%"&Hex(((nAsc\2^6))Or&HC0)&Hex(nAscAnd&H3FOr&H80)szRet=szRet&uchElse'GB编码文字的Unicode字符代码在0800-FFFF之间采用三字节模版uch="%"&Hex((nAsc\2^12)Or&HE0)&"%"&_Hex((nAsc\2^6)And&H3FOr&H80)&"%"&_Hex(nAscAnd&H3FOr&H80)szRet=szRet&uchEndIfEndIfNexttoUTF8=szRetEndFunction'二进制转换为十六进制的asp代码functionc2to16(x)i=1fori=1tolen(x)step4c2to16=c2to16&hex(c2to10(mid(x,i,4)))nextendfunction'二进制转换为十进制的asp代码functionc2to10(x)c2to10=0ifx="0"thenexitfunctioni=0fori=0tolen(x)-1ifmid(x,len(x)-i,1)="1"thenc2to10=c2to10+2^(i)nextendfunction'十六进制转换为二进制的asp代码functionc16to2(x)i=0fori=1tolen(trim(x))tempstr=c10to2(cint(int("&h"&mid(x,i,1))))dowhilelen(tempstr)<4tempstr="0"&tempstrloopc16to2=c16to2&tempstrnextendfunctionfunctionc10to2(x)mysign=sgn(x)x=abs(x)DigS=1doifx<2^DigSthenexitdoelseDigS=DigS+1endiflooptempnum=xi=0fori=DigSto1step-1iftempnum>=2^(i-1)thentempnum=tempnum-2^(i-1)c10to2=c10to2&"1"elsec10to2=c10to2&"0"endifnextifmysign=-1thenc10to2="-"&c10to2endfunction'UTF8编码文字将转换为汉字functionConvChinese(x)A=split(mid(x,2),"%")i=0j=0fori=0toubound(A)A(i)=c16to2(A(i))nextfori=0toubound(A)-1DigS=instr(A(i),"0")Unicode=""forj=1toDigS-1ifj=1thenA(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)endifnextiflen(c2to16(Unicode))=4thenConvChinese=ConvChinese&chrw(int("&H"&c2to16(Unicode)))elseConvChinese=ConvChinese&chr(int("&H"&c2to16(Unicode)))endifnextendfunction'GB2312中文转unicode(&#)的asp代码将GB编码文字转换为unicode编码文字functionchinese2unicode(Str)dimidimStr_onedimStr_unicodeif(isnull(Str))thenexitfunctionendiffori=1tolen(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_unicodeendfunction'URL地址编码解码函数FunctionURLDecode(enStr)dimdeStrdimc,i,vdeStr=""fori=1tolen(enStr)c=Mid(enStr,i,1)ifc="%"thenv=eval("&h"+Mid(enStr,i+1,2))ifv<128thendeStr=deStr&chr(v)i=i+2elseifisvalidhex(mid(enstr,i,3))thenifisvalidhex(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+3endifelsedestr=destr&cendifendifelseifc="+"thendeStr=deStr&""elsedeStr=deStr&cendifendifnextURLDecode=deStrendfunction'判断是否为有效的十六进制代码functionisvalidhex(str)dimcisvalidhex=truestr=ucase(str)iflen(str)<>3thenisvalidhex=false:exitfunctionifleft(str,1)<>"%"thenisvalidhex=false:exitfunctionc=mid(str,2,1)ifnot(((c>="0")and(c<="9"))or((c>="A")and(c<="Z")))thenisvalidhex=false:exitfunctionc=mid(str,3,1)ifnot(((c>="0")and(c<="9"))or((c>="A")and(c<="Z")))thenisvalidhex=false:exitfunctionendfunctionFunctionPost(url,data) dimHttps setHttps=server.createobject("MSXML2.XMLHTTP") Https.open"POST",url,false Https.setRequestHeader"Content-Type","application/x-www-form-urlencoded" Https.senddata ifHttps.readystate=4then dimobjstream setobjstream=Server.CreateObject("adodb.stream") objstream.Type=1 objstream.Mode=3 objstream.Open objstream.WriteHttps.responseBody objstream.Position=0 objstream.Type=2 objstream.Charset="utf-8" Post=objstream.ReadText objstream.Close setobjstream=nothing sethttps=nothing endifEndFunctiondimtarget,post_data,content,mobilemobile="138xxxxxxxx" '手机号码target="/webservice/voice.php?method=Submit"content="1125"post_data="account=用户名&password=密码&mobile="&mobile&"&content="&content'查看用户名登录用户中心->语音验证码>产品总览->API接口信息->APIID'查看密码登录用户中心->语音验证码>产品总览->API接口信息->