asp短信接口源码比较简单但也很实用的（两个写法）

发布时间：2023-07-31 10:25:59 所属栏目：Asp教程来源：

导读：写法一：
复制代码代码如下:

<%
Sub sendsms(mobile,msg)
'如需要发送多个手机号，请自动循环，多个手机号之间用“,”分隔，最后手机号码后不加,号
'或调用我们 HttpInterfaceMore.aspx 接

写法一：
复制代码代码如下:

<%
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
%>

（编辑：汽车网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

asp短信接口源码 比较简单但也很实用的（两个写法）

asp短信接口源码比较简单但也很实用的（两个写法）