ASP對(duì)接語(yǔ)音驗(yàn)證碼接口DEMO示例

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><%'接口類型：互億無(wú)線語(yǔ)音驗(yàn)證碼接口。'賬戶注冊(cè)：請(qǐng)通過(guò)該地址開(kāi)通賬戶/new/register.html'注意事項(xiàng)：'（1）調(diào)試期間，請(qǐng)仔細(xì)閱讀接口文檔；'（2）請(qǐng)使用APIID及APIKEY來(lái)調(diào)用接口，可在會(huì)員中心獲??；'（3）該代碼僅供接入互億無(wú)線短信接口參考使用，客戶可根據(jù)實(shí)際需要自行編寫(xiě)；Response.Charset="gb2312"''aspUTF轉(zhuǎn)GB2312將UTF8編碼文字轉(zhuǎn)換為GB編碼文字的asp代碼functionUTF2GB(UTFStr)forDig=1tolen(UTFStr)'如果UTF8編碼文字以%開(kāi)頭則進(jìn)行轉(zhuǎn)換ifmid(UTFStr,Dig,1)="%"then'UTF8編碼文字大于8則轉(zhuǎn)換為漢字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轉(zhuǎn)UTF8的asp代碼將GB編碼文字轉(zhuǎn)換為UTF8編碼文字FunctiontoUTF8(szInput)Dimwch,uch,szRetDimxDimnAsc,nAsc2,nAsc3'如果輸入?yún)?shù)為空，則退出函數(shù)IfszInput=""ThentoUTF8=szInputExitFunctionEndIf'開(kāi)始轉(zhuǎn)換Forx=1ToLen(szInput)'利用mid函數(shù)分拆GB編碼文字wch=Mid(szInput,x,1)'利用ascW函數(shù)返回每一個(gè)GB編碼文字的Unicode字符代碼'注：asc函數(shù)返回的是ANSI字符代碼，注意區(qū)別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之間采用三字節(jié)模版uch="%"&Hex((nAsc\2^12)Or&HE0)&"%"&_Hex((nAsc\2^6)And&H3FOr&H80)&"%"&_Hex(nAscAnd&H3FOr&H80)szRet=szRet&uchEndIfEndIfNexttoUTF8=szRetEndFunction'二進(jìn)制轉(zhuǎn)換為十六進(jìn)制的asp代碼functionc2to16(x)i=1fori=1tolen(x)step4c2to16=c2to16&hex(c2to10(mid(x,i,4)))nextendfunction'二進(jìn)制轉(zhuǎn)換為十進(jìn)制的asp代碼functionc2to10(x)c2to10=0ifx="0"thenexitfunctioni=0fori=0tolen(x)-1ifmid(x,len(x)-i,1)="1"thenc2to10=c2to10+2^(i)nextendfunction'十六進(jìn)制轉(zhuǎn)換為二進(jìn)制的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編碼文字將轉(zhuǎn)換為漢字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中文轉(zhuǎn)unicode(&#)的asp代碼將GB編碼文字轉(zhuǎn)換為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地址編碼解碼函數(shù)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'判斷是否為有效的十六進(jìn)制代碼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" '手機(jī)號(hào)碼target="/webservice/voice.php?method=Submit"content="1125"post_data="account=用戶名&password=密碼&mobile="&mobile&"&content="&content'查看用戶名登錄用戶中心->語(yǔ)音驗(yàn)證碼>產(chǎn)品總覽->API接口信息->APIID'查看密碼登錄用戶中心->語(yǔ)音驗(yàn)證碼>產(chǎn)品總覽->API接口信息->