asp簡訊介面源碼比較簡單但也挺實用用的

這是關於簡訊介面的一些呼叫方法,asp的，兩個方式,呼叫簡訊介面都比較簡單,但也比較實用寫法一：

複製代碼代碼如下:

<%

Sub sendsms(mobile,msg)

'如需要發送多個手機號，請自動循環，多個手機號碼之間用,分隔，最後手機號碼後不加,號

'或呼叫我們HttpInterfaceMore.aspx 接口，後跟參數一樣或呼叫我們的webservers接口

dim userid,password,username,sms,status

dim xmlObj,httpsendurl

'請添寫您的帳號密碼

sms=平台

username=使用者名

userid = 企業ID

password = 密碼

請聯絡我們索取免費測試帳號

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 '發送成功

Response.Write <br><br>傳回狀態碼：&status& 傳送狀態：傳送成功！ <a

href=javascript:history.back();>回傳發送頁面</a>

Else '發送失敗

Response.Write <br><br>傳回狀態碼：&status& 傳送狀態：傳送失敗！ <a

href=javascript:history.back();>回傳發送頁面</a>

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

'代表發送成功

If msg=1 then

SendSms=OK

else

sendSms=ERR

end IF

End Function

%>