当前位置: 首页 站长交流

ASP提交表单发送短信通知函数

栏目:站长交流 作者:重庆幺哥电脑 时间:2016-05-30 11:50:39

ASP提交表单成功后就发送短信通知函数,自己摸索了好几天,在这里分享给大家,希望对正在使用ASP网站程序,特别是ASPCMS的站长带来帮助。如果网站编码是gbk需要转换,,如果是编码是utf8/请注释c=toUTF8(c)。

ASP提交表单发送短信通知函数如下

Function sendsms()
dim ac,authkey,m,cgid,csid,t,c,httpsendurl,xmlObj
ac = ""'企业ID,请联系我们索取免费测试帐号
authkey = ""'认证密钥
m=filterPara(getForm("Mobile","post"))'发送手机号码
c = "恭喜您,报名成功,请等待富士康面试通知。请不要在其他途径重复报名,重复报名将不能参加面试。招聘热线13220383188"'发送内容
c=toUTF8(c)'gbk编码转换,本函数已经server.URLEncode,不需要再次url编码。如果是编码是utf8/请注释此行,同时server.URLEncode
cgid="184"'发送所使用通道组
csid="3"'签名编号 ,可以为空时,使用系统默认的编号
t=""'发送时间,可以为空表示立即发送,yyyyMMddHHmmss 如:20130721182038
httpsendurl="http://smsapi.c123.cn/OpenPlatform/OpenApi?action=sendOnce&ac="&ac&"&authkey="&authkey&"&csid="&csid&"&cgid="&cgid&"&m="&m&"&c="&c
Set xmlObj = server.CreateObject("Microsoft.XMLHTTP")
xmlObj.Open "GET",httpsendurl,false
xmlObj.send()
sendSMS = xmlObj.responseText
Set xmlObj = Nothing
End Function

'gbk编码转成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)
        wch = Mid(szInput, x, 1)
        nAsc = AscW(wch)
        If nAsc < 0 Then nAsc = nAsc + 65536
   
        If (nAsc And &HFF80) = 0 Then
            szRet = szRet & wch
        Else
            If (nAsc And &HF000) = 0 Then
                uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
                szRet = szRet & uch
            Else
                uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
                            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
                            Hex(nAsc And &H3F Or &H80)
                szRet = szRet & uch
            End If
        End If
    Next
    toUTF8 = szRet
End Function


阅读:11909次
我要留言

网友留言

中国五冶大学

写得不错,支持下

2016-06-08 10:22:45 回复

四川卫校

谢谢分享,学习了。

2016-06-13 16:14:05 回复

快速提升学历

有技术的人,尊敬的重庆小伙伴!

2016-06-19 15:26:03 回复

巴力迅猛龙

谢谢博主分享

2016-06-26 10:53:20 回复

成都卫校

很不错,谢谢分享

2016-06-29 15:50:31 回复

丝袜美腿

技术文章,收藏了

2016-07-09 22:45:01 回复

漫道

看来博主也好久没来了

2016-07-18 15:44:07 回复

学历稳定提升

又在搞技术哦!

2016-07-19 15:36:04 回复

中山婚纱摄影

感谢博主的分享

2016-07-24 14:11:59 回复

蟑螂才进

扑哧。。散落吧 千本樱

2016-08-06 20:36:42 回复

烟台阿里巴巴

强势围观,顶一个

2016-08-20 16:00:28 回复

外贸电商培训

NIce。学习了。

2016-08-31 19:31:30 回复

日赚项目分享

分享网上赚钱靠谱的方法

2016-09-11 19:52:02 回复

客夸网赚

谢谢分享,学习了。

2016-09-18 11:30:59 回复

外贸电商培训

@客夸网赚:如此好文章一定要留下名啊

2016-09-19 20:42:24 回复

五卡

厉害了我的哥

2016-10-10 21:01:42 回复

深圳装修公司

asp完全不会,php也只会修修补补哈,纯路过,求回访。

2016-10-19 22:48:36 回复

星梦互联

星梦互联---中国领先的互联网领导品牌,好产品选星梦,星梦互联专注优质空间,抢购地址: www.kailew.cn
本站所有产品(域名、企业邮局除外):买两年送一年、买三年送两年、买五年送五年、买十年送十年,另免费送500M容量企业邮局。
主机支持现今大部分主流网站源码,如:discuz、帝国、织梦、柯林、槟榔、快范等等等等,如有需要,购买主机后也可联系我们协助安装。

2017-06-27 05:49:20 回复

我要留言

  

微信扫一扫 预约上门维修

分类栏目