S05GK接口发送短信ASP代码样例 用ASP调用短信接口可以采用ASP的XMLHTTP对象的OPEN方法实现模拟POST提交发送，相关发送的信息如短信内容、接收号码等都通过POST方式提交。下面是摘自速达移动(sudas.cn)的接口样例文档中关于接口调用的代码。 %@LANGUAGE="VBSC
S05GK接口发送短信ASP代码样例
用ASP调用短信接口可以采用ASP的XMLHTTP对象的OPEN方法实现模拟POST提交发送，相关发送的信息如短信内容、接收号码等都通过POST方式提交。下面是摘自速达移动(sudas.cn)的接口样例文档中关于接口调用的代码。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Function Post(url,data)
dim Https
set Https=server.createobject("MSXML2.XMLHTTP")
Https.open "POST",url,false
Https.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
Https.send data
if Https.readystate=4 then
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write Https.responseBody
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "utf-8"
Post = objstream.ReadText
objstream.Close
set objstream = nothing
set https=nothing
end if
End Function
dim target,post_data
target = "http://sdk.sudas.cn/submitdata/Service.asmx/g_Submit"
post_data = "sname=&spwd=&scorpid=&sprdid=&sdst=&smsg="&Server.URLEncode("短信测试")
response.Write(Post(target,post_data))
''//请自己解析Post(target,post_data)返回的字符串并实现自己的逻辑
''<State>0</State>表示成功,其它的参考文档
%>
相关具体参数跟短信服务商沟通即可，其他HTTP接口也可以通过类似方式实现提交。
