开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › 阿里云短信接口ASP版
返回列表 发新帖
查看: 58|回复: 2

[ASP函数] 阿里云短信接口ASP版

[复制链接]
天下第一 发表于 2024-11-13 15:23:28 | 显示全部楼层 |阅读模式
阿里云短信接口ASP版，调用SendSMS

  2.         Public Function POPUrlEncode(ByVal UrlStr)
  3.                 Dim Str
  4.                 Str = Server.URLEncode(UrlStr)
  5.                 Str = Replace(Str,"%5F","_")
  6.                 Str = Replace(Str,"%2D","-")
  7.                 Str = Replace(Str,"%2E",".")
  8.                 Str = Replace(Str,"+","%20")
  9.                 Str = Replace(Str,"*","%2A")
  10.                 Str = Replace(Str,"%7E","~")
  11.                 POPUrlEncode = Str
  12.         End Function

  14.         Public Function SendSMS(ByVal AccessKeyId,ByVal AccessKeySecret,ByVal PhoneNumbers,ByVal SignName,ByVal TemplateCode,ByVal TemplateParam,ByVal OutId)
  15.                 Dim Domain,Timestamp,Format,SignatureMethod,SignatureVersion,SignatureNonce,Action,Version,RegionId
  16.                 Domain = "http://dysmsapi.aliyuncs.com/"
  17.                 Dim Times,NewTimes
  18.                 Times = Zasp.Times.ToUnixTime(Now(),0)
  19.                 NewTimes = Zasp.Times.UnixTimeTo(Times,-8)
  20.                 Timestamp = Year(NewTimes) & "-" & Right("0" & Month(NewTimes),2) & "-" & Right("0" & Day(NewTimes),2) & "T" & Right("0" & Hour(NewTimes),2) & ":" & Right("0" & Minute(NewTimes),2) & ":" & Right("0" & Second(NewTimes),2) & "Z"
  21.                 Format = "JSON"
  22.                 SignatureMethod = "HMAC-SHA1"
  23.                 SignatureVersion = "1.0"
  24.                 SignatureNonce = Zasp.Base.RndEChar(32,"U")
  25.                 Action = "SendSms"
  26.                 Version = "2017-05-25"
  27.                 RegionId = "cn-hangzhou"
  28.                 Dim DataTemp
  29.                 DataTemp = Array("AccessKeyId=" & POPUrlEncode(AccessKeyId) & "","Timestamp=" & POPUrlEncode(Timestamp) & "","Format=" & POPUrlEncode(Format) & "","SignatureMethod=" & POPUrlEncode(SignatureMethod) & "","SignatureVersion=" & POPUrlEncode(SignatureVersion) & "","SignatureNonce=" & POPUrlEncode(SignatureNonce) & "","Action=" & POPUrlEncode(Action) & "","Version=" & POPUrlEncode(Version) & "","RegionId=" & POPUrlEncode(RegionId) & "","PhoneNumbers=" & POPUrlEncode(PhoneNumbers) & "","SignName=" & POPUrlEncode(SignName) & "","TemplateCode=" & POPUrlEncode(TemplateCode) & "","TemplateParam=" & POPUrlEncode(TemplateParam) & "","OutId=" & POPUrlEncode(OutId))
  30.                 Data = Zasp.Base.SortPara(DataTemp,UBound(DataTemp),"&")
  31.                 Dim Sign
  32.                 Sign = "GET&" & POPUrlEncode("/") & "&" & POPUrlEncode(Data)
  33.                 Sign = POPUrlEncode(Zasp.Encrypt.HMACSHA1(Sign,AccessKeySecret & "&","Base64"))
  34.                 SendSMS = Zasp.XMLHTTP.GetHTTP(Domain & "?Signature=" & Sign & "&" & Data,"UTF-8")
  35.         End Function
复制代码

评分

1

查看全部评分

ASP币如何冲？请看这里
回复

使用道具 举报

一往情僧 发表于 2024-11-14 07:59:45 | 显示全部楼层
楼主是个好人！
ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

 楼主| 天下第一 发表于 2024-11-14 09:23:13 | 显示全部楼层
一往情僧 发表于 2024-11-14 07:59
楼主是个好人！

ASP币如何冲？请看这里
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号