これは、SMS インターフェイスの呼び出しメソッド (ASP) に関するもので、SMS インターフェイスを呼び出す 2 つのメソッドは比較的単純ですが、より実用的です。
書き方１：
次のようにコードをコピーします。
<%
サブ送信SMS(モバイル、メッセージ)
複数の携帯電話番号を送信する必要がある場合は、「,」を使用して複数の携帯電話番号を区切ってください。最後の携帯電話番号の後に「,」を追加しないでください。
'または、HttpInterfaceMore.aspx インターフェイスを呼び出し、その後に同じパラメータを続けるか、Web サーバー インターフェイスを呼び出します。
dim ユーザー ID、パスワード、ユーザー名、SMS、ステータス
dimxmlObj、httpsendurl
'アカウントのパスワードを追加してください
sms="プラットフォーム"
ユーザー名 = "ユーザー名"
ユーザーID = "エンタープライズID"
パスワード = "パスワード"
無料のテストアカウントをリクエストするにはお問い合わせください
httpsendurl="http://jiekou.56dxw.com/sms/HttpInterface.aspx?
comid="&userid&"&username="&username&"&userpwd="&password&"&handtel="&mobile&"
&sendcontent="&server.URLEncode(msg)&"&sendtime=&smsnumber="&sms
xmlObj = server.CreateObject("Microsoft.XMLHTTP") を設定します。
xmlObj.Open "POST",httpsendurl,false
xmlObj.send()
ステータス = xmlObj.responseText
xmlObj = 何も設定しない
ステータス = "1" の場合、「正常に送信されました」
Response.Write "<br><br>リターンステータスコード: "&status&" 送信ステータス: 正常に送信されました! <a
href=""javascript:history.back();"">送信ページに戻る</a>"
それ以外の場合は「送信に失敗しました」
Response.Write "<br><br>リターンステータスコード: "&status&" 送信ステータス: 送信失敗! <a
href=""javascript:history.back();"">送信ページに戻る</a>"
次の場合に終了
エンドサブ
%>
書き方その２
次のようにコードをコピーします。
<%
関数 SendSms(ユーザー名、ユーザーパス、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.送信
msg=http.ResponseText
http = 何も設定しない
'送信が成功したことを表します
msg="1" の場合
SendSms = "OK"
それ以外
sendSms="エラー"
endIF
終了機能
%>