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

最新推荐文章于 2022-09-21 21:45:00 发布

苍穹破天

最新推荐文章于 2022-09-21 21:45:00 发布

阅读量193

点赞数

分类专栏： C++短信开发 NODE.JS PHP货运短信文章标签： php

本文链接：https://blog.csdn.net/m0_61684517/article/details/124693758

版权

本文提供了一个ASP版本的验证码短信接口对接DEMO，适用于触发短信接口，支持发送验证码、订单通知和节日祝福等。用户需在指定链接注册账户，并使用用户名和APIkey进行接口调用。

摘要由CSDN通过智能技术生成

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 then
        GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
        Dig=Dig+8
     else
       GBStr=GBStr & mid(UTFStr,Dig,1)
     end if
   else
      GBStr=GBStr & mid(UTFStr,Dig,1)
   end if
next
UTF2GB=GBStr
end function

'GB2312转UTF8的asp代码  将GB编码文字转换为UTF8编码文字
Function toUTF8(szInput)
     Dim wch, uch, szRet
     Dim x
     Dim nAsc, nAsc2, nAsc3
     '如果输入参数为空，则退出函数
     If szInput = "" Then
         toUTF8 = szInput
         Exit Function
     End If
     '开始转换
      For x = 1 To Len(szInput)
         '利用mid函数分拆GB编码文字
         wch = Mid(szInput, x, 1)
         '利用ascW函数返回每一个GB编码文字的Unicode字符代码
         '注：asc函数返回的是ANSI 字符代码，注意区别
         nAsc = AscW(wch)