<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%'接口類型：互億無線觸發短信接口，支持發送驗證碼短信、訂單通知短信等。'賬戶注冊：請通過該地址開通賬戶http://user.ihuyi.com/register.html'注意事項：'（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
%>
