作家
登录

asp短信接口源码 比较简单但也挺实用用的(两个写法)

作者: 来源:www.28hudong.com 2013-03-30 08:13:55 阅读 我要评论

写法一: 复制代码 代码如下: <% Sub sendsms(mobile,msg) '如需要发送多个手机号,请自动循环,多个手机号之间用“,”分隔,最后手机号码后不加,号 '或调用我们 HttpInterfaceMore.aspx 接口,后跟参数一样或调用我们的webservers接口 dim userid,password,username,sms,status dim xmlObj,httpsendurl '请添写您的账号密码 sms="平台" username="用户名" userid = "企业ID" password = "密码" 请联系我们索取免费测试帐号 httpsendurl="http://jiekou.56dxw.com/sms/HttpInterface.aspx? comid="&userid&"&username="&username&"&userpwd="&password&"&handtel="&mobile&" &sendcontent="&server.URLEncode(msg)&"&sendtime=&smsnumber="&sms Set xmlObj = server.CreateObject("Microsoft.XMLHTTP") xmlObj.Open "POST",httpsendurl,false xmlObj.send() status = xmlObj.responseText Set xmlObj = nothing If status = "1" then '发送成功 Response.Write "<br><br>返回状态码:"&status&" 发送状态:发送成功! <a href=""javascript:history.back();"">返回发送页面</a>" Else '发送失败 Response.Write "<br><br>返回状态码:"&status&" 发送状态:发送失败! <a href=""javascript:history.back();"">返回发送页面</a>" End if End sub %> 写法二 复制代码 代码如下: <% Function SendSms(UserName, UserPass, DstMobile, SmsMsg) Dim http,msg,strUrl,RndNumber set http = Server.CreateObject("Microsoft.XMLHTTP") strurl="http://jiekou.56dxw.com/sms/HttpInterface.aspx?comid=121&username="&SmsName&"&userpwd="&SmsPw&" &sendtime=&smsnumber=1065&handtel="&DstMobile&"&sendcontent="&server.URLEncode(SmsMsg) http.Open "GET",strUrl, false http.setRequestHeader "Content-type:", "text/xml;charset=GB2312" http.Send msg=http.ResponseText set http = nothing '代表发送成功 If msg="1" then SendSms="OK" else sendSms="ERR" end IF End Function %>

  推荐阅读

  判断dll文件是否已经注册的ASP函数代码

asp判断服务器是否安装了某个组件,也就是是否安装了某个dll文件,判断某个组件是否在服务器注册了,asp组件很多,它的判断可以减少很多asp错误,主要是用下面的函数: 复制代码 代码如下: <% '功能:检查是否存在系>>>详细阅读


本文标题:asp短信接口源码 比较简单但也挺实用用的(两个写法)

地址:http://www.17bianji.com/kaifa2/ASP/31786.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)