SMS簡訊發送程序

簡訊SMS供應商Provider
API(Application Programming Interface)就是程式溝通介面
<%
aPhone=split("0936123XXX,0936456XXX",",")
set xmlHTTP = Server.CreateObject("Microsoft.XMLHTTP")
set XMLDocument = Server.CreateObject("Microsoft.XMLDOM")
'===發送多個號碼===
for iPhone=0 to ubound(aPhone)
'---台灣簡訊的API---
smsURL = "http://api.twsms.com/SendSMS.php?"
'簡訊參數
smsArgs = "CID=" & CID & "&CPW=" & CPW & "&N=" & aPhone(iPhone) & "&M=" & Server.Urlencode("內容")
'發送
xmlHTTP.open "GET",smsURL & smsArgs ,False
xmlHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHTTP.send
Next
'===發送多個號碼===
'釋放資源
set xmlHTTP = nothing
set XMLDocument = nothing
%>