<%
Option Explicit
username = ""		' b
password = ""		' KX
mobile = "09xxxxxxxx"	' q
message = "²T"	' ²Te

smsURL = "http://api.twsms.com/json/sms_send.php?"
smsArgs = smsArgs & "username=" & username
smsArgs = smsArgs & "&password=" & password
smsArgs = smsArgs & "&mobile=" & mobile
smsArgs = smsArgs & "&message=" & message

' HUztҥ䴩, M|X{~
set xmlHTTP = Server.CreateObject("Microsoft.XMLHTTP")		' ϥ XMLHTTP 
set XMLDocument = Server.CreateObject("Microsoft.XMLDOM")	' ϥ XMLHTTP 

' } smsURL ]w}
xmlHTTP.open "GET",smsURL & smsArgs ,False
xmlHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHTTP.send

' N^ǪƦsJ XMLStr
XMLStr = xmlHTTP.ResponseText 
set xmlHTTP = nothing 
set XMLDocument = nothing

' pGtȫhǰe
response.write(XMLStr)
response.end
%>
