' The script can be called via <%@language="vbscript" CODEPAGE="1252"%> if AQresponse "" then response.write(AQresponse) else response.write("ERROR") end if %> ' Actual script follows. This could be placed in a separate file, ' such as the smslib.asp file described above <% Dim method, secured, error_on_length, username, password, AQresponse ' User Editable Variables secured = 0 ' Set to either 1 for SSL connection ' or 0 for normal connection. error_on_length = 1 ' Whether to give and error on messages over 160 chracters. ' 1 for true, 0 for false. username = "testusername" ' Your aql username, can either be set here ' or done on a per call basis from the function. password = "testpassword" ' Your aql password, can either be set here ' or done on a per call basis from the function. Dim objXMLHTTP, xml message = replace(message," ","+") Set xml = Server.CreateObject("Microsoft.XMLHTTP") if secured = null or secured = 0 then xml.Open "POST", "http://gw1.aql.com/sms/sms_gw.php", False xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xml.Send "username=" & username & "&password=" & password & "&destination=" & destination & "&message=" & message & "&originator=" & originator & "&flash=" & flash else if secured = 1 then xml.Open "POST", "https://gw1.aql.com/sms/sms_gw.php", False xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xml.Send "username=" & username & "&password=" & password & "&destination=" & destination & "&message=" & message & "&originator=" & originator & "&flash=" & flash else call senderror(7) end if end if AQresponse = xml.responseText Set xml = nothing End Function %>

AltStyle によって変換されたページ (->オリジナル) /