asp短信接口源码 比较简单但也挺实用用的（两个写法）
导读：收集整理的这篇文章主要介绍了asp短信接口源码 比较简单但也挺实用用的（两个写法），觉得挺不错的，现在分享给大家，也给大家做个参考。 写法一： 复制代码 代码如下: <% Sub...
收集整理的这篇文章主要介绍了asp短信接口源码 比较简单但也挺实用用的（两个写法），觉得挺不错的，现在分享给大家，也给大家做个参考。 写法一： 复制代码 代码如下:
%
Sub sendsms(mobile,msg)
'如需要发送多个手机号，请自动循环，多个手机号之间用“,”分隔，最后手机号码后不加,号
'或调用我们 HttpInterfaceMore.aspx 接口，后跟参数一样或调用我们的webservers接口
dim userid,password,username,sms,@R_360_2358@us
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& "& nbsp; & nbsp; & nbsp; 发送状态：发送成功！& nbsp; & nbsp; & nbsp; a
href=""javascript:history.back(); ""> 返回发送页面/a> "
Else '发送失败
Response.Write "br> br> 返回状态码："& status& "& nbsp; & nbsp; & nbsp; 发送状态：发送失败！& nbsp; & nbsp; & nbsp; 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
%>
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： asp短信接口源码 比较简单但也挺实用用的（两个写法）
本文地址： https://pptw.com/jishu/604141.html