asp短信接口源碼 比較簡(jiǎn)單但也挺實(shí)用用的（兩個(gè)

寫(xiě)法一：
代碼如下:
<%
Sub sendsms(mobile,msg)
'如需要發(fā)送多個(gè)手機號，請自動(dòng)循環(huán)，多個(gè)手機號之間用“,”分隔，最后手機號碼后不加,號
'或調用我們 HttpInterfaceMore.aspx 接口，后跟參數一樣或調用我們的webservers接口
dim userid,password,username,sms,status
dim xmlObj,httpsendurl
'請添寫(xiě)您的賬號密碼
sms="平臺"
username="用戶(hù)名"
userid = "企業(yè)ID"
password = "密碼"
請聯(lián)系我們索取免費測試帳號
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 '發(fā)送成功
Response.Write "<br><br>返回狀態(tài)碼："&status&"&nbsp;&nbsp;&nbsp;發(fā)送狀態(tài)：發(fā)送成功！&nbsp;&nbsp;&nbsp; <a
href=""javascript:history.back();"">返回發(fā)送頁(yè)面</a>"
Else '發(fā)送失敗
Response.Write "<br><br>返回狀態(tài)碼："&status&"&nbsp;&nbsp;&nbsp;發(fā)送狀態(tài)：發(fā)送失??！&nbsp;&nbsp;&nbsp;<a
href=""javascript:history.back();"">返回發(fā)送頁(yè)面</a>"
End if
End sub
%>

寫(xiě)法二
代碼如下:
<%
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
'代表發(fā)送成功
If msg="1" then
SendSms="OK"
else
sendSms="ERR"
end IF
End Function
%>