ASP对接医疗HIS系统短信通知

ASP对接验证码短信接口DEMO示例
本文为您提供了ASP版本的验证码短信接口对接DEMO示例

* 接口类型：触发短信接口，支持发送验证码短信、订单通知短信，节日祝福等。
* 账户注册：请通过该地址开通账户 http://user.ihuyi.com/?exClaO

* 注意事项：
*（1）调试期间，请使用用系统默认的短信内容：您的验证码是：【变量】。请不要把验证码泄露给其他人。
*（2）请使用用户名及 APIkey来调用接口，APIkey在会员中心可以获取；
*（3）该代码仅供接入短信接口参考使用，客户可根据实际需要自行编写；

<%@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
%>