寫法一：

Sub sendsms(mobile,msg)

'如需要發(fā)送多個(gè)手機(jī)號(hào)，請(qǐng)自動(dòng)循環(huán)，多個(gè)手機(jī)號(hào)之間用“,”分隔，最后手機(jī)號(hào)碼后不加,號(hào)

'或調(diào)用我們 HttpInterfaceMore.aspx 接口，后跟參數(shù)一樣或調(diào)用我們的webservers接口

dim userid,password,username,sms,status

dim xmlObj,httpsendurl

'請(qǐng)?zhí)韺懩馁~號(hào)密碼

sms="平臺(tái)"

username="用戶名"

userid = "企業(yè)ID"

password = "密碼"

請(qǐng)聯(lián)系我們索取免費(fèi)測(cè)試帳號(hào)

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 '發(fā)送成功

Response.Write "
返回狀態(tài)碼："&status&"???發(fā)送狀態(tài)：發(fā)送成功！???

href=""javascript:history.back();"">返回發(fā)送頁(yè)面

"

Else '發(fā)送失敗

Response.Write "
返回狀態(tài)碼："&status&"???發(fā)送狀態(tài)：發(fā)送失敗！???

href=""javascript:history.back();"">返回發(fā)送頁(yè)面

"

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

'代表發(fā)送成功

If msg="1" then

SendSms="OK"

else

sendSms="ERR"

end IF

End Function

%>

總結(jié)

以上是生活随笔為你收集整理的asp网站短信api服务器,asp短信接口源码 比较简单但也挺实用用的（两个写法）...的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。